将某一主机域名解析为IP地址。
2001-02-06 19:03
459 查看
将某一主机域名解析为IP地址。
使用 WinSock 单元;
过程如下:
function HostToIP(Name: string; var Ip: string): Boolean;
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
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;
测试时请在在线状态。
测试代码:
var
IP: string;
DNS: string;
begin
DNS := InputBox('输入DNS域名', '主机名称:', '');
if HostToIp(DNS, IP) then showmessage(IP);
end;
作者:Latfi Baran
使用 WinSock 单元;
过程如下:
function HostToIP(Name: string; var Ip: string): Boolean;
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
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;
测试时请在在线状态。
测试代码:
var
IP: string;
DNS: string;
begin
DNS := InputBox('输入DNS域名', '主机名称:', '');
if HostToIp(DNS, IP) then showmessage(IP);
end;
作者:Latfi Baran
相关文章推荐
- 将某一主机域名解析为IP地址
- 解析IP地址为主机域名
- 解析IP地址为主机域名
- 解析IP地址为主机域名。
- 字符串解析出所有ip地址
- [置顶] Laravel 框架 容器解析具体的某一个类 的执行 流程
- 如何强制使用某一大小的包去ping某个IP地址?
- 什么是IP地址反向解析
- 将IP地址解析为具体的地理位置
- Java输出通过InetAddress获得的IP地址数组详细解析
- 解析IP地址与MAC地址 (转载)
- 监听总结之解析问题二:由sqlnet.ora文件寻到EZCONNECT适配器程序来解析主机名为主机上的多个ip地址(*) 以及 tnsping是用来测试某个配置的监听程序是否启动
- 获取ip地址解析归属地
- 关于GetHostEntry无法解析IP地址和ReceiveFrom调用中ref关键字问题
- IP地址正则匹配解析
- 如何禁止除某个IP端的其它IP地址访问主机的某一服务
- 通过java解析域名获得IP地址
- 用strtok()解析IP地址
- 关于MAC地址与IP地址的存在解析(为什么有了MAC地址还要IP地址?)
- 利用搜狗api解析ip地址