阅读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

您将看到一个数字> 0的消息框,如果您这样做:

myapp.exe

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