Question

怎么编写idtcpclient接收数据的线程

Answer 1

关闭程序最好断开连接，停止监听
​用Synchronize来和主线程同步
procedure TRecvThread.HandleShow;
begin
Form1.Memo1.Lines.Add(str);
end;

procedure TRecvThread.Execute;
var
str:string;
begin
if not form1.IdTCPClient1.Connected then
terminate;
while (not Terminated) and form1.IdTCPClient1.Connected do
begin
str:=form1.IdTCPClient1.ReadLn;
Synchronize(HandleShow);
end;
end;

用IdTCPClient1.Disconnect断开连接
然后 停止Server的监听