5,388
社区成员
发帖
与我相关
我的任务
分享
这是在网上找的客户端想服务器发送信息的例子,我想发完消息后自动关闭客户端,我加了一段代码不起作用、现在是只要点击发送,客户端就司机了,但是主机还是可以收到消息的。
procedure TForm1.sendbtnClick(Sender: TObject);
begin
Memo1.Lines.Add('DATA'+sendEdit.Text);
With IdTcpClient1 do
begin
try
WriteLn('DATA'+sendEdit.Text);
Memo1.Lines.Add(ReadLn())
except
Memo1.Lines.Add('发送数据失败');
IdTcpClient1.Disconnect();
Memo1.Lines.Add('同主机连接已断开');
end;
end;
Application.Terminate; //这个是我自己加的,不起作用、
end;