Как избежать дублирования символов в пакетах при использовании msvcrt.dll в Delphi и Pascal

Delphi , Компоненты и Классы , Модули

Решение проблемы дублирования символов при работе с msvcrt.dll в Delphi и Free Pascal

При использовании нескольких статически линкуемых C-библиотек в одном проекте на Delphi или Free Pascal часто возникает проблема конфликта символов, особенно при работе с устаревшей, но все еще используемой библиотекой msvcrt.dll. В этой статье мы рассмотрим практические способы решения этой проблемы.

Проблема отсутствия atexit в msvcrt.dll

Основная проблема заключается в том, что msvcrt.dll не содержит функцию atexit, но предоставляет аналогичную _onexit. Это создает сложности при работе с кодом, который ожидает наличие стандартной функции atexit.

Простейшее решение — создать шим (переходную функцию):

function onexit(func: Pointer): Integer; cdecl; external name '_onexit';

function atexit(func: Pointer): Integer; cdecl; public name 'atexit';
begin
  Result := onexit(func);
end;

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

Варианты решения

1. Использование отдельной статической библиотеки

Самый надежный вариант — создать отдельную статическую библиотеку (libmsvcrt_shim.a), содержащую определение atexit, и подключать ее к проекту:

{$linklib msvcrt_shim}
{$linklib msvcrt}

Преимущество этого подхода в том, что FPC активно дедуплицирует директивы {$linklib}, что предотвращает множественные определения символа.

2. Использование Pascal-эквивалента AddExitProc

Альтернативный подход — перенаправить вызовы C-кода на Pascal-эквивалент AddExitProc:

procedure PascalExitHandler;
begin
  // Обработчик выхода на Pascal
end;

function atexit(func: Pointer): Integer; cdecl;
begin
  AddExitProc(TProcedure(func));
  Result := 0;
end;

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

3. Использование kernelbase.dll (для Windows 8+)

Если ваше приложение ориентировано на Windows 8 и выше, можно использовать atexit из kernelbase.dll:

function atexit(func: Pointer): Integer; cdecl; external 'kernelbase.dll';

Этот вариант самый простой, но ограничен по совместимости с версиями Windows.

Практический пример рабочего решения

Рассмотрим полный пример, демонстрирующий рабочее решение с шим-библиотекой:

program MsvcrtCompatibilityDemo;

{$mode objfpc}{$H+}

uses
  SysUtils;

// Объявление наших функций
function _onexit(func: Pointer): Integer; cdecl; external name '_onexit';
function atexit(func: Pointer): Integer; cdecl; public name 'atexit';
begin
  Result := _onexit(func);
end;

// Тестовые обработчики
procedure CExitHandler1;
begin
  Writeln('C Exit Handler 1 called');
end;

procedure CExitHandler2;
begin
  Writeln('C Exit Handler 2 called');
end;

begin
  // Регистрация обработчиков через atexit
  atexit(@CExitHandler1);
  atexit(@CExitHandler2);

  // Регистрация стандартного Pascal обработчика
  AddExitProc(procedure
  begin
    Writeln('Pascal Exit Handler called');
  end);

  Writeln('Program running...');
  // При завершении программы обработчики будут вызваны в обратном порядке
end.

Рекомендации по реализации

1. Для общего случая рекомендуется использовать отдельную статическую библиотеку с шимом.
2. Если возможно ограничить поддержку Windows 8+, используйте atexit из kernelbase.dll.
3. При интеграции с существующим Pascal-кодом рассмотрите возможность использования AddExitProc.
4. Избегайте дублирования кода — выносите общие определения в отдельные модули.

Помните, что при работе с msvcrt.dll могут возникнуть и другие проблемы совместимости, поэтому тщательно тестируйте свое решение на всех целевых платформах.

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

Решение проблемы дублирования символов при работе с msvcrt.dll в Delphi и Free Pascal через создание шим-библиотеки, перенаправление вызовов или использование kernelbase.dll.

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

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

:: Главная :: Модули ::