delphi - 在 Delphi 控制台应用程序中打开标准输入/标准输出上的 TStream

Question

我正在尝试编写一个 Delphi 控制台应用程序，为其标准输入创建一个 TStream，为其标准输出创建另一个 TStream。

（它将由主机应用程序启动，其输入和输出重定向到管道，并将二进制数据传递到该主机应用程序或从该主机应用程序传递二进制数据，因此 TStream 将比 ReadLn/WriteLn 更适合该任务。）

如何在标准输入或标准输出上打开 TStream？

Answer 1

在我的头顶上：

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

试一试。。