在DEPHI 程序中如何取得本机的IP？

solonet 2003-08-25 04:18:30

...全文

44 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

zsy_good 2003-08-31

打赏
举报

获得本机的IP据我知道有5种方法，可能还有。
NmHttp1在Delphi7里面已经不存在，在fastnet面板里面看看

readxsc 2003-08-31

打赏
举报

NMHTTP1在哪裡啊

cnsolonet 2003-08-28

打赏
举报

结帖了。

zzwli(蓝莓狸) 接分

zzwli 2003-08-28

打赏
举报

不知道呀!!我也想知道耶!!因为知道的话就可以去回"如何获取internet中的IP地址?"这张贴了!!有50分好得耶!!呵呵!!!哪位高手出出招吧!!!

zzwli 2003-08-28

打赏
举报

呵呵!!原来这方法也适用于INTERNET呀!我还以为只适用于局域网呢!:P嘻!!谢了!!!好棒哦!!第一次收获!!!很有成就感哦!!!呵呵!!!

cool2003 2003-08-27

打赏
举报

DELPHI 7 INDY 组件中 LOCALIP属性可以直接获得

devilwind 2003-08-27

打赏
举报

ShowMessage(NMHTTP1.LocalIP)这就是你在INTERNET的IP

solonet 2003-08-27

打赏
举报

chinawzg(风雨) 兄

你的上面代码运行后出现

HostEnt: PHostEnt; GInitData: TWSADATA; 没定义,这是为什么

solonet 2003-08-27

打赏
举报

谢谢 zzwli(蓝莓狸)
那如果我还要得到本机在互联网上的IP呢？要怎样取得.
?

zzwli 2003-08-27

打赏
举报

添加一个NMHTTP1控件,然后ShowMessage(NMHTTP1.LocalIP);即可得到本机的IP了.

solonet 2003-08-27

打赏
举报

use winsock 已经加上了。请帮忙？

devilwind 2003-08-27

打赏
举报

前面加上use winsock就可以了!

xiaoxiao_8 2003-08-26

打赏
举报

如果是在局域网内的机子，如何获得在Internet上的IP呢？

chinawzg 2003-08-26

打赏
举报

GetLocalIP(var LocalIp: string): Boolean;

var

HostEnt: PHostEnt;

Ip: string;

addr: pchar;

Buffer: array [0..63] of char;

GInitData: TWSADATA;

begin

Result := False;

try

WSAStartup(2, GInitData);

GetHostName(Buffer, SizeOf(Buffer));

HostEnt := GetHostByName(buffer);

if HostEnt = nil then Exit;

addr := HostEnt^.h_addr_list^;

ip := Format('%d.%d.%d.%d', [byte(addr [0]),

byte (addr [1]), byte (addr [2]), byte (addr [3])]);

LocalIp := Ip;

Result := True;

finally

WSACleanup;

end;