装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; 寻求大量数据插入的办法。 怎么把一个字符串转化为整形啊??转化为单个字符也行!! 请教一下下~ 。 ~ 一个多表更新的问题? 我想做一个控件,继承自TSpeedButton,想去掉TSpeedButtonMouseEnter时凸出和MouseDown凹下的效果 浏览时可以看到所有内容,而打印时需要可以打印出所有项,都为QRLabel类型. fctreeview哪儿有下载? 请问大家都学了多久delphi就能自己写程序了! 什么控件既能显示文本,又能作为其他控件的容器啊?! 关于align的难题!!!(delphi) 怎么判断一个字符串是以'.'开头的? 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;