Consolenausgaben LIVE abfangen

[HolgerX]

Hallo..

Es liegt tatsächlich an der Console mit Pipes.
Wenn deine Konsolenanwendung ein WriteLN macht, dann wird dieses erstmal von StdOut gepuffert und dann komplett an die Pipe geFlusht..

Würde in deiner Konsolenanwendung nach jedem
WriteLN('.');
ein
Flush(Output);
gemacht werden, dann wird die Ausgabe direkt in die Pipe geschrieben und könnte einzeln mit ReadFile gelesen werden.

Habe hier mal dein Testprogramm nachgebaut, mal 0-20 ohne Flush, mal 0-20 mit Flush..
Und siehe da, die ersten 20 kamen erst zusammen, die weiteren 20 schön einzeln.

http://www.delphibasics.co.uk/RTL.asp?Name=Flush

Hier wirds (mit einem File) beschrieben, aber eine Pipe ist für MS ja auch nur ein File.

[DelTurbo]

Hi,
danke für die Antwort. Leider ist das Berechnungs Programm nicht von mir und es sind keine Quellen vorhanden. In meine Demo könnte ich das einbauen.

Letzte vielleicht sogar dumme frage: Es ist wohl nicht möglich dem Programm ein Flush "unterzujubeln"? Das ich während dem warten alle 300ms ein Flush dahin schicke?

Wenn nicht, naja heute Nacht habe ich mich schon eigentlich damit abgefunden das es nicht geht. Ich werde eine Sanduhr anzeigen

[HolgerX]

Hab mal gegooglt..

Leider gibt es keine Möglichkeiten dieses Flush extern anzustoßen.
Dieses Puffern wird direkt durch die libc oder Phyton gehandelt und somit auch in Windows.

Wenn die Anwendung nicht mit deaktiviertem Buffer für stdout erstellt wurde (oder Flush()) dann wird immer gepuffert..

Selbst der Kernel von Windows puffert...

Den einzigen Workarround den ich gefunden habe, ist eine simulierte TTY-Schnittstelle stat Pipe zu verwenden.
Aber wie das geht.. K.A.

[DelTurbo]

Schade, war so eine Idee. Trotzdem vielen dank. Dann kommt nun die Sanduhr

[nahpets]

Hallo,

wenn Du Dir die sbPipes anschaust, wirst Du feststellen, dass es dort ein Ereignis onNotify gibt, gib' dort doch mal in das Memo jeweils die Uhrzeit aus...

Delphi-Quellcode:

  Caption := Format('%s - Bytes Read: %d - Exit-Code: %d',[sMessage,BytesRead,ExitCode]);
  meOutput.Lines.Add(Format('%s - %s',[FormatDateTime('hh:mm:ss.zzz',now),sOutput]);

und Du wirst feststellen, dass Du mit Meldungen zugeschüttest wirst. Wenn's denn um 'nen Punkt geht, dann schreib ihn hier doch selber
Du bekommst permanent Meldungen, dass Dein Prozess noch läuft, für die Fortschrittsanzeige kannst Du doch selbst sorgen. Wären da jetzt auf der Konsole wichtige Ausgaben zu erwarten, ok wäre ein Problem, aber nur um deren Fortschrittspunkte zu sehen, da ist der Aufwand übertrieben. Punkte in ein Label malen kannst Du selbst, da brauchst Du keine Vorlage von der Konsole