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

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

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

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

Ответы

Ответ 1

Сверху моей головы:

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

Дайте этому идти..