RSS订阅 | 匿名投稿
您的位置:网站首页 > 网络 > 正文

delphi 2010 域名转换IP

作者:admin 来源: 日期:2011/8/26 9:29:08 人气: 标签:

 

uses
winsock;

function GetHostIp_wwwdelphitopcom(HostName: string): string;
type
  tAddr = array[0..100] of PInAddr;
  pAddr = ^tAddr;
var
  I: Integer;
  WSA: TWSAData;
  PHE: PHostEnt;
  P: pAddr;
begin
  Result := '';

  WSAStartUp($101, WSA);
  try
  PHE := GetHostByName(pansichar(ansistring(HostName)));
  if (PHE <> nil) then
  begin
  P := pAddr(PHE^.h_addr_list);
  I := 0;
  while (P^[I] <> nil) do
  begin
  Result := (inet_nToa(P^[I]^));
  Inc(I);
  end;
  end;
  except
  end;
end;


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: