Öffnen eines TStream auf stdin/stdout in einer Delphi-Konsolenanwendung

Question

Ich versuche, eine Delphi-Konsolenanwendung zu schreiben, die einen TStream für seine Standardeingabe und einen anderen TStream für seine Standardausgabe erstellt.

(Es wird von einer Host-App gestartet, deren Ein- und Ausgabe zu Pipes umgeleitet wird und binäre Daten an diese Host-App übergeben werden. Daher ist TStream für die Task viel besser geeignet als ReadLn/WriteLn .)

Wie gehe ich vor, um einen TStream über Standardeingabe oder Standardausgabe zu öffnen?

Answer 1

Aus der Spitze von meinem Kopf:

InputStream := THandleStream.Create(GetStdHandle(STD_INPUT_HANDLE)); 
    OutputStream := THandleStream.Create(GetStdHandle(STD_OUTPUT_HANDLE)); 

geben, dass ein gehen ..