请问如何得到一个连接的对方的IP？用Sock,当客户端有有连接时，在服务端如何得到其IP地址？(50分)

M

mynlxx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #1

在ClientConnect事件中可以得到IP吗？

 

X

xujia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #2

socket.remoteaddress对方的地址

 

C

chenxz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #3

socket.remotehost是对方的主机名

 

中

中原

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #4

利用Socket.RemoteAddress就能很容易的得到可以直接用的。

 

中

中原

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #5

procedure TFace.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
var
LinkIP:TStringList;//连接上来的机器IP地址
I:integer;
s,s1:string;
begin

LinkIP:=TstringLIst.create;
s1:=Socket.RemoteAddress;
for I:=0 to LinkIP.count-1 do begin
if LinkIP.Strings=s1 then exit;
end;
LinkIP.Add(s1);
s:=StatusBar1.Panels.Items[0].text;
StatusBar1.Panels.Items[0].text:=s+s1+#13;
end;

 

M

mynlxx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #6

多人接受答案了。