Как из DLL на Delphi получить значения

Imports System
Imports System.Text
Imports System.Runtime.InteropServices
 
Public Class NativeDelphi
 
    Public Structure PImageSet
        Dim Size As Int16
        Dim FFile() As Char ' пробовал всякое
    End Structure
 
    Public Structure MsgSet
        Dim Size As Int16
        Dim Foto() As Char ' пробовал всякое
    End Structure
 
    <DllImport("NativeDll.dll", EntryPoint:="GetImage", _
        CallingConvention:=CallingConvention.StdCall)> _
    Public Shared Function GetImage(ByRef Results As PImageSet) As Integer
    End Function
 
    ' и пробовал так
 
    <DllImport("NativeDll.dll", EntryPoint:="GetMessage", CharSet:=CharSet.Auto)> _
    Public Shared Function GetMessage(<MarshalAs(UnmanagedType.LPStr)> ByRef Result As MsgSet)
    End Function
 
End Class

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
    Public Structure RecordInfo
        Public Size As UShort
        Public Account As Integer
        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=40)> _
        Public Holder() As String
        Public Active As Boolean
        Public WithMngr As Boolean
        Public Expired As Boolean
        Public Locked As Boolean
        Public Seize As Boolean
        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=255)> _
        Public WhyLocked() As String
        Public Unpay As Integer
        Public Discount As UShort
        Public Bonus As UShort
        Public CanPay As Single
        Public DiscLimit As Single
        Public Sum1 As Single
        Public Sum2 As Single
        Public Sum3 As Single
        Public Sum4 As Single
        Public Sum5 As Single
    End Structure
 
    <DllImport(CscLinkLib)> _
    Public Shared Function GetUseInfo(ByVal Card As UInteger, ByVal RCode As Integer, _
                                          ByVal UNo As Integer, ByRef Info As RecordInfo) As Boolean
    End Function

Dim Info As RecordInfo
        Info.Size = 24
        Info.Holder = {}
        Info.WhyLocked = {}
        GetUseInfo(1, 1, 1, Info)

    ' === ИНФОРМАЦИЯ О СЧЕТЕ ===
    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
    Public Structure TAccountInfo
        'Size of TAccountInfo - заполнить перед вызовом
        Public Size As UShort
        ' Номер счёта
        Public Account As Integer
        ' Номер карты
        Public Card As Int64
        ' Фамилия Имя Отчество
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=40)> _
        Public Holder As String
        ' Тип счета:
        '   0 - ручное пополнение без ограничения оплат
        '   1 - автоматическое пополнение без ограничения оплат
        '   2 - автоматическое пополнение с лимитом оплат на один день
        '   3 - автоматическое пополнение с лимитом оплат на неделю
        '   4 - автоматическое пополнение с лимитом оплат на месяц
        '   5 - ручное пополнение с лимитом оплат на один день
        '   6 - ручное пополнение с лимитом оплат на неделю
        '   7 - ручное пополнение с лимитом оплат на месяц
        Public Scheme As Byte
        ' Дата выдачи (0 -> 30/12/1899)
        Public Offered As Integer
        ' Срок действия {*}
        Public Expired As Integer
        ' День рождения {*}
        Public Birthday As Integer
        ' Счет удален?
        Public Deleted As Boolean
        ' Карта заблокирована? {*}
        Public Locked As Boolean
        ' Карту изъять? {*}
        Public Seize As Boolean
        ' Причина блокировки - asciiz {*}
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=255)> _
        Public WhyLocked As String
        ' Номер скидки
        Public Discount As UShort
        ' Номер бонуса {*}
        Public Bonus As UShort
        ' Лимит оплат для счетов c лимитом
        Public PayLimit As Int64
        ' Пол {*}
        Public Female As Boolean
        ' Идентификатор отдела
        Public Folder As UShort
        ' Номер неплательщика
        Public Unpay As Integer
        ' Телефон 1 {*}
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=15)> _
        Public Tel1 As String
        ' Телефон 2 {*}
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=15)> _
        Public Tel2 As String
        ' Электронная почта {*}
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=255)> _
        Public Email As String
        ' Адрес {*}
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=255)> _
        Public Address As String
        ' Произвольная информация - asciiz {*}
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=255)> _
        Public DopInfo As String
        ' Для карт с ручным пополнением - текущий остаток
        Public Balance As Int64
    End Structure

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi, Pack:=1)> _

UnmanagedType.ByValTStr

UnmanagedType.ByValTStr, SizeConst:=256

<DllImport(NativeDll, EntryPoint:="Done")> _
    Private Shared Sub p_Done()
    End Sub
 
    Public Shared Function Done() As Boolean
        Try
            p_Done()
            NativeDll.LastMsg = "The connection is closed"
            Return True
        Catch e As Exception
            NativeDll.LastMsg = e.ToString
            Return False
        End Try
    End Function

NativeDll.LastMsg

LinkDll.LastMsg

    ' Получить информацию о счете
    <DllImport(CscLinkLib, EntryPoint:="GetAccountInfo")> _
    Private Shared Function p_GetAccountInfo(ByVal Account As Integer, ByRef Info As TAccountInfo) As Boolean
    End Function
 
    ' Изменить параметры счета. Изменяются парметры помеченные знаком {*} в структуре TAccountInfo
    ' Перед вызовом сперва заполнить Info вызовом функции GetAccountInfo()
    <DllImport(CscLinkLib, EntryPoint:="SetAccountInfo")> _
    Private Shared Function p_SetAccountInfo(ByVal Info As TAccountInfo) As Boolean
    End Function