delphi - Redmon和Delphi捕获标准输入

我正在使用redmon将脚本重定向到delphi进行处理。

我正在使用以下代码将stdin读取到文件中：

var
  Stdin: THandleStream;
  FStream: TFileStream;
  BytesRead:Int64;
  Buffer: array[0..1023] of Byte;

StdIn := THandleStream.Create(GetStdHandle(STD_INPUT_HANDLE));
try
  tempps:=GetTempFile('.ps');
  FStream:=tfilestream.Create(tempps,fmCreate or fmOpenReadWrite);
  StdIn.Seek(0,0);
  try
    repeat
      BytesRead:=StdIn.Read(Buffer,1024);
      FStream.Write(Buffer,BytesRead);
    until bytesread<SizeOf(Buffer);
  finally
    InputSize:=FStream.Size;
    FStream.Free;
  end;
finally
  StdIn.Free;
end;

这适用于大多数情况，但redmon日志文件显示以下内容的情况除外：

REDMON WritePort: OK  count=65536 written=65536

REDMON WritePort: Process not running. Returning TRUE.
    Ignoring 65536 bytes

它是65536只是一个红色鲱鱼，还是我没有正确阅读stdin，还是我忽略了某个奇怪的限制？

提前致谢。

编辑1

65536是一个红色鲱鱼-redmon在日志中每64k打印此消息，整个文件为688759字节，但是看起来确实像redmon早早关闭了输出，但无论如何仍然继续输出更多文本。

最佳答案

我不知道RedMon的工作原理，但是我不会依赖bytesread<SizeOf(Buffer)作为EOF条件，因为我想您实际上是从管道中读取的，而ReadFile作为MSDN文档所说的功能可以返回较少读取的字节数比从管道读取时要读取的字节数大。

BytesRead <= 0条件更可靠（仅当RedMon将在管道的另一侧写入0字节时，它才会失败，我想它不应该这样做）：

repeat
  BytesRead:=StdIn.Read(Buffer,1024);
  if BytesRead > 0 then
    FStream.WriteBuffer(Buffer,BytesRead);
until BytesRead <= 0;