服务器端
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
showmessage('connected');
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
showmessage('reading');
end;
客户端
procedure TForm1.connectClick(Sender: TObject);
begin
clientsocket1.Address:='211.87.211.162';
clientsocket1.Open;
end;
procedure TForm1.sendmsgClick(Sender: TObject);
begin
clientsocket1.Socket.SendText('hello');
end;
为什么不管在客户端点“连接”还是“送消息”,服务器端都没有反应?而且运行一段时间后出现"asynchronous socket error"错误(客户端服务器端都运行在我的电脑上,Address为我的IP,都用80端口(应该不是端口问题吧,其他端口我也试了,也不行)
谢谢