delphi 域名解析IP 域名转为IP地址

最新推荐文章于 2025-05-04 10:03:49 发布

原创最新推荐文章于 2025-05-04 10:03:49 发布 · 774 阅读

1 ·

CC 4.0 BY-SA版权

Delhi 专栏收录该内容

64 篇文章

订阅专栏

本文详细介绍了使用Delphi XE2实现将域名转换为IP地址的具体函数。通过调用WSAStartup初始化Winsock库，然后使用gethostbyname函数获取主机的地址信息，最后解析并格式化IP地址。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

function HostToIP(Name: string; var Ip: string): Boolean; //Delphi XE2 将域名转IP
var
wsdata : TWSAData;
hostName : array [0…255] of Ansichar;
hostEnt : PHostEnt;
addr : PAnsiChar;
begin
WSAStartup ($0101, wsdata);
try
gethostname(hostName,sizeof(hostName));
StrPCopy(hostName, Name);
hostEnt := gethostbyname (hostName);
if Assigned (hostEnt) then
if Assigned (hostEnt^.h_addr_list) then begin
addr := hostEnt^.h_addr_list;
if Assigned (addr) then begin
IP := Format (’%d.%d.%d.%d’, [byte (addr [0]),
byte (addr [1]), byte (addr [2]), byte (addr [3])]);
Result := True;
end
else
Result := False;
end
else
Result := False
else begin
Result := False;
end;
finally
WSACleanup;
end;
end;