如何获知对方的IP？(50分)

YourEyes · 2002-05-17

两个程序client和server
CLIENT用ClientSocket发送一条消息给Server,在SERVER端如何知道client的IP？

多谢

吉祥鸟 · 2002-05-17

procedure TForm1.ServerSocketAccept(Sender: TObject; Socket: TCustomWinSocket);
begin
Statusbar1.Panels[0].Text := 'Connected to: ' + Socket.RemoteAddress;
end;

梅游刃 · 2002-05-17

嘿。。。
我知道 NMMSGServ1.RemoteIP，得到的是CLINET端IP。
你有用吗？

zw84611 · 2002-05-17

如果用的是API，可以用recvfrom()

halps · 2002-05-17

client发送过来的信息里包含了它的IP地址，用Socket.RemoteAddress的值就是。

tianrei · 2002-05-19

客户端的程序中添加广播自己IP的代码,服务器端监听就行了!
服务器端用代码
procedure TForm1.NMUDP1DataReceived(Sender: TComponent;
NumberBytes: Integer; FromIP: String; Port: Integer);
begin

flagip:=FromIp;//这句话就可以达到客户端的IP
NMUDP1.ReadBuffer(xkeyword,numberbytes);

end;
客户端的广播代码
procedure TForm1.Timer2Timer(Sender: TObject);
begin
NMUDP1.SendBuffer(xkeyword,6);//发送广播
end;
注意设置NMUDP1的一些属性

OnlyU · 2002-06-07

procedure TForm1.Timer2Timer(Sender: TObject);
begin
NMUDP1.SendBuffer(xkeyword,6);//发送广播

张无忌 · 2002-06-07

Socket.RemoteAddress;

zhengcw · 2002-06-12

在接收消息时用Socket.RemoteAddress;可以得到发送方的ip地址。

OnlyU · 2002-08-04

YourEyes · 2002-08-04

接受答案了.

tianrei · 2002-08-10

如何获知对方的IP？(50分)

YourEyes

Unregistered / Unconfirmed

吉祥鸟

Unregistered / Unconfirmed

梅游刃

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

halps

Unregistered / Unconfirmed

tianrei

Unregistered / Unconfirmed

OnlyU

Unregistered / Unconfirmed

张无忌

Unregistered / Unconfirmed

zhengcw

Unregistered / Unconfirmed

OnlyU

Unregistered / Unconfirmed

YourEyes

Unregistered / Unconfirmed

tianrei

Unregistered / Unconfirmed

Similar threads