Как получить результат работы консольной программы

Delphi , ОС и Железо , DOS и Консоль

Как получить результат работы консольной программы

- Чем отличается программист от сперматозоида?
- У сперматозоида есть один шанс из 50000000 стать человеком.

Hужно использовать пайпы (CreatePipe), и работать с ними как с обычным файлом.

const
  H_IN_READ = 1;
  H_IN_WRITE = 2;
  H_OUT_READ = 3;
  H_OUT_WRITE = 4;
  H_ERR_READ = 5;
  H_ERR_WRITE = 6;

type
  TPipeHandles = array [1..6] of THandle;
var
  hPipes: TPipeHandles;
  ProcessInfo: TProcessInformation;

(************CREATE HIDDEN CONSOLE PROCESS************)
function CreateHiddenConsoleProcess(szChildName: string;
         ProcPriority: DWORD; ThreadPriority: integer): Boolean;
label
  error;
var
  fCreated: Boolean;
  si: TStartupInfo;
  sa: TSecurityAttributes;
begin
  // Initialize handles
  hPipes[ H_IN_READ ] := INVALID_HANDLE_VALUE;
  hPipes[ H_IN_WRITE ] := INVALID_HANDLE_VALUE;
  hPipes[ H_OUT_READ ] := INVALID_HANDLE_VALUE;
  hPipes[ H_OUT_WRITE ] := INVALID_HANDLE_VALUE;
  hPipes[ H_ERR_READ ] := INVALID_HANDLE_VALUE;
  hPipes[ H_ERR_WRITE ] := INVALID_HANDLE_VALUE;
  ProcessInfo.hProcess := INVALID_HANDLE_VALUE;
  ProcessInfo.hThread := INVALID_HANDLE_VALUE;
  // Create pipes
  // initialize security attributes for handle inheritance (for WinNT)
  sa.nLength := sizeof(sa);
  sa.bInheritHandle := TRUE;
  sa.lpSecurityDescriptor := nil;
  // create STDIN pipe
  if not CreatePipe( hPipes[ H_IN_READ ], hPipes[ H_IN_WRITE ], @sa, 0 ) then
    goto error;
  // create STDOUT pipe
  if not CreatePipe( hPipes[ H_OUT_READ ], hPipes[ H_OUT_WRITE ], @sa, 0 ) then
    goto error;
  // create STDERR pipe
  if not CreatePipe( hPipes[ H_ERR_READ ], hPipes[ H_ERR_WRITE ], @sa, 0 ) then
    goto error;
  // process startup information
  ZeroMemory(Pointer(@si), sizeof(si));
  si.cb := sizeof(si);
  si.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
  si.wShowWindow := SW_HIDE;
  // assign "other" sides of pipes
  si.hStdInput := hPipes[ H_IN_READ ];
  si.hStdOutput := hPipes[ H_OUT_WRITE ];
  si.hStdError := hPipes[ H_ERR_WRITE ];
  // Create a child process
  try
    fCreated := CreateProcess( nil, PChar(szChildName), nil, nil, True,
    ProcPriority, // CREATE_SUSPENDED,
    nil, nil, si, ProcessInfo );
  except
    fCreated := False;
  end;

  if not fCreated then
    goto error;

  Result := True;
  CloseHandle(hPipes[ H_OUT_WRITE ]);
  CloseHandle(hPipes[ H_ERR_WRITE ]);
  // ResumeThread( pi.hThread );
  SetThreadPriority(ProcessInfo.hThread, ThreadPriority);
  CloseHandle( ProcessInfo.hThread );
  Exit;
  //-----------------------------------------------------
  error:
    ClosePipes( hPipes );
    CloseHandle( ProcessInfo.hProcess );
    CloseHandle( ProcessInfo.hThread );
    ProcessInfo.hProcess := INVALID_HANDLE_VALUE;
    ProcessInfo.hThread := INVALID_HANDLE_VALUE;
    Result := False;
end;

Приведенный код - это реализация языка программирования Delphi, которая создает скрытый процесс консоли с использованием труб для коммуникации между родительским и дочерним процессами.

Чтобы получить результат работы этого консольного программы, вы можете использовать функцию ReadFile для чтения из входной трубы (hPipes[H_IN_READ]) или выходной трубы (hPipes[H_OUT_READ]) в вашем родительском процессе.

Вот шаг за шагом руководство по получению результата:

Создайте трубы с помощью CreatePipe и заполните массив hPipes.
В дочернем процессе, пишите в выходную трубу (hPipes[H_OUT_WRITE]) с помощью WriteFile.
В родительском процессе, читайте из входной трубы (hPipes[H_IN_READ]) или выходной трубы (hPipes[H_OUT_READ]) с помощью ReadFile.

Вот пример:

function ReadPipe(hPipe: THandle): string;
var
  buffer: array[1..256] of Char;
  bytesRead: DWORD;
begin
  FillChar(buffer, SizeOf(buffer), #0);
  ReadFile(hPipe, buffer, SizeOf(buffer), bytesRead, nil);
  SetString(result, PAnsiChar(buffer), bytesRead);
end;

procedure Main;
var
  hPipes: TPipeHandles;
  processInfo: TProcessInformation;
begin
   // Создайте трубы
  CreateHiddenConsoleProcess('MyChildProcess.exe', NORMAL_PRIORITY_CLASS, THREAD_PRIORITY_NORMAL);

   // Читайте из выходной трубы
  SetLength(outputPipeBuffer, 256);
  ReadFile(hPipes[H_OUT_READ], PAnsiChar(outputPipeBuffer), Length(outputPipeBuffer), bytesRead, nil);

   // Выведите результат
  Writeln(outputPipeBuffer);
end;

В этом примере функция ReadPipe читает из трубы и возвращает содержимое как строку. В процедуре Main, мы создаем трубы с помощью CreateHiddenConsoleProcess, читаем из выходной трубы, и выводим результат.

Обратите внимание, что в этом примере не включено обрабатывание ошибок для упрощения. В реальном приложении всегда нужно правильно обрабатывать ошибки.

В статье описывается способ получения результата работы консольной программы с помощью создания скрытого процесса и использования пайпов для взаимодействия с ним.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

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

:: Главная :: DOS и Консоль ::

Время компиляции файла: 2024-08-19 13:29:56
2024-11-21 14:20:40/0.0059268474578857/1