Интеграция командных программ на Delphi для отображения вывода в реальном времени

Delphi , ОС и Железо , Windows

Вопрос пользователя заключается в необходимости запуска командной программы, написанной на Delphi, из обычного настольного приложения (также написанного на Delphi) и отображения текста, который программа выводит в "живом" режиме в компоненте ListBox. Для решения этой задачи необходимо использовать механизм "pipe" (канала) для перенаправления вывода команды в приложение.

Решение проблемы

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

Пример кода

procedure RunDosInMemo(DosApp: string; AMemo: TMemo);
var
    Security: TSecurityAttributes;
    readableEndOfPipe, writeableEndOfPipe: THandle;
    start: TStartupInfo;
    ProcessInfo: TProcessInformation;
    Buffer: PAnsiChar;
    BytesRead: DWORD;
    AppRunning: DWORD;
begin
    // Инициализация переменных и создание каналов
    // ...

    // Настройка параметров запуска процесса
    // ...

    // Создание процесса и перенаправление вывода
    // ...

    // Чтение вывода из канала
    repeat
        BytesRead := 0;
        ReadFile(readableEndOfPipe, Buffer[0], READ_BUFFER_SIZE, {var}BytesRead, nil);
        // Преобразование кодировки и добавление в Memo
        // ...
    until (BytesRead < READ_BUFFER_SIZE);
    // Завершение работы с процессами и каналами
    // ...
end;

Альтернативное решение

Также можно использовать функцию Execute из JCL (JEDI Code Library), которая позволяет выполнить команду и передать вывод в callback-функцию:

type
    TTextHandler = procedure(const Text: string) of object;

procedure TTextHandlerQ(const aText: string);
begin
    Memo1.Lines.Add(aText);
end;

var
    Result: Cardinal;
begin
    Result := JExecute('cmd /C dir *.*', @TTextHandlerQ, True, False);
end;

Важные замечания

• При использовании CreateProcess важно правильно настроить параметры STARTUPINFO и PROCESS_INFORMATION.
• Необходимо обрабатывать ситуацию, когда процесс завершает работу, чтобы избежать блокировки приложения.
• В случае использования JExecute из JCL, убедитесь, что вы используете команду с /C, чтобы команда завершилась после выполнения, иначе вывод может быть заблокирован.

Заключение

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

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

Интеграция командных программ на Delphi для отображения их вывода в реальном времени в настольном приложении с использованием механизма 'pipe' для перенаправления вывода.

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

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

:: Главная :: Windows ::