网络常用函数

1 域名转成IP地址

function  GetIp(DNS:  string ):  string ;
var
  Wsa: TWsadata;
begin
  WSAStartup($ 0202 , Wsa);
  Result : =  iNet_ntoa(PInAddr(GetHostByName(PAnsichar(DNS))^.h_addr_list^)^);
end ;

2

转载于:https://www.cnblogs.com/chengxin1982/archive/2009/08/27/1555103.html