Delphi XE8: проблемы с запуском внешнего консольного приложения, ожиданием его результатов и фиксацией его результатов

Question

В Delphi XE8 под Windows я пытаюсь вызвать внешнее консольное приложение и записать его вывод. Я использую следующий код, как описано в Захват вывода из окна DOS (команда / консоль), а также Получение вывода из приложения shell/dos в приложение Delphi:

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) петля. Что я мог попытаться решить проблему?

Большое спасибо!

Answer 1

Подведем итог: код Дэвида Хеффернана в программе "Выполнение DOS" и динамическое получение выходных данных. Проблема в том, что консольное приложение испускает UTF-16.

Answer 2

Программа, которую вы запускаете, либо ожидает ввода (как с клавиатуры), либо производит больше вывода, чем уместится в буфере канала. В любом случае эта программа зависает в ожидании дальнейших операций ввода-вывода, но ваша родительская программа ожидает завершения этого дочернего процесса перед обработкой какого-либо вывода и никогда не предоставляет никакого ввода.

Вам нужно обработать выходной канал, пока программа еще работает. В противном случае вы рискуете заполнить буфер, и дочерний процесс будет блокироваться, пока не станет доступно больше места. Аналогично, если вы не планируете предоставлять какие-либо входные данные другому процессу, вам, вероятно, не следует указывать ему действительный дескриптор ввода. Таким образом, если он попытается прочитать ввод, он потерпит неудачу, а не заблокируется.

Кроме того, дескриптор ввода, который вы дали этой программе, присоединен к дескриптору вывода. Если программа попытается прочитать, она будет читать свой собственный вывод, такой как ввод-вывод ouroboros. Для обработки ввода и вывода вам понадобятся две трубы.

(Обратите внимание, что эта тупиковая ситуация - именно та проблема, которую я назвал в комментариях к ответу, который вы использовали. Второй блок кода в том же ответе касается как проблемы, так и проблемы с уроборосом.)