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

おかげで、私は、問題の詳細をディグ。

1：私はjava.io.InputStreamをAndroidapi.JNI.JavaTypesを使用する必要はありません - 私はjava.io.InputStreamを

2から使用している場合> Input.availableは常に0である：私のコマンドを実行した後、私は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;