Ausgabe einer Konsolenanwendung in Datei umleiten

[corpsman]

Guten morgen allerseits,

ich habe folgendes Programm geschrieben :

Code: Alles auswählen

 
Program test;
 
{$MODE objfpc}{$H+}
 
{$APPTYPE CONSOLE}
 
Uses
  crt, sysutils;
Var
  b: Boolean;
  c: char;
  i:integer;
Begin
  writeln('Hello World');
  b := true;
  for i := 0 to 99 do begin
    writeln('Line '+inttostr(i));
  end;  
  While b Do Begin
    // Handle Key's
    If KeyPressed() Then Begin
      c := ReadKey();
      If (c = 'q') Or (c = 'Q') Then Begin
        b := false;
      End;
    End;
    // Prevent 100% CPU Load
    sleep(1);
  End;
  writeln('Shut down.');
End.
 

und möchte dessen Ausgabe in eine .txt Datei umleiten, also habe ich es mit einer .Bat Datei aufgerufen, welche folgendes macht :

Code: Alles auswählen

project1.exe > log.txt

Nur leider bleibt meine log.txt Datei leer, auch kann ich in dem Konsolenfenster nicht Scrollen (wenn ich die Umleitung nicht mache).
Unter Linux ist das alles kein Problem, aber mit Windows scheint es mal weider problematischer zu sein. Könnt ihr mir weiter helfen ?

Corpsman

[m.fuchs]

Ausgaben umleiten funktioniert nicht bei Nutzung der Unit Crt. Du müsstest sie rauswerfen.

[corpsman]

Gibt es dann noch eine Andere Möglichkeit, nonblocking auf Tastaturereignisse zu reagieren ?

Auch nutze ich das TextColor(); feature...

[Mathias]

Das könnte dir vielleicht weiterhelfen.

Code: Alles auswählen

program project1;
uses
  Crt;
var
  f: Text;
begin
  AssignFile(f, '');
  ReWrite(f);
  WriteLn(f, 'Hello World');
  repeat
  until KeyPressed;
  CloseFile(f);
end.     

Aufruf:

Code: Alles auswählen

project1

Gibt "Hello World" auf den Bildschirm.

Code: Alles auswählen

project1 > test.txt

Erzeugt die Datei mit dem Inhalt "Hello World", auf dem Bildschirm ist keine Ausgabe.

[corpsman]

Das ist cool,

es ermöglicht wieder die Nutzung des Tastatur auslesens, die Farben gehen aber leider nicht

Code: Alles auswählen

Program project1;
 
{$MODE objfpc}{$H+}
 
{$APPTYPE CONSOLE}
 
Uses
  crt, sysutils;
Var
  b: Boolean;
  c: char;
  i: integer;
  f: Text;
Begin
  assignfile(f, '');
  rewrite(f);
  writeln(f, 'Hello World');
  For i := 0 To 15 Do Begin
    TextColor(i);
    writeln(f, 'Line ' + inttostr(i));
  End;
  b := true;
  While b Do Begin
    // Handle Key's
    If KeyPressed() Then Begin
      c := ReadKey();
      If (c = 'q') Or (c = 'Q') Then Begin
        b := false;
      End;
    End;
    // Prevent 100% CPU Load
    sleep(1);
  End;
  writeln(f, 'Shut down.');
  CloseFile(f);
End.