Delphi XE8：运行外部控制台应用程序，等待其结果并捕获其结果的问题

Posted 2023-02-16

【中文标题】Delphi XE8：运行外部控制台应用程序，等待其结果并捕获其结果的问题

【英文标题】：Delphi XE8: problems running an external console application, waiting for its results and capturing its results

【发布时间】：2015-06-20 12:25:08

【问题描述】：

在 Windows 下的 Delphi XE8 中，我试图调用外部控制台应用程序并捕获其输出。我使用以下代码，如Capture the output from a DOS (command/console) Window 和Getting output from a shell/dos app into a Delphi app 中所述：

procedure TForm1.Button1Click(Sender: TObject) ;

  procedure RunDosInMemo(DosApp:String;AMemo:TMemo) ;
  const
    ReadBuffer = 2400;
  var
    Security : TSecurityAttributes;
    ReadPipe,WritePipe : THandle;
    start : TStartUpInfo;
    ProcessInfo : TProcessInformation;
    Buffer : Pchar;
    BytesRead : DWord;
    Apprunning : DWord;
    S: String;
  begin
    With Security do begin
      nlength := SizeOf(TSecurityAttributes) ;
      binherithandle := true;
      lpsecuritydescriptor := nil;
    end;
    if Createpipe (ReadPipe, WritePipe,
                   @Security, 0) then 
    begin
      Buffer := AllocMem(ReadBuffer + 1) ;
      FillChar(Start,Sizeof(Start),#0) ;
      start.cb := SizeOf(start) ;
      start.hStdOutput := WritePipe;
      start.hStdInput := ReadPipe;
      start.dwFlags := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW;
      start.wShowWindow := SW_HIDE;

      S:=UniqueString(DosApp);
      if CreateProcess(nil,
              PChar(S),
              @Security,
              @Security,
              true,
              NORMAL_PRIORITY_CLASS,
              nil,
              nil,
              start,
              ProcessInfo) then
      begin
        repeat
          Apprunning := WaitForSingleObject
                        (ProcessInfo.hProcess,100) ;
          Application.ProcessMessages;
        until (Apprunning <> WAIT_TIMEOUT) ;
        Repeat
          BytesRead := 0;
          ReadFile(ReadPipe,Buffer[0], ReadBuffer,BytesRead,nil) ;
          Buffer[BytesRead]:= #0;
          OemToAnsi(Buffer,Buffer) ;
          AMemo.Text := AMemo.text + String(Buffer) ;
        until (BytesRead < ReadBuffer) ;
      end;
      FreeMem(Buffer) ;
      CloseHandle(ProcessInfo.hProcess) ;
      CloseHandle(ProcessInfo.hThread) ;
      CloseHandle(ReadPipe) ;
      CloseHandle(WritePipe) ;
    end;
  end;

begin button 1 code
  RunDosInMemo('cmd.exe /c dir',Memo1) ; //<-- this works
  RunDosInMemo('"c:\consoleapp.exe" "/parameter"',Memo1) //<-- this hangs in the repeat until (Apprunning <> WAIT_TIMEOUT) ; 
end;

它适用于 DOS 命令，但不适用于控制台应用程序。控制台应用程序启动并正确执行，但它挂在repeat until (Apprunning <> WAIT_TIMEOUT) 循环中。我可以尝试什么来解决这个问题？

非常感谢！

【问题讨论】：

坦率地说，可以找到该程序的许多不同的损坏变体，这真是令人惊讶。我认为我的代码在这里有效：***.com/questions/25723807/…

大卫，感谢您的帮助。我试过你的代码，它适用于几个控制台应用程序，除了我需要使用的那个。执行控制台应用程序，FileSize 似乎是正确的，但 AnsiBuffer 只包含无意义的信息。不幸的是，由于许可和保密原因，我无法命名或上传控制台应用程序。控制台应用程序在 Wondows Commad Prompt 中运行良好。我可以尝试做些什么来进一步分析或解决问题？谢谢。

不知道。如果您不能告诉我们有关该应用程序的信息，那就有点棘手了。

大卫，我用以下代码尝试了你的代码：命令：='cmd.exe' 和参数：='/c d:\ConsoleApp.exe /parameter > C:\test.txt'。我使用重定向符号“>”将输出写入文件。这行得通。 （命令处理器 cmd.exe 似乎是必要的，这样 ">" 才能工作。）管道中的重定向一定有问题。如果您有私人电子邮件地址，我可以通过电子邮件向您发送控制台应用程序。也许你可以看看它？这对你很好。如果你没有时间当然没问题。非常感谢！

不，我不能那样做。对不起。如果您需要帮助，请在此处提问。

【参考方案1】：

您正在运行的程序要么期待输入（例如来自键盘），要么产生的输出超出管道缓冲区的容量。在任何一种情况下，该程序都会挂起等待进一步的 I/O 操作，但您的父程序正在等待该子程序在处理任何输出之前终止，并且从不提供任何输入。

您需要在程序仍在运行时处理输出管道。否则，您可能会冒着缓冲区被填满的风险，并且孩子将阻塞，直到有更多空间可用。同样，如果您不打算向其他进程提供任何输入，您可能不应该给它一个有效的输入句柄。这样，如果它尝试读取输入，它将失败，而不是阻塞。

此外，您为该程序提供的输入句柄附加到输出句柄。如果程序尝试读取，它将读取自己的输出，例如 I/O ouroboros。要处理输入和输出，您需要两个管道。

（请注意，这个死锁正是问题I called out in the comments of the answer you used。同一答案中的第二个代码块解决了这个问题，以及衔尾蛇问题。）

【参考方案2】：

总结一下：@David Heffernan 在Execute DOS program and get output dynamically 中的代码有效。问题是控制台应用程序发出 UTF-16。