Delphiのコンソールアプリケーションでstdin/stdoutで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)); 

行くことを与えます。..