在线程里面IdTCPClient1读取信息也死界面?

[youyidianmimang]

procedure TMy2Thread.execute;
var
instr :string;
begin sleep(10000);
if Assigned(tcpremote) then
begin
while tcpremote.IdTCPClient1.Connected do
begin
instr:=tcpremote.IdTCPClient1.ReadLn('');//线程里面执行这个也会导致主界面卡死?
//messagetext(instr);
end;
end
end;

为什么线程里面执行sleep都不会卡住主界面;而调用 scoket 读取返回信息就死掉了?

[lyhoo163]

线程中执行sleep，仅线程暂停。此时，它几乎不占用CPU。 线程中执行其它代码，该代码涉及VCL操作或网络硬件的操作时，当信息读取困难时，不仅自己线程停止，甚至造成主线程停止，出现屏幕停钝。

[满面尘，鬓如霜，何处话凄凉]

tcpremote 是界面上的控件吧 为什么不在线程里创建一个呢？

[mdejtod]

  while (not Terminated)    do
  begin
    with frmMain do
    begin
      if not Client.Connected then
      begin
        tmrTCPConnect.Enabled := True;
        Terminate;
      end
      else
      begin
        try
          Client.ReadBuffer(FBufData,SizeOf(FBufData));
        except
          
        end;
      end;
    end; 
  end;
  sleep(50);
end;

[youyidianmimang]

Synchronize ....唉