急.TServerSocket的onClientRead为什么会执行两次呢

[tx183584]

在delphi2010中

procedure TForm1.ServerSocketClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var
  len:Word;
  buf:array of char;
  Data:string;
begin
   Socket.ReceiveBuf(len,2); //存放内容长度
   SetLength(buf,len);   //len是按字符数
   Socket.ReceiveBuf(Buf[0],len*2);  //len按字节数
   setLength(Data,len);
   move(buf[0],Data[1],len*2);
   InfoInit(Data);
end;

[keeley20]

你发送数据的代码贴上来看看。

[bdmh]

是不是自己给自己又发了一次

[tx183584]

[Quote=引用 3 楼 bdmh 的回复:]

是不是自己给自己又发了一次
[/Quote]
肯定没有.因为第二次触发这事件里数据的内容是不一样的.我每次发送数据内容都是固定的.发送数据的是用C#写的