Интеграция Delphi DLL в проекты на C#: решение проблем совместимости типов

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

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

Проблема

Разработчик столкнулся с необходимостью использования сторонней библиотеки, написанной на Delphi, в проекте на C#. Пример использования библиотеки в Delphi представлен следующим кодом:

type
    TD_Query = function(host: WideString; port: Word; pud, query: WideString): WideString; stdcall;
procedure TForm11.Button6Click(Sender: TObject);
var
    Handle: LongWord;
    D_Query: TD_Query;
    sss: WideString;
begin
    Handle := LoadLibrary('kobrasdk.dll');
    if Handle <> 0 then
    begin
        @D_Query := GetProcAddress(Handle, 'D_Query');
        sss := D_Query('host', 8201, 'pud', 'query');
        FreeLibrary(Handle);
    end;
end;

Попытка интеграции в C# привела к ошибке, связанной с защищенной памятью, что часто указывает на проблему с корректностью памяти в приложении.

Решение

При вызове функций из DLL, написанной на Delphi, в проекте на C#, важно учитывать соглашения о вызовах (calling conventions) и типы данных. В данном случае, проблема заключается в использовании WideString в качестве возвращаемого типа. В C# для работы с такими типами данных необходимо использовать MarshalAs.

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

Если доступ к исходному коду Delphi библиотеки отсутствует, можно создать прокси-библиотеку на Delphi, которая будет возвращать данные в формате, совместимом с C#. Пример прокси-библиотеки:

procedure My_D_Query(host: WideString; port: Word; pud, query: WideString; out result: WideString); stdcall;
var
    Handle: LongWord;
    D_Query: TD_Query;
    sss: WideString;
begin
    Handle := LoadLibrary('kobrasdk.dll');
    if Handle <> 0 then
    begin
        @D_Query := GetProcAddress(Handle, 'D_Query');
        sss := D_Query(host, port, pud, query);
        FreeLibrary(Handle);
    end;
    result := sss;
end;

И соответствующий вызов из C#:

[DllImport("C:\\MyDll.dll", CallingConvention = CallingConvention.StdCall,
    CharSet = CharSet.Ansi)]
public static extern void My_D_Query(
    [MarshalAs(UnmanagedType.BStr)]
    string host,
    int port,
    [MarshalAs(UnmanagedType.BStr)]
    string pud,
    [MarshalAs(UnmanagedType.BStr)]
    string query,
    [MarshalAs(UnmanagedType.BStr)]
    out string result
);

Подтвержденное решение

Delphi использует другой подход к управлению памятью и возврату типов данных, который отличается от того, что используется в Microsoft C/C++. В частности, WideString в Delphi является управляемым типом и для работы с ним как с возвращаемым типом используется специальный подход.

Delphi компилятор преобразует функцию с возвращаемым значением WideString в процедуру с параметром, который возвращает результат:

procedure(var result: WideString; host: WideString; port: Word; pud, query: WideString); 
    stdcall;

Таким образом, в C# можно вызвать исходную функцию Delphi, импортировав её в измененном виде:

[DllImport(@"...", CallingConvention = CallingConvention.StdCall)]
public static extern void My_D_Query(
    [MarshalAs(UnmanagedType.BStr)]
    out string result,
    [MarshalAs(UnmanagedType.BStr)]
    string host,
    ushort port,
    [MarshalAs(UnmanagedType.BStr)]
    string pud,
    [MarshalAs(UnmanagedType.BStr)]
    string query
);

Заключение

При интеграции Delphi DLL в проекты на C# важно учитывать различия в соглашениях о вызовах и типах данных. В случае с WideString необходимо использовать MarshalAs для корректного взаимодействия между языками. Создание прокси-библиотеки может быть одним из решений, но для данной проблемы достаточно изменить тип параметра на out в C#.

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

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

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

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

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