delphi 通过机器名读取IP地址的代码

本文整理自网络，侵删。

 function procedure TForm1.nametoip(name:string):string;
var
WSAData: TWSAData;
HostEnt: PHostEnt;
begin
result:='';
WSAStartup(2, WSAData);
HostEnt := gethostbyname(PChar(name));
if HostEnt <> nil then
begin
with HostEnt^ do
result:= Format('%d.%d.%d.%d', [Byte(h_addr^[0]), Byte(h_addr^[1]), Byte(h_addr^
[2]), Byte(h_addr^[3])]);
end;
WSACleanup;
end; 
 

相关阅读 >>

Delphi 精要-读书笔记(内存分配释放)

Delphi禁止在android上重复按下按钮

Delphi xe5下安卓开发技巧

Delphi的常用条件编译指令

Delphi判断按下的是回车键?

Delphi 从url地址中获得文件名

Delphi android检查互联网连接

Delphi xe 自己编辑xe2 vcl style(皮肤/skin)

Delphi 锁定系统解锁系统

Delphi program name、process id、window handle、process handle 的转换函数

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

转载请注明出处：木庄网络博客 » delphi 通过机器名读取IP地址的代码