delphi 关于FIdTCPClient.ReadBuffer

Question

FIdTCPClient.WriteBuffer(QueryInfo, SizeOf(QueryInfo), True);
Sleep(1000);
FIdTCPClient.ReadTimeout := 2000 ;
FIdTCPClient.ReadBuffer(RetMsg, SizeOf(RetMsg));部分代码如上，经常出现发送成功，但是接收一直处于死循环状态，接收不到，有时候会说超时，但是有时候就一直停留在接收过程。希望大家帮忙，解决停留问题。
这段代码是写在进程里面的，要不然就会停止，进程无法执行下去……

Answer 1

FIdTCPClient.WriteBuffer(QueryInfo, SizeOf(QueryInfo), True);
Sleep(1000);
FIdTCPClient.ReadTimeout := 5000 ;//时间稍微长一些试一下
FIdTCPClient.ReadBuffer(RetMsg, SizeOf(RetMsg));

Answer 2

ReadBuffer就是一直接收数据直到超时，这样的代码应该放到线程中，采用消息通知方式执行，否则会一直卡住当前进程的。