Открытие TStream на stdin/stdout в приложении консоли Delphi

Question

Я пытаюсь написать консольное приложение Delphi, которое создает TStream для его стандартного ввода, и еще один TStream для его стандартного вывода.

(Он будет запущен хост-приложением с его вводом и выводом, перенаправленным на трубы, и будет передавать двоичные данные в/из этого хост-приложения, поэтому TStream будет намного лучше подходит для задачи, чем ReadLn/WriteLn .)

Как мне начать открытие TStream на стандартном входе или стандартном выходе?

Answer 1

Off верхней части моей головы:

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

Дайте что пойти ..