特送上一题，给大家拜年了。祝大家新年快乐！万事如意！
delphi我不是很熟悉，刚接触。现在遇到一个问题像请教大家，应该如何处理。
我有一个线程，专门用来处理winsocket的接收字节流的，但是到
recv(socketClient, rcBody, SizeOf(rcBody), 0);
这一句的时候就不动了（这时候没有任何数据流，但是10秒以后会有，也就是链路检测包），10秒以后又能接收到，应该如何处理。程序代码大致如下：
Procedure TCheckThread.Execute;
Begin
Repeat
Synchronize(Receiver);
Until Terminated;
End;
Procedure TCheckThread.Receiver;
Procedure PrintActive;
Begin
Timer1.Enabled := True;
With llv.Items.Insert(0) Do
Begin
Caption := IntToStr(llv.Items.Count);
SubItems.Add(DateTimeToStr(Now));
SubItems.Add( '链路测试 ');
SubItems.Add( '接收到链路检测的Resp. ');
End;
End;
Var
rcBody: THEAD;
Begin
recv(socketClient, rcBody, SizeOf(rcBody), 0);
Case htonl(rcBody.command) Of
FWPP_ACTIVE_RESP: PrintActive;
End;
End;
[解决办法]
您的贴子很有意思
