Abrir un TStream en stdin/stdout en una aplicación de la consola Delphi

console-application

Question

Intento escribir una aplicación de consola Delphi que cree un TStream para su entrada estándar y otro TStream para su salida estándar.

(Será lanzado por una aplicación host con sus entradas y salidas redirigidas a las tuberías, y pasará datos binarios a / desde esa aplicación host, por lo que TStream se adaptará mucho mejor a la tarea que ReadLn / WriteLn).

¿Cómo hago para abrir un TStream en una entrada estándar o salida estándar?

Answer 1

La parte superior de mi cabeza:

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

Dale una oportunidad ...