indy通讯，解释下这个线程的意义~该如何解决

indy通讯，解释下这个线程的意义~
为什么这个线程只需要在indy客户端connect的时候创建一下，然后就可以一直不断的接收服务器的消息？
难道这个线程运行一次不就销毁了么？为什么一直会存在呢？

Delphi(Pascal) code

procedure TMainThread.Foo;varMsg:string;bool: boolean;beginbool:=true;while bool do begin    try    Msg:= Form6.IdTCPClient1.IOHandler.ReadLn;     if(Msg='') then     bool:=false     else     begin     M_Lock.Enter;     M_MsgList.Add(Msg);     M_Lock.Leave;     end;    except    bool:=false;    end;end;end;Procedure TMainThread.Execute;//线程启动beginFreeOnTerminate:=True;Foo;End;End.

[解决办法]
while bool do begin

end;

有这个循环呀，线程当然存在，直到服务端关闭或读取不到数据为止。
[解决办法]
解释同上

查看更多 下一篇