装ADSL的机器不能正确显示自己IP的问题 我的机器装了ADSL,我编写程序得到自己的IP,可老是得到同样的IP(估计是网卡的IP),如何才能得到真正的IP? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 adsl将动态生成另外ip。比如ipconfig会显示原ip。ipconfig /all会显示所有ip。贴出你取ip方式 我就是用NMMsg控件的LocalIP显示的啊,您说该怎么办? 你很可能只取了本机上的第一个ip地址,你尝试把它多址主机,穷尽所有的ip吧! 多谢各位的关心,我现在用了这段代码,可以正确取得IPuses winsockfunction LIP : String;typeTaPInAddr = array [0..10] of PInAddr;PaPInAddr = ^TaPInAddr;varphe : PHostEnt;pptr : PaPInAddr;Buffer : array [0..63] of char;I : Integer;GInitData : TWSADATA;beginWSAStartup($101, GInitData);Result := '';GetHostName(Buffer, SizeOf(Buffer));phe :=GetHostByName(buffer);if phe = nil then Exit;pptr := PaPInAddr(Phe^.h_addr_list);I := 0;while pptr^[I] <> nil do beginresult:=StrPas(inet_ntoa(pptr^[I]^));Inc(I);end;WSACleanup;end; listbox怎么取得所有选择了的项的值 数据怎么删除不掉,是那里算法有问题??急 向listbox中添加很慢需要5秒,有好办法吗,谢谢 初学delphi请教,在paradox表中,type中的Alpha类型?各位帮帮忙:) 各位大哥帮忙 打开access数据库,发现数据还没有被加入,是缓存的事,还是要再执行什么语句呢? 目录选择窗体 在Delphi中如何获得计算机中CPU、主板和硬盘的序列号。 csdn论坛怎样搜索啊? 求助:同步选择DBGrid问题 怎么判断一个字符串是以'.'开头的? Ask
贴出你取ip方式
uses winsockfunction LIP : String;
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe : PHostEnt;
pptr : PaPInAddr;
Buffer : array [0..63] of char;
I : Integer;
GInitData : TWSADATA;
begin
WSAStartup($101, GInitData);
Result := '';
GetHostName(Buffer, SizeOf(Buffer));
phe :=GetHostByName(buffer);
if phe = nil then Exit;
pptr := PaPInAddr(Phe^.h_addr_list);
I := 0;
while pptr^[I] <> nil do begin
result:=StrPas(inet_ntoa(pptr^[I]^));
Inc(I);
end;
WSACleanup;
end;