Delphi 获取本机IP地址

最新推荐文章于 2024-05-14 15:44:10 发布

转载最新推荐文章于 2024-05-14 15:44:10 发布 · 110 阅读

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/JackSun/archive/2010/09/28/1837403.html

本文介绍了一个使用WinSock库获取本地计算机IP地址的Delphi函数。该函数通过调用WSAStartup初始化WinSock，并利用GetHostName及GetHostByName获取主机名和对应的IP地址。通过解析返回的IP地址列表，可以得到所有可用的IP地址。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

uses WinSock; 

function LocalIP: String; 
 type TaPInAddr = Array[0..10] of PInAddr; 
       PaPInAddr = ^TaPInAddr; 
var phe: PHostEnt;
    pptr: PaPInAddr;
    Buffer: Array[0..63] of AnsiChar; 
    i: Integer;
    GInitData: TWSAData; 
begin
  WSAStartup($101, GInitData); 
  Result := ''; 
  GetHostName(Buffer, SizeOf(Buffer)); 
  phe := GetHostByName(buffer); 
  if phe = nil then 
    Exit; 
  pPtr := PaPInAddr(phe^.h_addr_list); 
  i := 0; 
  while pPtr^[i] <> nil do 
   begin 
     Result := inet_ntoa(pptr^[i]^); 
     Inc(i); 
   end; WSACleanup; 
  end; 
//测试:
procedure TForm1.Button1Click(Sender: TObject); 
begin 
ShowMessage(LocalIP); // 
end;

转载于:https://www.cnblogs.com/JackSun/archive/2010/09/28/1837403.html