首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

Delphi,如何获取所有本地IP?

在 Delphi 中,获取所有本地 IP 地址的方法如下:

  1. 使用 TIdStack 类获取本地 IP 地址
代码语言:delphi
复制
uses
  IdStack, IdStackConsts;

function GetLocalIPAddresses: TStrings;
var
  Addrs: TIdStackLocalAddresses;
  I: Integer;
begin
  Result := TStringList.Create;
  try
    Addrs := TIdStack.Inc(nil).LocalAddresses;
    try
      for I := 0 to Length(Addrs) - 1 do
      begin
        Result.Add(Addrs[I].IPAddress);
      end;
    finally
      TIdStack.Dec(Addrs);
    end;
  except
    Result.Free;
    raise;
  end;
end;
  1. 使用 TIdStack 类获取本地 IP 地址和子网掩码
代码语言:delphi
复制
uses
  IdStack, IdStackConsts;

function GetLocalIPAddressesAndSubnetMasks: TStrings;
var
  Addrs: TIdStackLocalAddresses;
  I: Integer;
begin
  Result := TStringList.Create;
  try
    Addrs := TIdStack.Inc(nil).LocalAddresses;
    try
      for I := 0 to Length(Addrs) - 1 do
      begin
        Result.Add(Format('%s (%s)', [Addrs[I].IPAddress, Addrs[I].SubnetMask]));
      end;
    finally
      TIdStack.Dec(Addrs);
    end;
  except
    Result.Free;
    raise;
  end;
end;

这两个函数都会返回一个 TStrings 类型的对象,其中包含了本地 IP 地址和子网掩码。您可以根据需要选择其中一个函数来获取所有本地 IP 地址。

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

领券