Ouverture d'un TStream sur stdin/stdout dans une application de console Delphi

Question

J'essaie d'écrire une application de console Delphi qui crée un TStream pour son entrée standard et un autre TStream pour sa sortie standard.

(Il sera lancé par une application hôte avec ses entrées et ses sorties redirigées vers les canaux, et transmettra des données binaires de/vers cette application hôte, ainsi TStream sera beaucoup mieux adapté à la tâche que ReadLn/WriteLn Comment faire pour ouvrir un TStream sur une entrée standard ou une sortie standard?

Answer 1

Du haut de ma tête:

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

Donnez qu'un aller ..