Delphiのコンソールアプリケーションで標準入力/標準出力にTStreamにを開きます

Question

私は、標準入力、およびその標準出力のための別のTStreamにするためにTStreamに作成をDelphiのコンソールアプリケーションを作成しようとしています。

TStreamにはReadLn /のwritelnよりタスクにはるかに良い最適であろうように、

は、（これは、その入力とパイプへのリダイレクトされた出力を持つホストアプリケーションによって起動され、そのホストアプリケーションへ/からバイナリデータを渡すであろう。 ）

どのように私は、標準入力や標準出力にTStreamにを開いて行くのですか？

Answer 1

私の頭の上オフ：

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

行くことを与えます..