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。 我是客人，我不能像旧的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;