请问 ServerSocket1ClientRead 事件中 能否获得 某Client在 ServerSocket.Socket.Connections[]的

请问 ServerSocket1ClientRead 事件中 能否获得 某Client在 ServerSocket.Socket.Connections[]的 ID (100分)<br />请问 ServerSocket1ClientRead 事件中 能否获得 某Client在 ServerSocket.Socket.Connections[]的 ID

计算机名，要不你在消息前加个头，然后在服务器端区分这个头。

function ComputerIP:String;
var pheHostEnt;
w:TWSAData;
ip_address:longint;
p:^longint;
ipstr:string;
begin
if WSAStartup(2,w)<>0 then exit;
phe:=gethostbyname(pchar(ComputerName));
if phe<>nil then
begin
p:=pointer(phe^.h_addr_list^);
ip_address:=p^;
ip_address:=ntohl(ip_address);
ipstr:=IntToStr(ip_address shr 24)+'.'+IntToStr((ip_address shr 16) and $ff)
+'.'+IntToStr((ip_address shr 8) and $ff)+'.'+IntToStr(ip_address and $ff);
Result :=ipstr;
end;
end;

自己定义数据格式!在服务器端获取IP

但是如果遇到同一个ip的两个client 怎么办呢？

加上client端的port