在Delphi中读取程序STDIN

发布时间：2020-12-15 04:00:49 所属栏目：大数据来源：网络整理

导读：我有以下批处理脚本： 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. 我试过了：将

我有以下批处理脚本：

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的消息框.在这两种情况下,都会显示该表单.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!