Как запустить Python-скрипты в фоновом режиме с помощью Windows-сервиса на Delphi

Delphi , Программа и Интерфейс , Процессы и Сервисы

В контексте обсуждения на форуме, Luca Pretti столкнулся с проблемой запуска Python скриптов в фоновом режиме через Windows-сервис, используя компоненты Delphi. Основной вопрос заключался в том, как правильно инициализировать TPythonEngine для выполнения скриптов без зависаний сервиса.

Шаг 1: Инициализация TPythonEngine

Для корректной работы TPythonEngine, необходимо указать путь к библиотеке Python и соответствующий каталог, где установлен Python. Пример инициализации:

procedure TService1.CreatePyEngine;
begin
    PythonEngine := TPythonEngine.Create(nil);
    PythonEngine.Name := 'PythonEngine';
    PythonEngine.DLLName := 'python313.dll';
    PythonEngine.DllPath := 'c:pathtoyourpythonhome'; // Укажите правильный путь к директории установки Python
    PythonEngine.RegVersion := '3.13';
    PythonEngine.UseLastKnownVersion := False;
    PythonEngine.FatalAbort := False;
    PythonEngine.FatalMsgDlg := False;
    PythonEngine.LoadDll; // Загрузите библиотеку перед использованием
end;

Шаг 2: Создание TPythonEngine в правильном месте

Инициализация TPythonEngine должна происходить в событии OnStart контроллера сервиса, а освобождение ресурсов - в событии OnStop. Это позволяет избежать проблем с многопоточностью и гарантирует корректную работу при каждом запуске сервиса.

Шаг 3: Исправление ошибок импорта

Если при выполнении скриптов возникают ошибки импорта, такие как ImportError, необходимо убедиться, что Python может найти все необходимые модули. Это можно сделать, задав переменную окружения PYTHONHOME и указав путь к каталогу установки Python в свойстве PythonHome объекта TPythonEngine.

Шаг 4: Пример корректной инициализации

procedure TService1.CreatePyEngine;
begin
    PythonEngine := TPythonEngine.Create(nil);
    PythonEngine.Name := 'PythonEngine';
    PythonEngine.DLLName := 'python313.dll';
    PythonEngine.DllPath := 'c:pathtoyourpythonhome'; // Укажите путь к установке Python, включая папку Scripts
    PythonEngine.PythonHome := PythonEngine.DllPath;
    PythonEngine.VenvPythonExe := PythonEngine.DllPath + 'python.exe';
    PythonEngine.RegVersion := '3.13';
    PythonEngine.UseLastKnownVersion := False;
    PythonEngine.FatalAbort := False;
    PythonEngine.FatalMsgDlg := False;
    PythonEngine.LoadDll;
    TPythonThread.Py_Begin_Allow_Threads; // Разрешите многопоточность
end;

Заключение:

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

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

Лука Претти столкнулся с технической задачей по запуску Python скриптов в фоновом режиме на Windows, используя сервисы и компоненты Delphi, и нуждается в помощи с корректной инициализацией `TPythonEngine` для избежания зависаний сервиса.

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

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

:: Главная :: Процессы и Сервисы ::