android - Delphi 10 - 在 Android 上执行命令行并实时获取输出

Question

我正在尝试在 Android 上使用 Delphi 10 执行命令行并获取命令的输出。

我正在使用这里的文件:

https://github.com/FMXExpress/android-object-pascal-wrapper/tree/master/android-23

这是我的代码:

uses Classes,
     Androidapi.Helpers,
     java.lang.Process, java.lang.Runtime,
     java.io.OutputStream, java.io.InputStream,
     java.io.InputStreamReader, java.io.BufferedReader;

procedure Execute(sCmd: string; sOut : TStringList);
var Process : JProcess;
    Runtime : JRuntime;
    Input   : JInputStream;
    BuffInput : JBufferedReader;  
begin

    Process := TJRuntime.JavaClass.getRuntime.exec(StringToJString(sCmd));
    //Input := JInputStream(Process.getInputStream);
    BuffInput := JBufferedReader(jInputStreamReader(Process.getInputStream) );
while (s  = '') do
begin
    s := JStringToString(BuffInput.readLine);
    sOut.Add(s);
 end;

 //--- Compile but get Segmentation fault(11) at 
 // s := JStringToString(BuffInput.readLine);

end;

Answer 1

多亏了 Ken White 的好评，我对这个问题有了更多的了解。

1:我需要使用 Androidapi.JNI.JavaTypes 而不是 java.io.InputStream -> 如果我使用 java.io.InputStream，Input.available 总是 0

2:执行命令后，我需要执行 Process.waitFor。我 guest ，我不能像旧的 DOS 那样有实时输出

3:如果有人知道更好的方法，欢迎 :P

procedure Execute(sCmd: string; sOut : TStringList);
var Process : JProcess;
    Runtime : JRuntime;

    Input   : JInputStream;

    x, bufflen: Integer;

    s: string;
    buff : TJavaArray<Byte>;

begin
  Process := TJRuntime.JavaClass.getRuntime.exec(StringToJString(sCmd));
  Process.waitFor;

  Input := Process.getInputStream;
  bufflen := Input.available;

  buff := TJavaArray<Byte>.Create(bufflen);
  Input.read(buff);

  s := '';

  for x := 0 to bufflen - 1 do
    s := s + chr(buff[x]);

  sOut.Add(s); 

end;