delphi下在client端如何获得NT服务器的IP。

[Michaelyfj]

delphi下在client端如何获得NT服务器的IP。

[meijg]

gethosbyname(pcname:string);
pcname就是机器名，设为服务器的名称就可以了

[xiaoya]

根据计算机名得到IP地址的函数：
uses
WinSock;

function GetIPByName(AName: String): 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 := '';
StrPCopy(Buffer, AName);
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;
我也是抄别人的。:-P

[Michaelyfj]

帖子加分拉！

[Michaelyfj]

to xiaoya
请问要到哪些Unit

[meijg]

他的程序已经很好了，只要用到winsock就行了
要不要给你个现成的程序

[Michaelyfj]

to meijg:
谢谢你的热心，最好给我现成的完整的程序，到时给你一半分数。

[meijg]

做好了，发给你了，记得给分。：-）

[meijg]

收到没有，还是忘了给分了