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;