Otwieranie TStream na stdin/stdout w aplikacji konsoli Delphi

Question

Próbuję napisać aplikację konsoli Delphi, która tworzy TStream dla standardowego wejścia, a inny TStream dla jego standardowego wyjścia.

(Zostanie uruchomiona przez aplikację hosta z wejściowym i wyjściowym przekierowaniem do potoków i będzie przekazywać dane binarne do/z tej aplikacji hosta, więc TStream będzie znacznie lepiej dopasowany do zadania niż ReadLn/WriteLn .)

Jak mogę otworzyć TStream na standardowym wejściu lub standardowym wyjściu?

Answer 1

Off szczycie mojej głowie:

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

Daj że iść ..