Интеграция внешних консольных приложений в приложения на Delphi: скрытый запуск и перенаправление вывода

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

Интеграция внешних консольных приложений в приложения на Delphi

При разработке приложений на языке Delphi иногда возникает необходимость запустить внешнее консольное приложение прямо из программы. Однако, в таких случаях часто требуется скрыть окно консоли и перенаправить все сообщения, генерируемые консольным приложением, в какой-либо контроль (например, в TextBox или Memo) внутри вашего приложения. Кроме того, должно быть предусмотрено возможность ввода текста пользователем через этот же контроль. В данной статье мы рассмотрим, как реализовать такую функциональность.

Запуск консольного приложения из Delphi

Для запуска консольного приложения из Delphi и перенаправления его вывода в текстовый контроль, можно использовать следующий подход:

1. Создайте два именованных канала (pipe): один для ввода и один для вывода.
2. Настройте структуру STARTUPINFO, чтобы указать, что вывод консольного приложения должен быть перенаправлен в канал вывода.
3. Запустите консольное приложение с помощью функции CreateProcess, используя подготовленную структуру STARTUPINFO.
4. Чтение данных из канала вывода и их отображение в текстовом контроле вашего приложения.

Пример кода на Object Pascal (Delphi)

procedure TFMainForm.RunDosInMemo(const App: String; AMemo: TRichEdit);
const
  ReadBuffer = 2400;
var
  Security : TSecurityAttributes;
  StdInPipeR, StdInPipeW : THandle;
  StdOutPipeR, StdOutPipeW : THandle;
  StartInfo : TStartUpInfo;
  ProcessInfo : TProcessInformation;
  Buffer : PByte;
  BytesAvailable, BytesRead : DWord;
  sData: RawByteString;
begin
  // ... (код создания каналов и настройки структуры STARTUPINFO)
  // ...
  if CreateProcess(nil, 
                   PChar(sDosApp), 
                   nil, 
                   nil, 
                   True, 
                   NORMAL_PRIORITY_CLASS, 
                   nil, 
                   nil, 
                   StartInfo, 
                   ProcessInfo) then
  begin
    // ... (код чтения данных из канала вывода и их отображения в Memo)
    // ...
  end;
  // ... (код закрытия каналов и процессов)
  // ...
end;

Возможность ввода текста

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

Заключение

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

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

Приведен пример кода на Object Pascal для Delphi, демонстрирующий, как запустить и интегрировать внешнее консольное приложение, перенаправив его вывод в текстовый контроль приложения, и обеспечить возможность ввода текста пользователе

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

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

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