如何实现从域名到IP地址的转换(100分)

  • 主题发起人 主题发起人 孔枫
  • 开始时间 开始时间
孔

孔枫

Unregistered / Unconfirmed
GUEST, unregistred user!
我想做一个实现前述功能的小东东，哪位大虾可指点一下，用Delphi 和 ASP
均可。
 
GetHostByName
 
uses WinSock;

function DomainName2IP(Name: string): string;
var
WSAData: TWSAData;
HostEnt: PHostEnt;
begin
Result := '';
WSAStartup(2, WSAData);
HostEnt := gethostbyName(Name);
if HostEnt = nil then Exit;
with HostEnt^ do
Result := PChar(Format('%d.%d.%d.%d', [Byte(h_addr^[0]), Byte(h_addr^[0]),
Byte(h_addr^[0]), Byte(h_addr^[0])]));
WSACleanup;
end;
 
去试试
 
xWolf的程序有四个地方错误；正确如下：
uses WinSock;
function DomainName2IP(Name: string): string;
var
WSAData: TWSAData;
HostEnt: PHostEnt;
begin
Result := '';
WSAStartup(2, WSAData);
HostEnt := gethostbyName(Pchar(Name));
if HostEnt = nil then Exit;
with HostEnt^ do
Result := PChar(Format('%d.%d.%d.%d', [Byte(h_addr^[0]),Byte(h_addr^[1]),Byte(h_addr^[2]), Byte(h_addr^[3])]));
WSACleanup;
end;
 
看看大富翁以前的问题吧！
 
多人接受答案了。
 
应该我谢才对啊
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
M
局域网中有4个公的IP地址， 为什么在实现局域网INTERNET接入时，只有两个IP地址可用？(100分)
回复
13
查看
327
mycwcgr_bak
M
P
已知网址,如何将其变换为IP地址(100分)
回复
4
查看
173
panzichan
P
C
请问整数和IP地址之间如何转换？（有负整数）(100分)
回复
6
查看
283
yvtong
Y
J
域名转IP如何实现？(16分)
回复
2
查看
87
jamers
J
后退
顶部