Question

I have the following batch script:

dir | myapp.exe

该方案有这一来源(更多或更少):

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

而电线中的产出是:

驱动C的体积没有标签。

我尝试:

putting the read part into a loop with eof as a condition - somehow causing an infinite loop
writing a loop to keep reading until strlen(buff) is 0 - it exits the second time for some reason
reading stuff ever 0.5 seconds (I was thinking about asynchronous writes to stdin), this failed as well

这样,在没有数据的情况下直接实施该方案,就产生了《EInputOutput(I/O Error)代码6。

Answer 1

技研组没有固定的排位、排位或固定的梯子。你可以做这样的事情:

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

页: 1 在这两种情况下,表格都将显示。

Answer 2

采用代号为<代码>Read(buff)

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

友情链接