如何从 GUI 应用程序向控制台应用程序发送命令

Question

我有一个从 GUI 应用程序启动的控制台应用程序。控制台应用程序采用文件名参数来解析和处理。目前我能够捕获它的输出并将其显示在 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;

这对我来说是新的，所以如果有关于如何正确操作的提示，我欢迎他们:)。但是，每当我发送命令时，它都会作为我从 ReadPipe 在 pBuffer 中读取的任何内容出现，而不是命令是什么。

希望这会有所帮助。

--

根据 Nat 的提示找到了解决方案。

Bi-directional communication between gui and console

Answer 1

您需要两个管道，一个用于进程向您发送输出 (stdout)，另一个用于向进程发送输入 (stdin)。

从您的代码看来，您将 same 管道的两端都放入了TStartupInfo 记录。因此，您正在有效地使流程自言自语。 :-)

因此，您需要调用CreatePipe() 两次，以创建两个管道，一个用于stdin，一个用于stdout（和stderr）。

然后，将stdin的读句柄放在suiStartup.hStdInput中，将stdout的写句柄放在suiStartup.hStdOutput中

要将数据发送到进程，请写入stdin 管道的写句柄。要读取进程的输出，请读取stdout管道的读取句柄。

编辑：（再次）

对于this page 中描述的所有重复句柄以及可继承和不可继承的内容（特别是在代码示例中），您需要确保发送给进程的句柄是可继承的（正如你所做的那样）。

您应该还确保父进程使用的管道句柄不可继承。但你没有必须这样做......我以前不这样做就逃脱了。

您可以通过在句柄上调用DuplicateHandle() 来执行此操作，指定它们不可继承并关闭旧句柄，或者调用SetHandleInformation() 并为标志指定0（如here 所述）。

我自己已经有一段时间没有这样做了，但我很确定这是因为句柄的引用计数与调用进程相关联，而不是与子进程相关联。这可以防止句柄在您仍在使用时被关闭（例如，调用进程可能会关闭“stdin”）。但请确保关闭手柄，否则最终会导致手柄泄漏。

HTH。

N@

Answer 2

除了输出管道之外，还有一个输入管道。只需使用 WriteFile() 写入该管道即可。

Answer 3

检查一下，您需要创建两个管道（通过调用 WINAPI 两次），正如 Nat 重申的那样，但是可继承的句柄呢 - 不确定为什么需要这样做？

http://support.microsoft.com/kb/190351.

我认为可能还令人困惑的是，当您创建管道时，您正在为该管道创建一个读取句柄和一个写入句柄。对于控制台的标准输入管道，您将只使用写句柄。然后为控制台的标准输出创建另一个管道（它也将具有读写句柄），但您将只使用读取句柄。

我相信我说的没错，但时间不早了，我要睡觉了。