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

mars_han 2004-05-05 12:53:58
我要用hub连接多台终端,如何获得终端的ip和计算机名,一位不同机器分配不同权限? 请给出这两个函数的具体小例。多谢!!!
...全文
76 10 点赞 打赏 收藏 举报
写回复
10 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Rex_love_Burger 2004-05-08
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;

  • 打赏
  • 举报
回复
bottom 2004-05-08
倒偶想知道在服务器端直接获得客户端怎么办呢?
  • 打赏
  • 举报
回复
ahjoe 2004-05-08
客户端有程序吧?客户端程序可以调用getcomputename,gethostbyname,再把信息传给服务端可以吧!
  • 打赏
  • 举报
回复
mars_han 2004-05-07
不是吧……
  • 打赏
  • 举报
回复
visual_cjiajia 2004-05-06
等于没回答!
  • 打赏
  • 举报
回复
hsmserver 2004-05-05
getcomputename
gethostbyname
  • 打赏
  • 举报
回复
apache57 2004-05-05
iphlper api可以帮助你完成任务。
  • 打赏
  • 举报
回复
visual_cjiajia 2004-05-05
倒人家楼主要的 客户端的 不是本地的吧
  • 打赏
  • 举报
回复
abrahambb 2004-05-05
gethostbynam,得到名称后有关的信息,比如IP 也就可以得到啦
StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));
  • 打赏
  • 举报
回复
bottom 2004-05-05
偶也要,毕业设计中一个小模块就要这个!!
  • 打赏
  • 举报
回复
相关推荐
发帖
Windows SDK/API
加入

1163

社区成员

Delphi Windows SDK/API
申请成为版主
帖子事件
创建了帖子
2004-05-05 12:53
社区公告
暂无公告