delphi - FireMonkey3 でのローカル IP アドレスの検出

Question

FireMonkey3 でローカル IP アドレスを検出する必要があります。VCLバージョンでは、ユニットWinSockをメソッドで使用しています

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

1 つの制限:サードパーティのライブラリを使用する必要はありません。ASTA コンポーネントを FireMonkey3 プラットフォームに移植していますが、コンポーネント間の依存関係は望んでいません。

Answer 1

クロスプラットフォーム ソリューションが必要な場合は、ユニットTIdStack.AddLocalAddressesToListに含まれている Indy とメソッドを使用してみてくださいIdStack

このサンプルを試す

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;