Konsolebefehle mit AProcess

[niederrheiner]

Hallo an Alle,
warum wird nach Ausführung der folgenden Codesequenz zwar die Datei erg.xxx im richtigen Verzeichnis angelegt, aber sie hat die Länge 0? Führe ich den betreffenden Konsolbefehl direkt auf der Konsole aus, erhalte ich eine korrekt gefüllte Datei

Code: Alles auswählen

AStringList := TStringlist.Create;
   AProcess := TProcess.Create(nil);
   cLine := 'diff -r 2008/04 work/2008/04';
 
   {vorher in das entsprechende Verzeichnis wechseln}
   chdir('/home/guenter/Garmin');
 
   { garmin_save_runs ausfuehren}
   exec('/usr/bin/sudo', '/usr/local/bin/garmin_save_runs');
 
   {neue Files ermitteln}
   AProcess.CommandLine := 'diff -r /home/guenter/Garmin/2008/04 /home/guenter/Garmin/work/2008/04';
   AProcess.Options := AProcess.Options + [poWaitOnExit, poUsePipes];
   AProcess.Execute;
 
   AStringlist.SaveToFile('/home/guenter/Garmin/erg.xxx');
   AStringList.Free;
   AProcess.Free;

Danke für Eure Hilfe und Tipps.

Bis dann ...
MfG
Günter

[Christian]

Schau dir doch deinen Code mal an, die AStringlist wird doch nirgends gefüllt ...

[pluto]

Schau dir mal hier die Beispiele an:
http://wiki.lazarus.freepascal.org/Exec ... rograms/de" onclick="window.open(this.href);return false;
dann wird dir dein Fehler klar werden.