Ускорение консольного ПО на Delphi 7: решение проблемы с производительностью при запуске сервиса на Windows 7 и Windows Server 2008 R2

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

Ускорение консольного ПО на Delphi 7: решение проблемы с производительностью

Разработка программного обеспечения на Delphi 7 может столкнуться с различными техническими проблемами, особенно при переходе на новые версии операционных систем. Одной из таких проблем является значительное увеличение времени выполнения консольного ПО, использующего встроенный TCP-сервер для ответа на внешние запросы. В статье рассматривается проблема, связанная с ухудшением производительности на Windows 7 и Windows Server 2008 R2, и предлагается решение.

Проблема

Разрабатываемое консольное ПО на Delphi 7 использует встроенный TCP-сервер для обработки запросов от CGI, в результате чего генерируются HTML-страницы с графиками Teechart и данными из базы данных, используя DbExpress. При запуске ПО как сервиса с учетной записью системы на Windows 7 и Windows Server 2008 R2 наблюдается существенное увеличение времени выполнения — в 2-3 раза по сравнению с Windows XP или Windows Server 2003. Однако, когда ПО запускается от простого пользователя или в режиме отладки, проблема исчезает.

Анализ

Используя ProcessExplorer, было замечено, что при запуске ПО как сервиса не создаются GDI и User Handles, в отличие от запуска от пользовательского аккаунта. В Windows XP и Windows Server 2003 такие Handles создаются независимо от контекста запуска. Это наблюдение может быть связано с проблемой производительности.

Решение

После дополнительного анализа и добавления логирования процесса, было выявлено, что проблема связана с использованием функций Win32 API, работающих с локалями. Рекомендуется использовать функции, работающие с именами локалей, которые не подвергаются устареванию. В частности, использование функции CompareStr вместо CompareString может существенно ускорить процесс сравнения, так как последняя работает медленнее при запуске в контексте системы (Session 0).

Пример кода

// Пример перегрузки метода сравнения в TStringList
function CompareStr(const A, B: string): Integer;
begin
  Result := CompareText(A, B, TfIgnoreCase);
end;

Также было обнаружено, что замена константы LOCALE_USER_DEFAULT на LOCALE_INVARIANT с помощью условной компиляции может решить проблему:

{$IFDEF OVERLOAD_LUD}
const
  LOCALE_INVARIANT = $7;
  LOCALE_USER_DEFAULT = LOCALE_INVARIANT;
{$ENDIF}

Заключение

Использование альтернативных функций сравнения и корректировка констант локали могут значительно улучшить производительность консольного ПО на Delphi 7, запущенного как сервис на Windows 7 и Windows Server 2008 R2. Это решение позволит разработчикам избежать необходимости обновления среды разработки, что может быть сложным и ресурсоемким процессом.

В данной статье мы рассмотрели проблему, с которой столкнулись разработчики консольного ПО на Delphi 7, и предложили конкретные шаги для её решения. Приведенные примеры кода на Object Pascal помогут читателям внести необходимые изменения в свой код для ускорения работы ПО.

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

Ускорение консольного ПО на Delphi 7 достигается через оптимизацию функций Win32 API и изменение локалей, что решает проблему снижения производительности на новых версиях Windows.

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

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

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