2009-3-31 16:31
sibad_sh
TCnIp可以获取本机IP列表吗?
Ip: TCnIp;
.....
Ip.IPAddress;可以获取到本机一个ip
IP.LocalIPCount;可以获取到本机有几个IP
怎么获取本机其他的IP?
2009-3-31 23:42
Passion
先移动到CnPack组件包版了。:)
2009-4-1 19:29
sibad_sh
Passion: 帮我下忙,告诉我怎么获取其他IP?
2009-4-8 07:30
Passion
LocalIPGroup这个动态数组就是。
2009-4-10 00:18
kmchen
cnip报错。
scnipname,scnpack_sesame等几个变量没有定义,是不是我没引用什么单元呀。第一次用cnpack组件,请多多原谅。谢谢。
2009-4-11 16:59
sibad_sh
IP := TCnIp.Create(nil);
try
for I := 0 to IP.LocalIPCount -1 do
begin
addr.S_addr := IP.LocalIPGroup[I].IPAddress;
Memo.Lines.Add(String(inet_ntoa(addr)));
end;
finally
FreeAndNil(IP);
end;
显示反过来了?
20.1.168.192
该不是还要转换吧
2009-4-11 21:31
Passion
烦请使用IP.IntToIP(IP.LocalIPGroup[I].IPAddress);
也就是其方法:
function IntToIP(const aIP: Cardinal): string;
{* 转换整数为IP地址}
来进行转换。
2009-4-20 10:38
sibad_sh
谢谢Passion
页:
[1]
Powered by Discuz! Archiver 5.0.0
© 2001-2006 Comsenz Inc.