Ausgabe an Konsole, von der GUI gestartet wurde

[iphi]

Hallo,

ich möchte mein GUI Programm auch als Konsolenanwendung laufen lassen können, falls es aus einer Konsole gestartet wird. Letzteres kann ich mit GetStdHandle abfragen. Wie aber kann ich dann an diese Konsole Text ausgeben?

So gehts jedenfalls nicht:

Delphi-Quellcode:

...
  if GetStdHandle(Std_Output_Handle)<>0 then
    begin
      Windows.MessageBox(0, 'Is Console', nil, MB_OK);
      writeln('Hello World');
    end else
      Windows.MessageBox(0, 'NO Console', nil, MB_OK);
...

Der writeln produziert einen Error 105. Weiß jemand Rat?

[Luckie]

Meines Wissens nach kann man die Konsole wie in eine Datei schreiben. Also irgendwie so ähnlich. Ich habe es noch nie gemacht von einer Konsolenanwendung.

[KodeZwerg]

Delphi-Quellcode:

  {$APPTYPE CONSOLE}
  hStdOut := GetStdHandle(STD_OUTPUT_HANDLE);
  SetConsoleTextAttribute(hStdOut, FOREGROUND_GREEN or FOREGROUND_BLUE or FOREGROUND_RED or FOREGROUND_INTENSITY);
  WriteLn('Weißer Text');

[Jasocul]

Wurde in der DP schon mal besprochen

[iphi]

Zitat:

{$APPTYPE CONSOLE}

Damit habe ich die Konsole immer am Bein. Das möchte ich nicht.
Falls das Programm aus einem Konsolenfenster heraus gestartet wird, möchte ich Text in genau das Konsolenfenster ausgeben.

Ohne {$APPTYPE CONSOLE} liefert der Vorschlag trotz vorhandener Konsole einen Error 105.

[Luckie]

Zitat von Jasocul:

Wurde in der DP schon mal besprochen

Wie ich schon sagte, wie in eien Datei schreiben:

Delphi-Quellcode:

procedure TConsole.WriteStr(s: string);
var
  iWritten: cardinal;
begin
  WriteFile(hOut, s[1], Length(s), iWritten, nil);
end;

[himitsu]

Bei GUI-Anwendungen verbindet Delphi WriteLn/ReadLn nicht standardmäßig mit der "fremden" Console.

siehe mein FileSplitter

Das Ding ist als normale GUI-Anwendung geschrieben (also quasi {$APPTYPE GUI} ),
aber da wird erkannt, ob es in einer Konsole läuft.
Ebenso ist es möglich sich eine eigene Console zu erstellen. (neue Konsole, neben der von wo gestartet wurde oder eine Konsole für GUI-Anwendung, wenn nicht von da gestartet wurde)

GetStdHandle
AllocConsole
AttachConsole
...

PS: in der System-Unit gibt es

Delphi-Quellcode:

var
  Input: Text;              { Standard input }
  Output: Text;             { Standard output }
  ErrOutput: Text;          { Standard error output }

Die kann man auch selber zuweisen, wenn Delphi das nicht automatisch macht.

[KodeZwerg]

Delphi-Quellcode:

 {$APPTYPE CONSOLE}
  hStdOut := GetStdHandle(STD_OUTPUT_HANDLE);
  SetConsoleTextAttribute(hStdOut, FOREGROUND_GREEN or FOREGROUND_BLUE or FOREGROUND_RED or FOREGROUND_INTENSITY);
  WriteLn('Weißer Text');
  FreeConsole; // das sollte Console zumachen

[iphi]

Danke für die Tipps!
Mit AttachConsole gehts prima!

[iphi]

Hallo Himitsu,

Zitat:

siehe mein Hier im Forum FileSplitter

Wollte ich gerade studieren um noch was dazu zu lernen. Da gibt es allerdings offenbar viele Varianten.
Wo finde ich den relevanten Quellcode, auf den Du Dich beziehst?
Danke!