delphi里面如何实现域名转IP

问答知识库用户 |浏览272次
收藏|2014/05/17 22:00
如题,怎么样把一个域名解析为IP地址?

满意回答

2014/05/17 22:00

function DomainNameToIp(DomainName: string): string;
type
  tAddr = array [0 .. 100] of PInAddr;
  pAddr = ^tAddr;
var
  I: Integer;
  WSA: TWSAData;
  PHE: PHostEnt;
  P: pAddr;
begin
  Result := '127.0.0.1';
  WSAStartUp($101, WSA);
  try
    PHE := GetHostByName(PAnsiChar(ansistring(DomainName)));
    if (PHE <> nil) then
    begin
      P := pAddr(PHE^.h_addr_list);
      I := 0;
      while (P^[I] <> nil) do
      begin
        Result := string(ansistring(inet_nToa(P^[I]^)));
        Inc(I);
      end;
    end;
  except
  end;
end;

热心网友

其他回答(0)
0人关注该问题
待解决问题



+1
 加载中...