在Delphi中读取程序STDIN

Question

我有以下批处理脚本：

dir | myapp.exe

该程序有这个源（或多或少）：

procedure TForm1.FormCreate(Sender: TObject);
var buff: String;
begin
  Read(buff);
  Memo1.Lines.Text:=buff;
end;

备忘录中的输出是：

驱动器 C 中的卷没有标签。

我尝试过：

• 将读取部分放入以 eof 作为条件的循环中 - 不知何故导致无限循环
• 写入循环以继续读取，直到 strlen(buff) 为 0 - 它由于某种原因第二次退出，
• 每 0.5 秒读取一次内容（我正在考虑异步写入 stdin），这也失败了

顺便说一句，直接运行程序，没有 stdin 数据，会导致 EInputOutput 异常（I/O 错误）代码 6。

Answer 1

GUI 应用程序不会自动分配 stdin、stdout 或 stderr。您可以执行以下操作：

procedure TForm1.FormCreate(Sender: TObject);
var
  Buffer: array[0..1000] of Byte;
  StdIn: TStream;
  Count: Integer;
begin
  StdIn := THandleStream.Create(GetStdHandle(STD_INPUT_HANDLE));
  Count := StdIn.Read(Buffer, 1000);
  StdIn.Free;
  ShowMessageFmt('%d', [Count]);
end;

如果您这样做，

dir *.pas | myapp.exe

您将看到一个带有数字＆gt;的消息框。 0，如果这样做：

myapp.exe

您将看到一个带有 0 的消息框。在这两种情况下，都会显示表单。

Answer 2

尝试使用流方法来代替Read(buff)

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