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

Question

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

(Es wird von einer Host-Anwendung mit seinem Eingang und Ausgang an Leitungen umgeleitet gestartet werden, und wird binäre Daten zu / von dem Host app wird vorbei, so TStream viel sein wird besser geeignet, um die Aufgabe als ReadLn / WriteLn. )

Wie kann ich mich über einen TStream auf der Standardeingabe oder Standardausgabe öffnen?

Answer 1

Aus der Spitze von meinem Kopf:

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

Geben Sie, dass ein gehen ..