delphi - FireMonkey3下检测本地IP地址

Question

需要在FireMonkey3下检测本地IP地址。在VCL版本中，我一直在使用单元WinSock及其方法

WSAStartup(...)
gethostname(...)

一个限制:不需要使用任何第三方库。我正在将ASTA组件移植到FireMonkey3平台，并且不想在组件之间建立依赖关系。

Answer 1

如果您需要跨平台解决方案，请尝试使用 Indy 和 IdStack 单元中包含的 TIdStack.AddLocalAddressesToList 方法

尝试这个示例

var
  AAddresses: TStrings;
begin
  AAddresses := TStringList.Create;
  try
    TIdStack.IncUsage;
    try
      GStack.AddLocalAddressesToList(AAddresses);
    finally
      TIdStack.DecUsage;
    end;
    if AAddresses.Count > 0 then
      //do something
  finally
    AAddresses.Free;
  end;
end;