L'apertura di un TStream su stdin / stdout in una console app Delphi

Question

Sto cercando di scrivere un'applicazione console Delphi che crea un TStream per il suo standard input, e un altro TStream per il suo standard output.

(Sarà lanciato da un'applicazione host con il suo ingresso e uscita reindirizzato a tubi, e passerà dati binari a / da tale applicazione ospitante, TStream sarà molto più adatto al compito di readLn / WriteLn. )

Come posso fare per aprire una TStream su standard input o output standard?

Answer 1

Al largo della parte superiore della mia testa:

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

Dare che a go ..