Hallo,

in meinem Programm schreibe ich mit

markieren

Delphi-Quellcode:

var F: Textfile;
...
Writeln(F,'DebugMeldung...');
...

an diversen Stellen Debugmeldungen in ein Textfile.

Manchmal wäre es aber nützlich, wenn die Debugmeldungen statt im Textfile in Echtzeit auf einem Konsolenfenster landen.

Frage: Ist es möglich, ein Konsolenfenster für die Ausgabe wie ein Textfile zu behandeln? Wie müsste ich dann F assignen?

P.S.
Ich glaube ich habs. Man muss wie im guten alten DOS die Datei "con" nennen, dann gehts auf die Console.

Writeln('Hallo ich bnin eine DebugMeldung...');

Zitat von iphi:

Ich glaube ich habs. Man muss wie im guten alten DOS die Datei "con" nennen, dann gehts auf die Console.

Hast du es denn mal probiert?
genau dieses geht immernoch.

markieren

Delphi-Quellcode:

var T: TextFile;

AssignFile(T, 'CON');
Rewrite(T);
WriteLn('test');

genau aus diesem Grund sind auch einige Dateinamen (zumindestens als relativer Pfad und alleinstehend) nicht erlaubt
http://www.delphipraxis.net/internal...=429177#429177

Vorausetzung ist aber, dass es sich um eine Konsolenanwendung handelt. Tut es das nicht, muss erst eine Konsole erzeugen.

Dafür dann allocconsole verwenden.

Hallo,

ein anderer Ansatz wäre es, den ATViewer zu benutzen (http://atorg.net.ru/delphi/atviewer.htm. Dort gibt es eine Komponente, die auf Veränderungen von Dateien reagiert und diese Änderungen auch anzeigt. Damit kann man, während ein Prozess eine Datei schreibt, mit einem anderen Prozess "mitlesen". Ist zum Beispiel praktisch, wenn man Logfiles vom Exchangeserver, einem Webserver o. ä, "Live" mitlesen will. Für Deine Aufgabenstellung könnte das auch was brauchbares sein.
Ein Programm kann damit aber auch seine eigenen Logdateien mitlesen.

Probier mal System.Output.

Hätte nicht gedacht, dass noch so viel Feedback kommt.

writeln('hallo'); geht natürlich auf die Konsole.

markieren

Delphi-Quellcode:

assignfile(F,'con');
rewrite(F);
...
writeln('hallo');

geht aber auch auf die Konsole.
Vorteil der letzteren Methode: Man kann die Ausgabe durch Ändern des Assignfile-Strings einfach in eine Datei umleiten.

markieren

Delphi-Quellcode:

AssignFile(F, 'CON');
Rewrite(F);
...
WriteLn(F, 'hallo');

Die Datei natürlich bei WriteLn nicht vergessen ... sonst bringt das Ändern von AssingFile nicht viel

Ups, stimmt. Da hab ich mich vertippt! Writeln(F,...