Abrindo um TStream em stdin / stdout em um aplicativo de console do Delphi

Question

Eu estou tentando escrever um aplicativo Delphi console que cria um TStream para sua entrada padrão e outro TStream para sua saída padrão.

(Ele será lançado por um aplicativo host com a sua entrada e saída redirecionado para tubos, e estará passando dados binários de / para esse aplicativo host, de modo TStream será muito melhor adequado para a tarefa de ReadLn / WriteLn. )

Como faço para ir sobre a abertura de um TStream na entrada padrão ou saída padrão?

Answer 1

Em cima da minha cabeça:

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

dar um que ir ..