Использование функций из DLL на Delphi в Python с ctypes: решение проблем с типами данных

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

Вопрос пользователя связан с вызовами функций из динамически подключаемой библиотеки (DLL), написанной на Delphi, в Python с использованием модуля ctypes. Проблема заключается в несоответствии типов данных между Delphi и Python, что приводит к ошибкам при выполнении вызовов функций.

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

Пользователь пытается вызвать функцию GetAddressFields из DLL в Python 3.4. Сигнатура функции выглядит следующим образом:

function GetAddressFields(
    AddressStr: String;
    var FullStr: String;
    var QualifiedStr: String;
    Separator: ShortString = #13#10;
    IsRussia: Boolean = True;
    WithDescription: Boolean = True;
    WithExceptions: Boolean = True;
    LastIsHome: Boolean = True;
    Subject: Boolean = True;
    WithUnrecognized: Boolean = True): String;

Пользователь предполагает, что типы данных в Delphi соответствуют следующим типам в ctypes:

• String и ShortString соответствуют c_char_p
• var String соответствует POINTER(c_char_p)
• Boolean соответствует c_bool

Однако, при попытке вызвать функцию, возникает ошибка OSError: exception: access violation reading 0x00000001, которая указывает на проблему с доступом к памяти.

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

Проблема заключается в том, что типы данных, используемые в DLL, специфичны для Delphi и не могут быть напрямую использованы в Python. В частности, типы String и ShortString в Delphi не соответствуют c_char_p в ctypes, как предполагал пользователь.

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

Для решения проблемы необходимо создать обертку (wrapper) для функций DLL, которая будет конвертировать типы данных из Delphi в типы, совместимые с C и, соответственно, с ctypes. Это можно сделать, используя Delphi или C++Builder, чтобы обернуть функции и преобразовать типы данных Delphi в совместимые с C типы, такие как char * (PAnsiChar) или wchar_t * (PWideChar).

Поскольку у пользователя нет доступа к исходному коду DLL, единственным вариантом остается написание такой обертки. В этом случае следует использовать единицу ShareMem в качестве первой в обертке и надеяться, что она является совместимой.

Пример кода обертки на Delphi

program AddressFieldsWrapper;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  System.Classes,
  System.Math,
  Winapi.Windows,
  ShareMem;

// Обертка функции GetAddressFields
function GetAddressFieldsWrapper(
    AddressStr: string;
    var FullStr: string;
    var QualifiedStr: string;
    Separator: string = '\r\n';
    IsRussia: Boolean = True;
    WithDescription: Boolean = True;
    WithExceptions: Boolean = True;
    LastIsHome: Boolean = True;
    Subject: Boolean = True;
    WithUnrecognized: Boolean = True): string;
var
  DLL: HMODULE;
  Func: TFuncAddressFields;
  PFullStr, PQualifiedStr: PChar;
begin
  // Загрузка DLL и получение адреса функции
  DLL := LoadLibrary('PATH_TO_DLL');
  if DLL = 0 then
    RaiseLastOSError;
  Func := GetProcAddress(DLL, 'GetAddressFields');
  if Func = nil then
    RaiseLastOSError;

  // Подготовка параметров для вызова функции
  SetLength(FullStr, 0);
  SetLength(QualifiedStr, 0);
  PFullStr := @FullStr[1];
  PQualifiedStr := @QualifiedStr[1];

  // Вызов функции из DLL
  Result := Func(AddressStr, PFullStr, PQualifiedStr, PChar(Separator), IsRussia, WithDescription, WithExceptions, LastIsHome, Subject, WithUnrecognized);
end;

begin
  // Пример использования обертки
  var FullResultStr, QualifiedResultStr: string;
  var result: string;
  result := GetAddressFieldsWrapper('test', FullResultStr, QualifiedResultStr, IsRussia: False);
  // Дальнейшие действия с результатом
  Writeln(result);
  // Освобождение ресурсов
  FreeAndNil(DLL);
  Readln;
end.

После создания обертки, пользователь сможет вызвать функцию GetAddressFieldsWrapper в Python, используя ctypes для работы с обернутой библиотекой, которая будет совместима с Python.

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

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

Пользователь пытается вызвать функцию из DLL, написанной на Delphi, в Python с использованием модуля `ctypes`, но сталкивается с проблемами, связанными с несоответствием типов данных между языками.

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

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

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