火急！！！！！关于Delphi7中TcpClient接收TcpServer数据的问题。

[cocainy]

问题时这样的。首先,TcpClient连接TcpServer；然后在TcpSercer.Accept事件中处理发送的数据。然后，就在TcpServer的这个接收事件中调用ClientSocket.SendLn('END')方法，发送数据到客户端。但是客户端的TcpClient.OnReceive事件并没有触发。源代码如下：

-----------------------------Server-------------------------
procedure TForm1.TcpServerAccept(Sender: TObject;
ClientSocket: TCustomIpClient);
begin
ClientSocket.SendLn('END');
end;

-----------------------------Client-------------------------
procedure TForm1.TcpClientReceive(Sender: TObject; Buf: PAnsiChar;
var DataLen: Integer);
begin
ShowMessage('测试返回');
end;

TcpClient,TcpServer的属性:
TcpClient.BlockModel:=bmBlocking
TcpServer.BlockModel:=bmThreadBlocking;

请高手执教。

[kuki84]

检查ip,端口设定.

[cocainy]

问题没得到很好的解决。
但是，结贴给分！！！！