Как отправить команду в консольное приложение из приложения GUI

У меня есть консольное приложение, которое я запускаю от GUI applicaiton. Консольное приложение берет параметры для имен файлов, чтобы проанализировать и обработать. В настоящее время я в состоянии получить его вывод и отобразить его в приложении GUI, но я хотел бы иметь возможность отправить команды в него, чтобы управлять или даже остановить его выполнение.

Как я могу отправить команду или строку или что-нибудь к консольному приложению, предпочтительно с помощью каналов, которые я открыл для чтения его вывода?

const
  CReadBuffer = 2400;
var
  saSecurity: TSecurityAttributes;
  hRead: THandle;
  hWrite: THandle;
  suiStartup: TStartupInfo;
  piProcess: TProcessInformation;
  pBuffer: array[0..CReadBuffer] of AnsiChar;
  dRead: DWord;
  dRunning: DWord;
  dWritten: DWord;
  Command: String;
  BytesLeft: Integer;
  BytesAvail: Integer;
begin
  saSecurity.nLength := SizeOf(TSecurityAttributes);
  saSecurity.bInheritHandle := True;
  saSecurity.lpSecurityDescriptor := nil;

  if CreatePipe(hRead, hWrite, @saSecurity, 0) then
  begin
    FillChar(suiStartup, SizeOf(TStartupInfo), #0);
    suiStartup.cb := SizeOf(TStartupInfo);
    suiStartup.hStdInput := hRead;
    suiStartup.hStdOutput := hWrite;
    suiStartup.hStdError := hWrite;
    suiStartup.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
    suiStartup.wShowWindow := SW_HIDE;
    Command := 'messageparser.exe c:\messagefile.msg';
    UniqueString(Command);
    if CreateProcess(nil, PChar(Command), @saSecurity,
     @saSecurity, True, NORMAL_PRIORITY_CLASS, nil, nil, suiStartup, piProcess) then
    begin
      repeat
        dRunning  := WaitForSingleObject(piProcess.hProcess, 100);
        Application.ProcessMessages;
        repeat
          dRead := 0;

          if not PeekNamedPipe(hread, @pbuffer, CReadBuffer, @dRead, @BytesAvail, @BytesLeft) then
            RaiseLastOSError;
          if dRead <> 0 then
          begin
            ReadFile(hRead, pBuffer[0], CReadBuffer, dRead, nil);
            pBuffer[dRead] := #0;
            OemToCharA(pBuffer, pBuffer);
            // do something with the data
            // if a condition is present then do the following:
            // WriteFile(hWrite, some_command, size_of_buffer, DWritten, nil);  
          end;
        until (dRead < CReadBuffer);
      until (dRunning <> WAIT_TIMEOUT);
      CloseHandle(piProcess.hProcess);
      CloseHandle(piProcess.hThread);
    end;
    CloseHandle(hRead);
    CloseHandle(hWrite);
  end;

Тогда на консольной стороне, существует поток, ожидающий входа. Вот выполнить метод:

  while not Terminated do
  begin
    ReadLn(Command);
    // process command
    Sleep(10);
  end;

Это плохо мне знакомо поэтому, если существуют подсказки относительно того, как делают его правильно, я приветствую их:). Однако каждый раз, когда я отправляю Команду, она прибывает через как, независимо от того, что я считал в pBuffer из ReadPipe и не, какова команда.

Надежда это помогает.

--

Найденный решением на основе подсказки Nat.

Двунаправленная связь между gui и консолью