Обработка вывода внешней программы в Delphi с использованием Win32 `CreateProcess`

Delphi , Синтаксис , Ошибки и Исключения

Обработка вывода внешней программы в Delphi с использованием Win32 CreateProcess

Вопрос, поднятый в данной теме, заключается в возможности захвата строки, возвращаемой внешней программой, запущенной с помощью функции Win32 CreateProcess. В рамках использования Delphi и Object Pascal, разработчики часто сталкиваются с необходимостью взаимодействия с внешними программами, и в данном случае рассматривается задача получения строкового вывода.

Проблема

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

Возможные решения

Использование общего доступа к памяти

Для обмена данными между приложениями можно использовать общий доступ к памяти с помощью CreateFileMapping. Пример кода на Object Pascal для создания файла с общим доступом:

var
  fMapping: THandle;
  pMapData: Pointer;
begin
  fMapping := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE,
    0, MAPFILESIZE, pChar('MAP NAME GOES HERE'));
  pMapData := MapViewOfFile(fMapping, FILE_MAP_ALL_ACCESS, 0, 0, 0);
  // ... использование pMapData ...
  if pMapData <> nil then
    UnMapViewOfFile(pMapData);
  if fMapping <> 0 then
    CloseHandle(fMapping);
end;

Перехват стандартного вывода

Если требуется захватить вывод внешней программы, можно перенаправить стандартный вывод в файл results.txt и затем прочитать его содержимое:

yourprog.exe > results.txt

Или использовать метод создания пайпа для захвата вывода и чтения его содержимого.

Использование функции CreateDOSProcessRedirected

В библиотеке Jedi Code Library (JCL) есть функция CreateDOSProcessRedirected, которая позволяет запустить процесс и предоставить ему файлы для ввода и вывода. Это позволяет записать требуемый ввод в файл ввода и прочитать вывод из файла вывода после завершения работы процесса. Вот пример реализации этой функции в JCL:

function CreateDOSProcessRedirected(const CommandLine, InputFile, OutputFile: string): Boolean;
// ... реализация функции ...
end;

Подтвержденное решение

Использование функции CreateDOSProcessRedirected из Jedi Code Library является предпочтительным способом для обработки вывода внешней программы в Delphi. Эта функция позволяет эффективно управлять вводом и выводом процесса, не прибегая к записям в файлы и последующему их чтению, что может быть менее удобным и более медленным. Разработчикам рекомендуется ознакомиться с этой функциональностью и использовать её для решений подобного рода.

Создано по материалам из источника по ссылке.

Вопрос связан с обработкой вывода внешней программы в среде Delphi с использованием функции Win32 `CreateProcess`, рассматриваются различные методы получения строкового вывода, включая использование общего доступа к памяти и перехват

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

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

:: Главная :: Ошибки и Исключения ::