CnPack Forum - Powered by Discuz! Board

Subject: TCnIp可以获取本机IP列表吗？ [Print This Page]

Author: sibad_sh Time: 2009-3-31 16:31 Subject: TCnIp可以获取本机IP列表吗？

Ip: TCnIp;
.....

Ip.IPAddress;可以获取到本机一个ip

IP.LocalIPCount;可以获取到本机有几个IP

怎么获取本机其他的IP？

Author: Passion Time: 2009-3-31 23:42

先移动到CnPack组件包版了。

Author: sibad_sh Time: 2009-4-1 19:29

Passion: 帮我下忙，告诉我怎么获取其他IP？

Author: Passion Time: 2009-4-8 07:30

LocalIPGroup这个动态数组就是。

Author: kmchen Time: 2009-4-10 00:18 Subject: cnip报错。

scnipname,scnpack_sesame等几个变量没有定义，是不是我没引用什么单元呀。第一次用cnpack组件，请多多原谅。谢谢。

Author: sibad_sh Time: 2009-4-11 16:59

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

该不是还要转换吧

Author: Passion Time: 2009-4-11 21:31

烦请使用IP.IntToIP(IP.LocalIPGroup[I].IPAddress);

也就是其方法：
function IntToIP(const aIP: Cardinal): string;
{* 转换整数为IP地址}
来进行转换。

Author: sibad_sh Time: 2009-4-20 10:38

谢谢Passion

Welcome to CnPack Forum (http://bbs.cnpack.org/)