请教！在服务端如何取得客户端的ip地址(100分)

X

xzhifei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-29

• #1

本人想用TServerSocket和TClientSocket写一个Internet的测试程序，情况如下：
一台服务器，具有固定IP，使用服务端；
一台客户机，用局域网上网，使用客户端；
目前可从客户端连接到服务端，但是服务器端无法得到客户端的IP地址！

请问有什么办法能解决这个问题，最好有源程序，谢谢！！

 

C

chxm_sword

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-30

• #2

我以前开发的软件是在客户端获取IP送到服务端的，(Tsocketconnect)
从服务端获取IP地址，我也没有试过，如果你得到办法，请告诉我一下

 

C

chxm_sword

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-30

• #3

对了，忘了，是使用WSAstartup等网络函数

 

X

xzhifei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-30

• #4

感谢chxm_sword

还有没有人帮我啊

 

T

truecat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-30

• #5

既然客户端有程序，为什么不在客户端取得后发送到服务器端呢？ 何必绕圈子呢？

function TfrmBillWriteAncestor.LocalIP:string;//获得本机的ip地址
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe : PHostEnt;
pptr : PaPInAddr;
Buffer : array [0..63] of char;
I : Integer;
GInitData : TWSADATA;
BEGIN
WSAStartup($101, GInitData);
Result := '';
GetHostName(Buffer, SizeOf(Buffer));
phe :=GetHostByName(buffer);
IF phe = nil THEN Exit;
pptr := PaPInAddr(Phe^.h_addr_list);
I := 0;
while pptr^ <> nil do BEGIN
result:=StrPas(inet_ntoa(pptr^^));
Inc(I);
END;
WSACleanup;
END;

在interface
uses 加入winsock单元.

 

X

xzhifei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-30

• #6

客户端取得的IP好象不行，因为我想让服务端得到IP后，然后用做点对点的事情

 

迷

迷糊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-30

• #7

serversocket1.Socket.RemoteAddress;

 

C

csz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-30

• #8

var
cl : TClientSocket;
sr : TServerSocket;
begin
cl.Socket.LocalAddress;
cl.Socket.LocalHost;

sr.Socket.Connections.LocalAddress;
sr.Socket.Connections.LocalHost;

 

X

xzhifei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-30

• #9

上面的方法好象不行哦

 

C

csz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-01

• #10

sr.Socket.Connections.LocalAddress 这句不行吗？
根据i来取连接的地址，不行？

 

L

lingc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-05

• #11

从客户端发IP到服务端有局限性,比如通过代理上网的客户端(代理服务器可能是动态IP)
其实DELPHI里的DEMO里有，就是哪个CHAT例子

 

X

xzhifei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-03

• #12

多人接受答案了。