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 idftp 错误：socket error 10054 �c connection reset by peer -连接被重置

Delphi tfinddialog treplacedialog对话框在memo中的使用

Delphi xe 10 跨平台三层数据库应用教程

Delphi替换字符串中的单引号

Delphi制作透明窗体

Delphi 获取其他进程句柄的几种方法

Delphi 使用tmemorystream保存多张图片到文件，并读取

Delphi 查找一个特定的exe是否在内存中运行

Delphi unidbtreegrid判断点击折叠事件

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

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