Delphi XE6 和 Android Ping

Question

我想在 Android 平台中使用 indy 组件 TidIcmpClient 对服务器执行 ping 操作，但调试器会以“Socket Error #1”停止代码。代码在一个单独的线程中，所以我在这里发布线程代码：

procedure TEco.Execute;

var
   contadoreco: Cardinal;
   buffer: string;

begin
     buffer:='12345678901234567890123456789012';
     eco:=TIdIcmpClient.Create(nil);
     for contadoreco:=1 to 4 do
         begin
              with eco do
                   begin
                        ReceiveTimeout:=2000;
                        Host:=servidor;
                        PacketSize:=32;
                        Ping(buffer,contadoreco);
                        ipservidor:=ReplyStatus.FromIpAddress;
                   end;
              Synchronize(procedure
                          begin
                               Form1.StringGrid1.Cells[0,contadoreco]:=ipservidor;
                               Form1.StringGrid1.Cells[1,contadoreco]:=IntToStr(tiempoeco);
                          end);
         end;
     eco.Free;
end;

这里声明了 TEco 对象：

TEco = class(TThread)
           private
                  servidor: string;
                  eco: TIdIcmpClient;
                  terminado: Boolean;
                  tiempoeco: Cardinal;
                  ipservidor: string;
           protected
                    procedure Execute; override;
    end;

如何在 Android 中使用 TidIcmpClient ping 服务器？难道我做错了什么？超级用户权限之类的？在此先感谢您对我的帮助，并为英语不好感到抱歉。我希望你能理解我的问题;) :)

Answer 1

TIdIcmpClient 使用 RAW 套接字，这在大多数系统（包括 Android）上都需要管理员/root 访问权限。

使用 Android 自己的 API 在 Android 中执行 ping 有两种方法：

1. 使用InetAddress 类的isReachable() 方法。但是，显然这个does not work correctly。

2. 使用java.lang.ProcessBuilder() 生成/system/bin/ping。事实上，java.lang.Process 文档显示了一个例子。缺点是您必须手动解析输出。

任何一种解决方案都需要您使用 Delphi 的 JNI 包装器来访问相关的 Android API。