[求助]如何获取本机IP - Delphi论坛

编程论坛 → 开发语言 → 『 Delphi论坛』 → [求助]如何获取本机IP

标题：[求助]如何获取本机IP

只看楼主

一只小鸟飞飞

等　级：新手上路
帖　子：7
专家分：0
注　册：2006-10-30

楼主

问题点数：0 回复次数：3

[求助]如何获取本机IP

小弟是新手，各位大哥、大姐帮帮忙。西西、谢谢

搜索更多相关主题的帖子: 获取　大姐　

2006-11-07 15:57

xu2000

等　级：贵宾
威　望：51
帖　子：3890
专家分：56
注　册：2006-4-8

第 2 楼

得分:0

var
p : PHostEnt;
s : array[0..128] of char;
sIP : pchar;
begin
{得到计算机名称}
GetHostName(@s, 128);
p := GetHostByName(@s);
//p^.h_Name-->计算机名
{得到机器IP地址}
sIP := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
Result := sIP;
end;

我会拿出我全部的钱财，以保你衣食无忧。我会献出我所有的智慧，以助你一帆风顺。我会想到所有的笑语，以令你展眉开颜。我会挤出最长的时间，以使你终生幸福。　 [本人原创的结婚宣言]

2006-11-07 18:41

一只小鸟飞飞

等　级：新手上路
帖　子：7
专家分：0
注　册：2006-10-30

第 3 楼

得分:0

能不能用控件获取呀

2006-11-08 08:51

一只小鸟飞飞

等　级：新手上路
帖　子：7
专家分：0
注　册：2006-10-30

第 4 楼

得分:0

谢谢。小弟知道了。呵呵

2006-11-08 09:12

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-101295-1-1.html