CnPack Forum » CnVCL 组件包 » TCnIp可以获取本机IP列表吗?


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.