测试ip地址是否存在.txt

delphi 编程技巧

//测试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;