delphi - Delphi コンソールアプリの stdin/stdout で TStream を開く

Question

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

(これは、入力と出力がパイプにリダイレクトされたホストアプリによって起動され、そのホストアプリとの間でバイナリデータをやり取りするため、TStream は ReadLn/WriteLn よりもタスクに適しています。)

標準入力または標準出力で TStream を開くにはどうすればよいですか?

score 40 · Accepted Answer

私の頭の上から：

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

それを試してみてください..

delphi - Delphi コンソール アプリの stdin/stdout で TStream を開く