1,593
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
zsy_good 2003-08-31
- 打赏
- 举报
获得本机的IP据我知道有5种方法，可能还有。
NmHttp1在Delphi7里面已经不存在，在fastnet面板里面看看
NmHttp1在Delphi7里面已经不存在，在fastnet面板里面看看
readxsc 2003-08-31
- 打赏
- 举报
NMHTTP1在哪裡啊
cnsolonet 2003-08-28
- 打赏
- 举报
结帖了。
zzwli(蓝莓狸) 接分
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; 没定义,这是为什么
你的上面代码运行后出现
HostEnt: PHostEnt; GInitData: TWSADATA; 没定义,这是为什么
solonet 2003-08-27
- 打赏
- 举报
谢谢 zzwli(蓝莓狸)
那如果我还要得到本机在互联网上的IP呢？要怎样取得.
?
那如果我还要得到本机在互联网上的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;
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;
