~~~获得ip和计算机名~~~

[mars_han]

我要用hub连接多台终端，如何获得终端的ip和计算机名，一位不同机器分配不同权限？ 请给出这两个函数的具体小例。多谢！！！

[bottom]

偶也要，毕业设计中一个小模块就要这个！！

[abrahambb]

gethostbynam，得到名称后有关的信息，比如IP 也就可以得到啦
StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));

[visual_cjiajia]

倒人家楼主要的 客户端的 不是本地的吧

[apache57]

iphlper api可以帮助你完成任务。

[hsmserver]

getcomputename
gethostbyname

[visual_cjiajia]

等于没回答！

[mars_han]

不是吧……

[ahjoe]

客户端有程序吧？客户端程序可以调用getcomputename,gethostbyname，再把信息传给服务端可以吧！

[bottom]

倒偶想知道在服务器端直接获得客户端怎么办呢？

[Rex_love_Burger]

uses {...,}Winsock;

procedure ShowHostName;
var
wVersionRequested : WORD;
wsaData : TWSAData;
p : PHostEnt;
s : array[0..128] of char;
p2 : pchar;
begin
{启动 WinSock}
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);

{计算机名}
GetHostName(@s, 128);
p := GetHostByName(@s);
ShowMessage(Format('Computer name is ''%s''.', [p^.h_Name]));

{IP地址}
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
ShowMessage(Format('IP address is %s.',[p2]));

WSACleanup;
end;