在Delphi中读取程序STDIN

我有以下批处理脚本：

dir | myapp.exe

该程序有这个来源(或多或少)：

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

备忘录中的输出是：

Volume in drive C has no label.

我试过了：

>将读取部分放入以eof作为条件的循环中 – 以某种方式导致无限循环
>写一个循环来保持读数直到strlen(buff)为0 – 它出于某种原因退出第二次
>读取东西0.5秒(我正在考虑异步写入stdin),这也失败了

顺便说一下,在没有stdin数据的情况下直接运行程序会导致EInputOutput异常(I / O错误)代码6.

解决方法

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

您会看到一个带有数字>的消息框0,如果你这样做：

myapp.exe

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