L'ouverture d'un TStream sur stdin / sortie standard dans une application console Delphi

Question

Je suis en train d'écrire une application console Delphi qui crée un TStream pour son entrée standard, et une autre TStream pour sa sortie standard.

(Il sera lancé par une application hôte avec son entrée et de sortie redirigés vers les tuyaux et PASSERA données binaires / à partir de cette application hôte, donc TStream sera beaucoup mieux adapté à la tâche que ReadLn / WriteLn. )

Comment puis-je faire pour ouvrir un TStream sur l'entrée standard ou la sortie standard?

Answer 1

Du haut de ma tête:

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

Donne que le servic ..