每一个连接就是一个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
每次对去数据时要纪录 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