La apertura de un TStream en stdin / stdout en una aplicación de consola Delphi

Question

Estoy tratando de escribir una aplicación de consola de Delphi que crea un TStream por su entrada estándar, y otro TStream por su salida estándar.

(Será lanzado por una aplicación host con su entrada y salida redirigido a tuberías, y le pasa los datos binarios a / desde esa aplicación host, por lo TStream será mucho mejor adaptado a la tarea de ReadLn / WriteLn. )

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

Answer 1

De la parte superior de mi cabeza:

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

deis un ir ..