在DELPHI中怎样实现通过域名得到IP地址？

yifan1008 2003-11-10 12:56:43

...全文

369 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

rewqrewq 2003-11-14

打赏
举报

来晚了

http://expert.csdn.net/Expert/TopicView1.asp?id=1989338

A_ZHU 2003-11-11

打赏
举报

WinSock

yifan1008 2003-11-11

打赏
举报

wsdata: TWSAData;
hostEnt: PHostEnt;
gethostname
WSACleanup
这些是在那个单元申名的？

RockEx 2003-11-10

打赏
举报

同意楼上的。

lvloj 2003-11-10

打赏
举报

function GetIPFromHost(const Name: string): string;
var
wsdata: TWSAData;
hostName: array[0..255] of char;
hostEnt: PHostEnt;
addr: PChar;
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
Result := Format('%d.%d.%d.%d', [byte(addr[0]),
byte(addr[1]), byte(addr[2]), byte(addr[3])]);
end
else
Result := '';
end
else
Result := ''
else
begin
Result := '';
end;
finally
WSACleanup;
end
end;