Работа с неуправляемыми библиотеками DLL в C#: вызов функций с параметрами в виде структур

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

Вопрос, с которым столкнулся разработчик, заключается в том, что необходимо вызвать функцию из неуправляемой библиотеки DLL, написанной на языке Delphi, используя язык программирования C#. При этом, в его распоряжении имеется исходный код на Delphi, который успешно работает с данной библиотекой, но нет документации или тип-либрари к ней. При попытке вызова функции из DLL в C# возникает ошибка System.AccessViolationException, указывающая на возможное нарушение доступа к памяти.

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

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

Пример кода на C

В C# структура MyDLLQuery и MyDLLResult определены с использованием атрибута StructLayout(LayoutKind.Sequential), который указывает на последовательную компоновку полей в структуре. Для строковых полей используется MarshalAs, который определяет, как следует обрабатывать строки при передаче между управляемым и неуправляемым кодом.

[StructLayout(LayoutKind.Sequential)]
public struct MyDLLQuery
{
    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 16)]
    public string Frame;

    public int Width { get; set; }

    public double Cost { get; set; }
    ...
}

[StructLayout(LayoutKind.Sequential)]
public struct MyDLLResult
{
    public int NumTubes { get; set; }
    public double Spacing { get; set; }

    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 16)]
    public string Material;
    ...
}

Пример кода на Object Pascal (Delphi)

Пример кода на Delphi показывает, как структуры TInParams и TOutParams используются для вызова той же функции в DLL. Обратите внимание, что в Delphi строки представлены массивами символов фиксированного размера.

TInParams = record
    Frame: array [0..15] of Char;
    Width: Integer;
    Cost: Double;
    ...
end;

TOutParams = record
    NumTubes: Integer;
    Spacing: Double;
    Material: array [0..15] of Char;
    ...
end;

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

После ряда попыток и советов от сообщества разработчиков, был найден рабочий вариант. Ошибка была связана с неправильной настройкой кодировки символов. В C# необходимо было указать CharSet = CharSet.Unicode как для вызова функции, так и для структур.

[DllImport(DLL, CallingConvention = CallingConvention.StdCall, CharSet = CharSet.Unicode)]
private static extern void CalculateData(MyDLLQuery indata, out MyDLLResult outdata, CallbackDelegate f);

[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]
public struct MyDLLQuery
...
[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]
public struct MyDLLResult
...

Альтернативные подходы

В качестве альтернативного подхода можно рассмотреть использование MarshalAs(UnmanagedType.LPWStr) в C# и PChar в Delphi для строк, что позволит избежать необходимости вставлять дополнительные символы-заполнители.

[MarshalAs(UnmanagedType.LPWStr)]
public string BIC;
...
[MarshalAs(UnmanagedType.LPWStr)]
public string IBAN;
...

В Delphi соответствующая запись будет выглядеть так:

Bic          : PChar;
...
Iban         : PChar;
...

Заключение

При работе с неуправляемыми библиотеками важно точно соответствовать формату данных, ожидаемому функцией в DLL. В случае с C# и Delphi это включает в себя правильную настройку компоновки структур, типов данных и кодировки символов.

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

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

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

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

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