域名转IP如何实现?(16分)

  • 主题发起人 主题发起人 jamers
  • 开始时间 开始时间
J

jamers

Unregistered / Unconfirmed
GUEST, unregistred user!
请各位大哥指点一下,我想输入一个域名,要程序返回一个它的IP地址,


我就这么多分,请帮帮忙啦…
 
GetHostByName():
----------------------------------------------
uses WinSock;
procedure TForm1.Button1Click(Sender: TObject);
var
WSAData: TWSAData;
HostEnt: PHostEnt;
sComputerName, sIP: string;
begin
sComputername:=edit1.text;
WSAStartup(2, WSAData);
HostEnt := gethostbyname(PChar(sComputerName));
if HostEnt <> nil then
begin
with HostEnt^ do
sIP := Format('%d.%d.%d.%d', [Byte(h_addr^[0]), Byte(h_addr^[1]), Byte(h_addr^[2]), Byte(h_addr^[3])]);
end;
WSACleanup;
edit2.text:=sIP;
end;
 
万分感谢!
接受答案
 
后退
顶部