Delphi获取本机所有的IP

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

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

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/Coder-MIFir/p/10675743.html

本文详细介绍了在Delphi中使用Indy组件的方法，并提供了两种实用的代码示例来获取本地计算机的IPv4地址。第一种方法通过TIdStackWindows组件的AddLocalAddressesToList函数直接读取；第二种方法则利用GetLocalAddressList函数遍历并筛选IP_V6后的IPv4地址。

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

安装Indy

uses IdStackWindows;

var
   Isw:TIdStackWindows;
   slist:TStringList;
begin
  Isw:=TIdStackWindows.Create;
  slist:=TStringList.Create;
  try
    Isw.AddLocalAddressesToList(slist);//这个方法可以取出IP
  finally
    FreeAndNil(Isw);
    FreeAndNil(slist);
  end;
end;

另外一种方法：

var
  sck: TIdStackWindows;
  address: TIdStackLocalAddressList;
begin
  sck := TIdStackWindows.Create;
  address := TIdStackLocalAddressList.Create;
  try
    sck.GetLocalAddressList(address);
    for i := 0 to address.Count - 1 do
    begin
      if address[i].IPVersion in [Id_IPv4] then  //过滤IP_V6
      begin
          Item.Caption := address[i].IPAddress; //item是其他变量
      end;
    end;
  finally
    FreeAndNil(sck);
    FreeAndNil(address);
  end;
end

XE10.x 使用正常

D2010

function GetLocalIP(Multi: Boolean = False): string;
type
  PPInAddr = ^PInAddr; //取本机IP，可取多个(分行列出)
var
  wsaData: TWSAData;
  HostInfo: PHostEnt;
  HostName: array[0..255] of Char;
  Addr: PPInAddr;
begin
  Result := '';
  if WSAStartup($0101, wsaData) <> 0 then
    exit;
  try
    if gethostname(HostName, SizeOf(HostName)) <> 0 then Exit;
    
    HostInfo := gethostbyname(HostName);
    if HostInfo = nil then Exit;
    
    Addr := Pointer(HostInfo^.h_addr_list);
    if (Addr = nil) or (Addr^ = nil) then Exit;
    
    Result := StrPas(inet_ntoa(Addr^^));
    inc(Addr);
    while (Addr^ <> nil) and Multi do begin
      Result := Result + ^M^J+ StrPas(inet_ntoa(Addr^^));
      inc(Addr);
    end;
  finally
    WSACleanup;
  end;
end;

转载于:https://www.cnblogs.com/Coder-MIFir/p/10675743.html