Как вызвать функцию из Delphi DLL в VB.NET с использованием записей и массивов?

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

Вопрос, с которым столкнулся пользователь, связан с вызовом функции из Delphi DLL в VB.NET, которая возвращает запись, содержащую целые числа и массив байтов. При использовании только целых чисел в структуре все работает корректно, но как только добавляется массив байтов или булево значение, возникает ошибка "Method's type signature is not PInvoke compatible".

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

В VB.NET была создана структура SysInfo, которая содержит целые числа и массив байтов. Функция getsysinfoF из Delphi DLL предназначена для возврата такой структуры. При вызове этой функции с использованием DllImport возникает ошибка, связанная с несовместимостью типов.

Пример кода

Вот пример кода на VB.NET, который вызывает функцию из Delphi DLL:

Public Structure SysInfo
    Public iPrtRes As Integer
    Public iMaxRips As Integer
    Public iUnits As Integer
    Public str As Byte()
End Structure

<DllImport("C:\project2.DLL", CallingConvention:=CallingConvention.Cdecl)>
Public Function getsysinfoF() As SysInfo
End Function

Dim theSysInfoRec As SysInfo
ReDim theSysInfoRec.str(255)

theSysInfoRec = getsysinfoF()

И соответствующий код на Object Pascal (Delphi):

type
  SysInfo = record
    iPrtRes: Integer;
    iMaxRips: Integer;
    iUnits: Integer;
    str: array[0..255] of Byte;
  end;

function getsysinfoF() : SysInfo; cdecl
begin
  result.iPrtRes := 400;
  result.iMaxRips := 300;
  result.iUnits := 200;
  result.str[0] := $FF;
end;

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

Проблема заключается в том, что массивы в .NET управляемом коде отличаются от неуправляемых массивов в других языках. Для корректной работы необходимо указать PInvoke, как осуществлять маршалинг массива в структуре, что зависит от того, как DLL выделяет и управляет этим массивом. Это может быть C-стилевой массив, динамический массив Delphi или SafeArray ActiveX/COM. В PInvoke-объявлении структуры на стороне .NET нужно использовать атрибут MarshalAs для указания способа маршалирования.

Пример решения

Вот исправленный код на VB.NET с использованием атрибута MarshalAs для маршалирования массива байтов:

<StructLayout(LayoutKind.Sequential)>
Public Structure SysInfo
    Public iPrtRes As Integer
    Public iMaxRips As Integer
    Public iUnits As Integer
    <MarshalAs(UnmanagedType.ByValArray, SizeConst := 256)>
    Public str() As Byte
End Structure

<DllImport("C:\project2.DLL", CallingConvention:=CallingConvention.Cdecl)>
Public Function getsysinfoF() As SysInfo
End Function

Альтернативный ответ

Также стоит рассмотреть возможность изменения функции Delphi таким образом, чтобы она возвращала запись как параметр вызова по ссылке, а не как возвращаемое значение. Это может быть необходимо из-за различий в том, как Delphi и .NET передают записи в качестве возвращаемых значений.

Заключение

Для успешного вызова функции из Delphi DLL в VB.NET, необходимо правильно настроить маршалинг массивов и учитывать особенности передачи данных между управляемым и неуправляемым кодом. Использование атрибутов MarshalAs и StructLayout поможет обеспечить корректную работу с записями и массивами.

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

Пользователь столкнулся с проблемой совместимости типов при вызове функции из Delphi DLL в VB.NET, которая возвращает структуру с целыми числами и массивом байтов, и ищет решение для корректного маршалинга данных.

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

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

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