delphi 实现DNS上线域名解析（用于远控server）

本文整理自网络，侵删。

 function DnsToIP(HostName: string): string; 
type
tAddr = array[0..100] of PInAddr;
pAddr = ^tAddr;
var
I: Integer;
WSA: TWSAData;
PHE: PHostEnt;
P: pAddr;
begin
Result := '';

WSAStartUp($101, WSA);
try
PHE := GetHostByName(pChar(HostName));
if (PHE <> nil) then
begin
P := pAddr(PHE^.h_addr_list);
I := 0;
while (P^[I] <> nil) do
begin
Result := (inet_nToa(P^[I]^));
Inc(I);
end;
end;
except
end;
WSACleanUp;
end;

远控服务端常用的解析域名为IP的代码 比较容易实现 希望在这里结交许多朋友一起交流学习！
 

相关阅读 >>

Delphi 获取外网ip的函数

Delphi 快速选择文件夹路径

Delphi exec error 错误处理

Delphi 获取电脑进程网络连接ip端口

Delphi 检测cpu内核数

Delphi 搜索指定目录下的文件

Delphi 用内存流文件流资源生成客户端

Delphi 跟随鼠标位置点击弹出菜单

Delphi listbox自动获取列表框中的组件焦点

Delphi 获取窗体坐标触发事件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 实现DNS上线域名解析（用于远控server）