Delphi获取计算机名称及IP地址

最新推荐文章于 2024-11-10 15:49:32 发布

原创最新推荐文章于 2024-11-10 15:49:32 发布 · 548 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#function #delphi

Delphi 专栏收录该内容

28 篇文章

订阅专栏

本文提供了一种使用Delphi代码获取计算机名称及IP地址的方法。通过初始化WinSock并调用相关API函数，实现了本地主机信息的检索。适用于需要在网络环境中快速定位主机的应用场景。


function GetComputerName:String; //获取计算机名称
var
  wVersionRequested : WORD;
  wsaData : TWSAData;
  p : PHostEnt; s : array[0..128] of char;
begin
  try
    wVersionRequested := MAKEWORD(1, 1); //创建 WinSock
    WSAStartup(wVersionRequested, wsaData); //创建 WinSock
    GetHostName(@s,128);
    p:=GetHostByName(@s);
    Result:=p^.h_Name;
  finally
    WSACleanup; //释放 WinSock
  end;
end;

function GetHostIP:String; //获取IP
var
   wVersionRequested : WORD;
   wsaData : TWSAData;
   p : PHostEnt; s : array[0..128] of char; p2 : pchar;
begin
   try
      wVersionRequested := MAKEWORD(1, 1); //创建 WinSock
      WSAStartup(wVersionRequested, wsaData); //创建 WinSock
      GetHostName(@s,128);
      p:=GetHostByName(@s);
      p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
      Result:= P2;
   finally
      WSACleanup; //释放 WinSock
   end;
end;