你用的是非阻塞方式的吧.
我一般是用的线程阻塞,不会有这问题.
办法倒是有的.
TCustomWinSocket有个Data属性.
在OnRead中给它一个值作为返回的判断.

解决方案 »

  1.   

    halfdream(哈欠) : 请说详细些,谢谢!
      

  2.   

    每一个连接就是一个socket
    每次对去数据时要纪录 socket handle
    procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    begin
      mm :=socket.Handle
    end;  for i:= 0 to    ServerSocket1.Socket.ActiveConnections-1 do
       if  ServerSocket1.Socket.Connections[i].Handle = mm then
          ServerSocket1.Socket.Connections[i].SendBuf
          //查找原先的socket