终端机连接到终端服务器上后，如何获得终端机本身的IP地址？

[zarge]

偶的程序需要根据IP地址来识别用户身份，因此需要取得终端机本身的IP地址，各位DX请支招

[jinjazz]

function LocalIP:string;
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^[I] <> nil do begin
result:=StrPas(inet_ntoa(pptr^[I]^));
Inc(I);
end;
WSACleanup;
end;

[zarge]

to jinjazz(近身剪（N-P攻略）)：

偶的程序是在终端服务器上跑的，取得的IP是服务器的IP，偶现在希望能获取终端机的IP，有什么办法？

[vinsonshen]

我越来越感觉到jinjazz(近身剪（N-P攻略）的牛气啦

[txlicenhe]

你们都跑这里来了，还不快回去盖楼。

[jinjazz]

楼上的~~一不小心没人出来~~~

在终端机里面跑的什么东西??

[jinjazz]

ft~~怎么又跑到bcb来了~~~

[路人丁]

如果你的服务器已经已经和终端机器建立了IP连接你就可以使用函数getpeername获得终端的IP地址了，如果没有连接，那你要在终端写个广播(UDP)自己IP地址的小程序然后在服务器上接收.

[zarge]

to dingzhenhhy(快疯了——学习VC……):

先谢了，待偶试验一下...

[zarge]

回复人： jinjazz(近身剪（N-P攻略）) ( ) 信誉：105 2005-02-22 17:52:00 得分: 0


ft~~怎么又跑到bcb来了~~~


呵呵，编程问题还是到编程版问比较合适

[zarge]

up

[wilsonloveada]

进来看看！学习！

[zarge]

up

[zarge]

Hoho～ 总算解决了，分享～

LPTSTR ppBuffer = NULL;
DWORD pBytesReturned = 0;
PWTS_CLIENT_ADDRESS pWTSCA = NULL;

BOOL b = WTSQuerySessionInformation( WTS_CURRENT_SERVER_HANDLE,
WTS_CURRENT_SESSION,
WTSClientAddress,
&ppBuffer,
&pBytesReturned);

pWTSCA = (PWTS_CLIENT_ADDRESS)ppBuffer;

Memo1->Lines->Add( IntToStr( pWTSCA->Address[2] ) );
Memo1->Lines->Add( IntToStr( pWTSCA->Address[3] ) );
Memo1->Lines->Add( IntToStr( pWTSCA->Address[4] ) );
Memo1->Lines->Add( IntToStr( pWTSCA->Address[5] ) );

WTSFreeMemory( ppBuffer );