在Delphi6中使用TClientSocket工作在阻塞方式下与C程序的Server通讯如何知道有消息到达？！！！(100分)

[!]
特别急，请教各位大虾！！！！！！
超值赠送100分

用WaitForData()这个函数返回的时候就说明有数据到来!

我是个菜鸟，能说的具体一点吗

也许对你有所帮助：

wssRecvStream : TWinSocketStream;
clientSocket1 : TClientSocket;

wssRecvStream := TWinSocketStream.Create(clientSocket1.Socket,receiveTimeOut);

var
Buffer : Array[0..2047] of Char;
recvNum : Integer;
begin
if clientSocket1.Socket.Connected and wssRecvStream.WaitForData(receiveTimeOut) then
begin
FillChar(Buffer,SizeOf(Buffer),0);
recvNum := wssRecvStream.Read(Buffer, SizeOf(Buffer));
recevedBytes := recvNum;
end;
end;

多人接受答案了。