Исправление вывода консоли Delphi в C# WinForm: обход ошибки при использовании `UseShellExecute = false`

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

Исправление вывода консоли Delphi в C# WinForm: обход ошибки при использовании UseShellExecute = false

Вопрос, с которым столкнулся разработчик, заключается в том, что при попытке запуска консольного приложения, написанного на Delphi, из C# WinForm-приложения с целью перенаправления вывода, приложение завершает свою работу сразу после запуска. Это происходит, когда используется параметр UseShellExecute = false. В контексте статьи будет рассмотрен процесс решения данной проблемы, а также предложены пути её устранения.

Описание проблемы

Разработчик имеет консольное приложение Host.exe, написанное на Delphi, и хочет перенаправить его вывод в C# WinForm-приложение. При использовании параметра UseShellExecute = true приложение запускается нормально, но получить вывод не удаётся, так как окно консоли не отображается. Однако, при попытке перенаправить вывод (redirection), используя UseShellExecute = false, процесс завершается сразу же (HasExited = true), и цикл ожидания завершения процесса прерывается.

Пример кода с использованием UseShellExecute = true

ProcessStartInfo pp = new ProcessStartInfo();
pp.WorkingDirectory = Path.GetDirectoryName(Application.ExecutablePath);
pp.FileName = Path.Combine(pp.WorkingDirectory, "Host.exe");
pp.CreateNoWindow = false;
pp.WindowStyle = ProcessWindowStyle.Normal;
pp.UseShellExecute = true;
using (Process pProcess = Process.Start(pp))
{
    while ((pProcess != null) && (!pProcess.HasExited))
    {
        Application.DoEvents();
        Thread.Sleep(updatefreq);
    }
}

Пример кода с использованием UseShellExecute = false и перенаправлением вывода

ProcessStartInfo pp = new ProcessStartInfo();
pp.WorkingDirectory = Path.GetDirectoryName(Application.ExecutablePath);
pp.FileName = Path.Combine(pp.WorkingDirectory, "Host.exe");
pp.UseShellExecute = false;
pp.RedirectStandardOutput = true;
pp.RedirectStandardInput = true;
pp.RedirectStandardError = true;
pp.CreateNoWindow = true;
pp.WindowStyle = ProcessWindowStyle.Hidden;
StreamReader outputReader = null;
using (Process pProcess = Process.Start(pp))
{
    if (pProcess != null)
    {
        outputReader = pProcess.StandardOutput;
    }
    while ((pProcess != null) && (!pProcess.HasExited))
    {
        // ...
    }
}

Подтверждённый ответ

Причиной ошибки является использование функций Reset и Rewrite в консольном модуле Delphi, который в процедуре инициализации вызывает InitScreenMode. Эти вызовы могут приводить к конфликтам при перенаправлении вывода в C#.

Reset(Input);
Rewrite(Output);
StdIn := TTextRec(Input).Handle;
StdOut := TTextRec(Output).Handle;

Удаление или комментирование соответствующих строк в консольном модуле Delphi позволяет решить проблему.

Альтернативные шаги для решения проблемы

1. Убедитесь, что UAC (User Account Control) выключен, если это не противоречит требованиям безопасности.
2. Проверьте консольное приложение на наличие других потенциальных проблем, которые могут вызывать преждевременное завершение работы.
3. Попробуйте создать простой пример консольного приложения на Delphi, который будет выводить сообщения и работать в цикле, чтобы убедиться, что проблема не связана с логикой работы вашего приложения.

Заключение

В данной статье были рассмотрены основные шаги для исправления проблемы с выводом консоли Delphi-приложения в C# WinForm-приложение. Особое внимание было уделено использованию параметра UseShellExecute и его влиянию на работу консольного приложения, а также предложен путь решения проблемы с помощью изменения кода в консольном модуле Delphi.

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

Разработчик сталкивается с проблемой запуска и перенаправления вывода консольного приложения, написанного на Delphi, из C# WinForm-приложения, когда использование параметра `UseShellExecute = false` приводит к немедленному завершению процесса.

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

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

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