[轉貼]IP及Domain Name的轉換

[tim]

http://delphi.ktop.com.tw/topic.asp?topic_id=281
http://delphi.ktop.com.tw/topic.asp?TOPIC_ID=280

記得使用 Winsock;

代碼: 選擇全部

function GetDomainName(Ip:string):string;
var pH:PHostent;
   data:twsadata;
   ii:dword;
begin  WSAStartup($101, Data);
 ii:=inet_addr(pchar(ip));
 pH:=gethostbyaddr(@ii,sizeof(ii),PF_INET);
 if (ph<>nil) then   result:=pH.h_name  else   result:='';
 WSACleanup();
end;


function GetIP(Name:string) : string;
type TaPInAddr = array [0..10] of PInAddr;
    PaPInAddr = ^TaPInAddr;
var  phe :PHostEnt;
    pptr : PaPInAddr;
    I : Integer;
    GInitData : TWSADATA;
begin  WSAStartup($101, GInitData);
 Result := '';
 phe :=GetHostByName(pchar(Name));
 pptr := PaPInAddr(Phe^.h_addr_list);
 result:=StrPas(inet_ntoa(pptr^[0]^));
 WSACleanup;
end;