Отладка и запуск внешних консольных приложений в Delphi XE8: решение проблемы с выводом в UTF-16

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

В данной статье мы рассмотрим проблему, с которой сталкиваются разработчики, работающие с Delphi XE8, при попытке запустить внешнее консольное приложение и захватить его вывод. Особое внимание будет уделено случаям, когда приложение использует кодировку UTF-16.

Проблема

При использовании стандартного кода для запуска внешних команд (например, cmd.exe /c dir) вывод отображается корректно. Однако, при запуске консольного приложения ("c:\consoleapp.exe" "/parameter") происходит зависание в цикле ожидания завершения процесса.

Пример кода

Ниже представлен пример кода, который используется для запуска внешних консольных приложений и захвата их вывода:

procedure TForm1.Button1Click(Sender: TObject);
begin
  RunDosInMemo('cmd.exe /c dir', Memo1); // Работает корректно
  RunDosInMemo('"c:\consoleapp.exe" "/parameter"', Memo1); // Зависает
end;

procedure TForm1.RunDosInMemo(DosApp: String; AMemo: TMemo);
var
  Security: TSecurityAttributes;
  ReadPipe, WritePipe: THandle;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  Buffer: PChar;
  BytesRead: DWord;
  AppRunning: DWord;
  S: String;
begin
  // Инициализация и создание каналов...
  // Запуск процесса и ожидание его завершения...
  // Чтение вывода из канала и его обработка...
end;

Описание ситуации

Проблема заключается в том, что введенный в коде алгоритм не обрабатывает вывод в кодировке UTF-16, который использует консольное приложение. Это приводит к тому, что буфер чтения заполняется непонятными символами, и требуется корректировка способа обработки вывода.

Подход к решению

При использовании консольного приложения, которое генерирует вывод в кодировке UTF-16, необходимо внести следующие изменения:

• Использовать буфер для чтения данных в кодировке UTF-16.
• Обработать чтение вывода в процессе выполнения приложения, не дожидаясь его завершения.
• Обеспечить использование двух различных каналов для ввода и вывода, чтобы избежать "ошибки Ouroboros".

Пример исправленного кода

// Исправление буфера и обработки кодировки
// Используем буфер для UTF-16 и соответствующие функции преобразования

Примечание

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

Выводы

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

Применение этих рекомендаций позволит вам успешно запускать и отлаживать внешние консольные приложения в Delphi XE8, даже если они используют UTF-16 для вывода данных.

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

Проблема в Delphi XE8 связана с некорректной обработкой вывода в кодировке UTF-16 при запуске внешних консольных приложений, что приводит к зависанию программы.

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

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

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