小弟调试socket程序，遇到一个问题，忘高手解决。

Question

我建立server端和client端
client端不停向server发送请求
procedure TForm1.Timer1Timer(Sender: TObject);
begin
        ClientSocket.Open ;
        ClientSocket.Socket.SendText('vv') ;
        i:=i+1;
        label1.Caption:=inttostr(i);
        ClientSocket.Close ;
end;然后
procedure TForm1.ServerSocketClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
        hits:=hits+1;
        label2.Caption:='hits='+inttostr(hits);
        label3.Caption:=Socket.ReceiveText;
       
end;
为什么server端显示的hits与client端发送的次数不同，而且client的数字正好是server端的2倍。
望高手解答。

Answer 1

如果你的clientsocket和serversocket初始化的时候active都为true
就不会出现上面的错误
具体的问题我也不太清楚

Answer 2

或者你的clientsocket.open放在form oncreate里面

Answer 3

因为Open一次和SendText一次都会触发SocketServer的OnClientRead事件，所以建议你将clientsocket.open放到其它地方。

Answer 4

如果按照楼上的说法，那么server端的数字应该是client的2倍，现在正好是反过来。