TProcess: Nur "sichtbaren" output ausgeben

[Targion]

Hallo!
Einige Terminal-Anwendungen geben ja z.B. den aktuellen Status eines Vorgangs auf der Konsole aus, löschen diesen dann wieder und ersetzen ihn durch neues. (Beispiel: "gdebi") Wenn ich einen dieser Befehle ausführe habe ich dann am Ende eine einzige Ausgabezeile, der vorherige Inhalt ist ja gelöscht. Wenn ich eine entsprechende Anwendung mit TProcess ausführe und das Ergebnis abfange, bekomme ich jedoch für jeden Zwischenschritt eine Extra-Zeile.
Wie kann ich TProcess anweisen, nur das auszugeben, was ich nach Ausführung des Befehls auch tatsächlich auf der Konsole sehe?

[Christian]

Gar nicht, du musst schon selbst schaun was für Steuerzeichen darin vorkommen und ggf die vorherige zeile wieder löschen ö.ä.

[Targion]

Schade. Ich dachte, es würde einfacher und vorgefertigt gehen. So muss ich für jedes Script eine eigene Funktion schreiben. Danke für die Info.

[Christian]

Daran ist nichts schwieriges, das sind nur n paar zeilen Code mehr schätzungsweise so ... 5 ?

[af0815]

Gar nicht, du musst schon selbst schaun was für Steuerzeichen darin vorkommen und ggf die vorherige zeile wieder löschen ö.ä.

Als Ansatz, mal den Output speichern und mit einem Hexeditor ansehen. Ist es nur ein CR ohne LF, so kann man ganz einfach den (eigenen) Buffer löschen wenn man das CR empfangen hat. Somit hat man nur die letzte Zeile. Ich nehme an, das ist auch von Christian mit den 'so 5 Zeilen' gemeint

Falls es komplexer ist, so kann man das auch im Hexeditor sehen, mit welchen Steuerzeichen gearbeitet wird. Ein kurzer Blick lohnt sich oft, da es manchmal einfacher ist, als es aussieht.

[Christian]

So miente ich es.
http://de.wikipedia.org/wiki/Steuerzeichen

Scheint wirklich nur CR zu sein eventuell noch Substitute.

[Targion]

Vielen Dank für die Hilfe! Ich habe das jetzt so gemacht:

Code: Alles auswählen

function CmdFinResult(cmd:String):String;
var t:TProcess;
Buffer: string;
BytesAvailable: DWord;
BytesRead:LongInt;
begin
 Result:='';
 buffer:='';
 t:=tprocess.create(nil);
 t.Options:=[poUsePipes];
 t.CommandLine:=cmd;
 try
  t.Execute;
  while t.Running do begin
      BytesAvailable := t.Output.NumBytesAvailable;
      BytesRead := 0;
      while BytesAvailable>0 do
       begin
        SetLength(Buffer, BytesAvailable);
        BytesRead := t.OutPut.Read(Buffer[1], BytesAvailable);
        if (pos(#13,Buffer)>0)or(pos(#26,Buffer)>0)or(Pos(#10,Buffer)>0)then Result:='';
        Result := Result + copy(Buffer,1, BytesRead);
        BytesAvailable := t.OutPut.NumBytesAvailable;
      end;
  end;
 finally
 t.Free;
 end;
end;

Benutzt jemand von euch schon PackageKit? Wenn man das Programm "pkcon" (benutze ich, weil die DBus-Schnittstelle noch nicht alle nötigen Funktionen bereithält) so aufruft:

Code: Alles auswählen

pkcon search file /usr/share/applications/vlc.desktop

wird zuerst der Status des Paketes gezeigt, dann der Paketname und dann die Paketbeschreibung. Wenn ich den Befehl nun mit TProcess ausführe, fehlt die Beschreibung. Woran kann das liegen? Die Beschreibung landet nicht im Buffer. Kann ein fremdes Programm nachträglich über die Konsole zeichnen?

[af0815]

... Die Beschreibung landet nicht im Buffer. Kann ein fremdes Programm nachträglich über die Konsole zeichnen?

Die Frage ist nur, ob das pkcon unter der Umgebung wo es in TProsess läuft überhaupt die Beschreibung ausgibt. Stichwort: aktuelle Shellvariablen des Programmes unter TProzess. Ev. kann man die erweiteret Ausgabe mittels eines Kommandozeilenschalter erzwingen.