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

Question

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

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

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

Answer 1

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

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

Попробуйте.