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));

阅读Delphi中的程序STDIN

2 个答案: