Fragen zu TProcess

[Mathias]

Wen ich TProcess mit "ls" ausführe, wird schön in die Memo geschrieben.
Aber mache ich es mit avrdude, kommt nichts im Memo an.
Ausgeführt wird es aber, ansonsten würde die LED am USBasp nicht aufleuchten.

Code: Alles auswählen

procedure TForm1.Button2Click(Sender: TObject);
var
  AProcess: TProcess;
begin
  AProcess := TProcess.Create(nil);

//  AProcess.CommandLine := 'avrdude -patmega328p -cusbasp -v';
  AProcess.CommandLine := 'ls';

  AProcess.Options := AProcess.Options + [poWaitOnExit, poUsePipes];
  AProcess.Execute;

  Memo1.Lines.LoadFromStream(AProcess.Output);

  AProcess.Free;
end;

[shokwave]

Hi,

Code: Alles auswählen

AProcess.Options := AProcess.Options + [poWaitOnExit, poUsePipes];

poWaitOnExit bedeutet, dass er bis zum beenden des Prozeses wartet und dann den Output erst holt.

Guck dir mal den Wikieintrag dazu an. https://wiki.lazarus.freepascal.org/Exe ... en_Outputs

[Mathias]

Ich hatte mein Beispiel auch von diesem Wiki.
Das Beispiel von deinem Link habe ich jetzt probiert.
Auch dort will avrdude nicht.

Code: Alles auswählen

  AProcess.CommandLine := 'ls /home/tux/fpcupdeluxe_avr25 -R '; // geht
  AProcess.CommandLine := 'avrdude';  // geht nicht 

Dies ist mir ein Rätsel, wen ich ein AVR-Project mit Lazarus mache, dann kommt die Ausgabe von avrdude im Nachrichtenfenster. Siehe Anhang.

[Mathias]

Mir ist noch etwas aufgefallen.
Mache ich folgendes:

Code: Alles auswählen

$ mount >> test.txt

Dann wird alles in test.txt umgeleitet.
Bei

Code: Alles auswählen

$ avrdude >> test.txt

Ist die Ausgabe trotzdem auf dem Bildschirm.

Daher könnte man meinen avrdude verwendet nicht das Standard-Ausgabegerät.

Aber wieso erscheint es dann im Lazarus-Nachrichten Fenster ?
Oder auch bei der Arduino-IDE ?

[sstvmaster]

Laut diesem Beitrag https://forum.arduino.cc/index.php?topic=46083.0 schreibt avrdude nicht nach stdout sondern nach stderr.
Der Beitrag ist zwar schon alt und ich kann es nicht Testen, aber vielleicht hilfts.

Natürlich das auch noch nehmen: https://www.freepascal.org/docs-html/cu ... tderr.html

[Mathias]

Danke, das wars. Schon komisch, das avrdude in Stderr und nicht in Output schreibt.

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  AProcess: TProcess;
begin
  AProcess := TProcess.Create(nil);
  AProcess.CommandLine := 'avrdude -patmega328p -cusbasp -vvvvv';
  AProcess.Options := AProcess.Options + [poWaitOnExit, poUsePipes];
  AProcess.Execute;
  Memo1.Lines.LoadFromStream(AProcess.Stderr);
  AProcess.Free;
end; 

Jetzt muss ich es nur noch in die Variante mit AProcess.Running einbauen.

Kann man mit WriteLn auch irgendwie in Stderr schreiben ?

[sstvmaster]

Sollte so gehen:

Code: Alles auswählen

WriteLn(StdErr, 'An error has occurred');

Siehe https://forum.lazarus.freepascal.org/in ... pic=6189.0

[sstvmaster]

Ping

[Mathias]

Laut diesem Beitrag https://forum.arduino.cc/index.php?topic=46083.0 schreibt avrdude nicht nach stdout sondern nach stderr.
Der Beitrag ist zwar schon alt und ich kann es nicht Testen, aber vielleicht hilfts.

Natürlich das auch noch nehmen: https://www.freepascal.org/docs-html/cu ... tderr.html

So nun habe ich es mal probiert, avrdude mit StdErr einzulesen.
Avrdude rufe ich momentan so auf: "avrdude -cusbasp -pattiny2313"
Da wird mir folgendes ausgespuckt:

Code: Alles auswählen

avrdude: AVR device initialized and ready to accept instructions

Reading | ################################################## | 100% 0.00s

avrdude: Device signature = 0x1e910a (probably t2313)

avrdude done.  Thank you.

Direkt auf der Konsole folgendes:

Code: Alles auswählen

$ avrdude -cusbasp -pattiny2313

avrdude: AVR device initialized and ready to accept instructions

Reading | ################################################## | 100% 0.00s

avrdude: Device signature = 0x1e910a (probably t2313)

avrdude: safemode: Fuses OK (E:FF, H:9F, L:E4)

avrdude done.  Thank you.

So wie es aussieht, wird die Zeile mit Fuses von TProcess verschluckt.

Ich habe nochmal mit Output anstelle von Stderr probiert.
Da müsste eigentlich die Zeile mit Fuses kommen, kommt aber auch nicht.

Jemand einen Rat ?

[Warf]

wahrscheinlich wird die zeile die "verschluckt" nicht auf stderr geschrieben.

Um sowas zu testen benutz doch mal bash:

Code: Alles auswählen

$> avrdude -cusbasp -pattiny2313 1> stdout.log 2> stderr.log

Andere möglichkeit kann sein, manche programme ändern ihr output verhalten je nach dem obs in ein terminal geht oder nicht

[sstvmaster]

Im Wiki gibt es auch noch ein Beispiel, vielleicht ist die Pipe voll und wartet? https://wiki.freepascal.org/Executing_E ... en_Outputs

Man kann auch stderr zu stdout umleiten (poStderrToOutPut): https://www.freepascal.org/docs-html/cu ... tions.html

[Mathias]

Man kann auch stderr zu stdout umleiten (poStderrToOutPut): https://www.freepascal.org/docs-html/cu ... tions.html

Danke, dies würde mal funktionieren.
Aber die Zeile mit Fuses kommt immer noch nicht.

Noch ein Problem:

Code: Alles auswählen

 AProcess.CommandLine := command;     

Hier kommt eine Warnung, dies sei deprecated.
Welche Funktion sollte man da alternativ nehmen ?

[sstvmaster]

Hier kommt eine Warnung, dies sei deprecated.
Welche Funktion sollte man da alternativ nehmen ?

Code: Alles auswählen

  AProcess.Executable := 'avrdude';
  AProcess.Parameters.Add('-cusbasp');
  AProcess.Parameters.Add('-pattiny2313');

Steht alles hier: https://www.freepascal.org/docs-html/cu ... ocess.html

[Winni]

Hi!

FF - Fiese Falle bei Process.Parameters.add:

Kein Leerzeichen innerhalb von add, sondern zu zweimal Parameters.add trennen.
Zumindest in Linux verweigert er sonst den Job!

Winni

[Socke]

Kein Leerzeichen innerhalb von add, sondern zu zweimal Parameters.add trennen.
Zumindest in Linux verweigert er sonst den Job!

Unter Linux werden die Aufrufparameter einzeln an den neuen Prozess übergeben; daher kannst du über Parameters.Add() alle Sonderzeichen nutzen, die dir deine Shell sonst um die Ohren haut.
Windows ist da soweit ich weiß ein wenig eigensinniger: Alle Parameter müssen zusammen als eine Befehlszeile übergeben werden und werden dann von der Windowsshell wieder auseinander genommen.