Понимание проблемы работы DLL, созданной в Delphi 7.0, в среде без установленного Delphi

Delphi , Файловая система , DLL и PlugIns

Проблема, с которой столкнулся разработчик, заключается в том, что созданная в Delphi 7.0 DLL-файл не работает на компьютерах, где не установлен Delphi. Это связано с зависимостью DLL от библиотеки borlndmm.dll, которая является частью среды разработки Delphi и не предназначена для использования в системах без установленного Delphi.

Контекст проблемы

ДLL-файл, созданный в Delphi 7.0, содержит функцию TransInvoices, которая используется в приложении, написанном на Delphi 10.3. Функция принимает JSON-текст в виде строки на широких символах (PWideChar) и выполняет некоторые операции, результат которых возвращается в виде строки на ANSI-символах (PAnsiChar).

Анализ проблемы

Проблема возникает из-за того, что при компиляции DLL в Delphi 7.0 была включена зависимость от borlndmm.dll. Это связано с использованием определенных типов данных или функций, которые требуют этого компонента. В данном случае, как было отмечено в комментариях, возможно, что тип параметра PWideChar мог вызвать добавление зависимости от SharedMem, что, в свою очередь, приводит к необходимости borlndmm.dll.

Решение проблемы

1. Удаление зависимости от borlndmm.dll:
2. Удалите из списка использования (uses) в DLL-файле единицу ShareMem, если это возможно, и перекомпилируйте DLL.

3. Перекомпиляция без зависимости от borlndmm.dll позволит использовать DLL в средах без установленного Delphi.

4. Развертывание borlndmm.dll:

5. Если удаление зависимости невозможно, необходимо развернуть borlndmm.dll вместе с вашей DLL в целевой системе.

Пример кода

// Файл интерфейса DLL (Unit1.h)
interface

uses
  SysUtils;

function TransInvoices(JSONText: PWideChar): PAnsiChar; stdcall;

exports
  TransInvoices;

// Файл реализации DLL (Unit1.cpp)
implementation

uses
  // Убедитесь, что здесь нет ShareMem
  SysUtils;

type
  TdmData = class
  private
    // Определения для TdmData
  public
    function Trans(JSONText: PWideChar): PAnsiChar;
    // Остальные методы и свойства
  end;

var
  dm: TdmData;

function TdmData.Trans(JSONText: PWideChar): PAnsiChar;
begin
  // Реализация функции Trans
end;

function TransInvoices(JSONText: PWideChar): PAnsiChar; stdcall;
begin
  dm := TdmData.Create(nil);
  try
    Result := dm.Trans(JSONText);
  finally
    FreeAndNil(dm);
  end;
end;

Альтернативное решение

Если вы хотите избежать зависимости от borlndmm.dll, рассмотрите возможность переписывания кода DLL таким образом, чтобы он не зависел от компонентов среды разработки Delphi. Это может включать изменение способа работы с данными, чтобы не использовать функции, требующие borlndmm.dll.

Заключение

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

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

заключается в необходимости адаптации DLL, созданной в Delphi 7.0, для работы в средах, где не установлена сама среда разработки Delphi.

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

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

:: Главная :: DLL и PlugIns ::