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 从文件中读取图像类型

Delphi 如何从html格式的字符串中提取纯文本?

firemonkey使用android的路径信息

Delphi 时间增加一小时的技巧

Delphi2007-Delphi2010 程序不出现在任务栏的方法

Delphi 以十六进制显示数据内容

Delphi idtcp上传文件

Delphi之屏幕和窗口的坐标

[译]rad studio 10.4 新变化:面向控件的 vcl 样式管理

Delphi sha1加密函数

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...