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编解码js字符串

Delphi 释放资源文件

Delphi comobj调用wmplayer播放音乐

Delphi 获得用android应用程序触摸到的位置(坐标)的方法

Delphi 在消息窗口中显示进度条

Delphi 获取屏幕缩放比例

Delphi xe5 android 设置权限

Delphi unicode转换ansi

Delphi http post json示例

为Delphi的控制台程式添加图标

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

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