Abrindo um TStream em stdin / stdout em um aplicativo de console do Delphi
-
21-08-2019 - |
Pergunta
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?
Solução
Em cima da minha cabeça:
InputStream := THandleStream.Create(GetStdHandle(STD_INPUT_HANDLE));
OutputStream := THandleStream.Create(GetStdHandle(STD_OUTPUT_HANDLE));
dar um que ir ..
Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow