请教Socket连接的基本问题。谢谢。

Question

设一数组
Type
  TConnectArr=record
    IP: String;
    Index: Integer
  end;
  
  Connectarr: array of TConnectArr
以后的事，
你爱咋就咋

Answer 1

ServerSocket.Socket.Connections[Index].RemoteAddress//客户IP
ServerSocket.Socket.Connections[Index].RemoteHost  //客户主机名

Answer 2

我想知道如果好几个ClientSocket在连接，怎样去建立这
ServerSocket.Socket.Connections[Index]的，又是怎样去知道当前是哪个Index在连接，而进行通信的。谢谢。

Answer 3

还请大侠帮忙，我等着呢。
怎样当每个ClientSocket连接上ServerSocket时，建立ServerSocket.Socket.Connections[Index],
在通讯时，怎么知道是哪个Index的在通讯，而做出响应。
谢谢，谢谢。

Answer 4

因该是这样的；socket控件 连接时会产生 socketprocedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
   socket.SocketHandle就是每一个 连接的句柄；把它记录下来 aaaaafor i:=0 to ServerSocket1.Socket.ActiveConnections-1 do  if ServerSocket1.Socket.Connections[I]=aaaa then
       ServerSocket1.Socket.Connections[1].SendBuf(...)