测试ip地址是否存在.txt

来自「delphi 编程技巧」· 文本 代码 · 共 15 行

//测试IP地址是否存在
//uses winsock
function testip(IP:string):string;
var
  WSAData:TWSADATA;
  Addr:DWORD;
begin
  WSAStartup(2, WSAData);
  Addr:=inet_addr(PChar(IP));
  if gethostbyaddr(@Addr,sizeof(Addr),PF_INET)=nil then
    result:=''
  else   result:=ip;
  WSACleanup();
end;