网络常用函数

1 遍历IP

 

 

// 参数为网络字节序
// 如 192.0.0.1 (1<<24)+(0<<16)+(168<<8)+(192<<1) = 16820416; API   inet_addr('192.0.0.1')
procedure EnumiP(LowIp, HighIp: DWORD; var AStr: TStrings);
var
  I: DWORD;
begin
  for I := htonl(LowIp) to htonl(HighIp) do
    AStr.Add(inet_ntoa(TInAddr(htonl(I))));
end;