[SOLVED] TProcess.Input.Write + KonsolenProgramm

[mark332]

Hi Leute

wie ein paar von euch schon wissen sollten, schreibe ich an einem Programm, das ein Konsole mit bestimmten Argumenten startet, dessen Output ausliest und in einem Memo anzeigt. Bis hier alles schon geschafft

Ich brauche nun eine Möglichkeit, der Konsole irgenwie einen Input zu geben (so als würde man das in ihr eingeben und enter drücken)
und habe mich mal mit:

Code: Alles auswählen

 
procedure TForm_main.Button_sendCommandClick(Sender: TObject);
begin
  if javaProcessRunning then begin
    if javaProcess.Running then begin
       Edit_command.text:=Edit_command.text+#10; //<-- mit und ohne
       javaProcess.Input.Write(Edit_command.text, Length(Edit_command.text));
       Edit_command.clear;
    end;
  end;
end; 
 

... daran versucht.

Nun, leider passiert hier irgendwie einfach garnichts
Hinweis: Konsole ist mit poUsePipes gestartet und es kommen auch keine Fehlermeldungen.

Habe ich etwas falsch verstanden, oder läuft das bei Konsolen+TProcess ein wenig anders als in der Dokumentation ?

MfG

mark332

[mse]

Ich brauche nun eine Möglichkeit, der Konsole irgenwie einen Input zu geben (so als würde man das in ihr eingeben und enter drücken)

Nur für den Fall, dass du mal experimentieren möchtest oder nachschauen wie es gemacht werden kann, MSEgui hat für diesen Zweck tterminal (tab 'edit'). Setze es in ein twidgetgrid und du hast einen einfachen Terminal-Emulator. Ohne twidgetgrid funktioniert es nicht! twidgetgrid+tterminal wird beispielsweise in MSEgit als git Konsolenfenster verwendet.

[mark332]

Versuchen kann ichs mal,

was ich allerdings glaube, ist, dass der Konsole einfach nur das 'Enter' fehlt (habe da was von LineEnding gelesen?!), nur weiß ich gerade nicht, wie ich der Konsole das drücken der Entertaste signalisiere...

[Michl]

... Konsole einfach nur das 'Enter' fehlt (habe da was von LineEnding gelesen...

ungetestet: probiere mal an deinen String noch #13#10 anzuhängen

[mark332]

Jup, werde ich heute Nachmittag mal testen

[mark332]

Danke dir Michl

Code: Alles auswählen

 
procedure TForm_main.Button_sendCommandClick(Sender: TObject);
begin
  if javaProcessRunning then begin
    if javaProcess.Running then begin
       Edit_command.text:=Edit_command.text;
       javaProcess.Input.Write(Edit_command.text, Length(Edit_command.text));
       javaProcess.input.Write(#13#10, Length(#13#10));
       Edit_command.clear;
    end;
  end;
end; 
 

Gibt zumindest eine Rückmeldung:
"Unknown command."
D.h., dass die Konsole einen Command bekommt, diesen aber nicht kennt...
EDIT:
Wenn ich #13#10 direkt hinter den String hänge, passiert wieder garnichts

MfG

[Michl]

Gemäß diesem Beispiel steht dort:

Code: Alles auswählen

procedure TMultipleProcessDemoForm.SendInput(Process:TProcess;InputMemo:TMemo);
var
  InputStrings: string;
begin
  if Process.Running then begin
    InputStrings := InputMemo.Lines.Text;
    Process.Input.Write(InputStrings[1], length(InputStrings));
  end;
end;

Ungetestet: Müsstest du deinen Code mal entsprechend anpassen und probieren

Code: Alles auswählen

procedure TForm_main.Button_sendCommandClick(Sender: TObject);
var
  InputStrings: string;
begin
  if javaProcessRunning then begin  //ist das nicht mit der nächsten Zeile doppelt gemoppelt?!
    if javaProcess.Running then begin
//       Edit_command.text:=Edit_command.text;  //Was bezweckst du hier?
       InputStrings := Edit_command.text;
       javaProcess.Input.Write(InputStrings[1], Length(length(InputStrings)));
//       javaProcess.input.Write(#13#10, Length(#13#10));
       Edit_command.clear;
    end;
  end;
end; 

[mark332]

Gemäß diesem Beispiel steht dort:

Code: Alles auswählen

procedure TMultipleProcessDemoForm.SendInput(Process:TProcess;InputMemo:TMemo);
var
  InputStrings: string;
begin
  if Process.Running then begin
    InputStrings := InputMemo.Lines.Text;
    Process.Input.Write(InputStrings[1], length(InputStrings));
  end;
end;

Ungetestet: Müsstest du deinen Code mal entsprechend anpassen und probieren

Code: Alles auswählen

procedure TForm_main.Button_sendCommandClick(Sender: TObject);
var
  InputStrings: string;
begin
  if javaProcessRunning then begin  //ist das nicht mit der nächsten Zeile doppelt gemoppelt?!
    if javaProcess.Running then begin
//       Edit_command.text:=Edit_command.text;  //Was bezweckst du hier?
       InputStrings := Edit_command.text;
       javaProcess.Input.Write(InputStrings[1], Length(length(InputStrings)));
//       javaProcess.input.Write(#13#10, Length(#13#10));
       Edit_command.clear;
    end;
  end;
end; 

die Variable javaProcessRunning nutze ich, um eine exeption unterbinden, die bei javaProcess.Running ausgeworfen wird, sollte diese vor dem Create von javaProgress aufgerufen werden...
Edit_command.text:=Edit_command.text; ist wohl ein vergessenes Überbleibsel eines Versuches :$

Ich werde deinen Vorschlag mal testen

MfG

[mark332]

okey, folgendes geht.

Code: Alles auswählen

 
procedure TForm_main.Button_sendCommandClick(Sender: TObject);
var
  InputStrings: string;
begin
  if javaProcessRunning then begin
    if javaProcess.Running then begin
       Memo_inputrdr.clear;
       Memo_inputrdr.lines.add(Edit_command);
       InputStrings := Memo_inputrdr.Lines.Text;
       javaProcess.Input.Write(InputStrings[1], length(InputStrings));
    end;
  end;
end;
 

Ich werde, wenn nicht eine bessere Lösung auftaucht, das ganze einfach über ein versteckes Memo umleiten

Danke Michl,

MfG

mark332

[Michl]

Ich werde, wenn nicht eine bessere Lösung auftaucht, das ganze einfach über ein versteckes Memo umleiten

Der Unterschied dürfte, wie selbst am Anfang festgestellt, am Ende des Strings zu suchen sein:

Code: Alles auswählen

       InputStrings := Edit_command.text+#13+#10;

Könnte dann gehen?!

[mark332]

Ich werde, wenn nicht eine bessere Lösung auftaucht, das ganze einfach über ein versteckes Memo umleiten

Der Unterschied dürfte, wie selbst am Anfang festgestellt, am Ende des Strings zu suchen sein:

Code: Alles auswählen

       InputStrings := Edit_command.text+#13+#10;

Könnte dann gehen?!

mal testen

[mark332]

jup geht auch

Also hier nochmal ein Danke an dich Michl

Mfg

mark332