androidのコンピューター名やIPアドレスを取得する方法を教えてください (ID:148519)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Delphi10.3CEのIndy10で、androidのコンピューター名やIPアドレスを取得する方法を教えてください。

具体的には、androidの設定->システム->端末情報の機種名(モデル番号？)やIPアドレスを取得したい。

https://stackoverflow.com/questions/576538/delphi-how-to-get-all-local-ips
や
https://www.indyproject.org/2014/03/14/tidstack-addlocaladdressestolist-method-is-now-deprecated/
を参考に作ってみました。

uses IdGlobalProtocols
     HostName := IndyComputerName;

------------------------------------

uses IdStack
   LList: TIdStackLocalAddressList;
   LAddr: TIdStackLocalAddress;
   I: Integer;
begin
     LList := TIdStackLocalAddressList.Create;
     try
        GStack.GetLocalAddressList(LList);
        for I := 0 to LList.Count-1 do
            begin
                 LAddr := LList[I];
                 case LAddr.IPVersion of
                      Id_IPv4: begin
                                    Memo1.Lines.Add('IP(v4):'+LAddr.IPAddress);
                               end;
                      Id_IPv6: begin
                                    Memo1.Lines.Add('IP(v6):'+LAddr.IPAddress);
                               end;
                 end;
            end;
     finally
       LList.Free;
     end;

Windows10の環境では、NICの複数刺しや複数のIPアドレスを設定していても、問題なく取得できたのですが、
Android9では、HostNameには「localhost」、IPアドレスには「127.0.0.1」になってしまいました。

Androidで取得する方法を教えてください。
よろしくお願いいたします。

←解決時は質問者本人がここをチェックしてください。

戻る