在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;