Как из 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

    ' Возврат назначенного на счет изображения
    <DllImport(CscLinkLib, EntryPoint:="GetAccountImage")> _
    Private Shared Function p_GetAccountImage(ByVal Account As Integer, ByVal callback As FWriteCallback) As Boolean
    End Function
 
    ' Процедура обратного вызова для записи информации, полученной от сервера
    Private Delegate Sub FWriteCallback(ByVal pData As IntPtr, ByVal size As Integer)
 
    ' Этот метод возвращает назначенное на счет изображение и будет вызван из CscLinkLib
    Private Shared Sub FWrite(<[In]()> ByVal pData As IntPtr, ByVal size As Integer)
    ' Здесь в pData и в size имеем некоторые значения. Но что с ними делать? По размеру, size не совпадает ни с размером загруженного
    ' изображения ни с количеством точек. pData - это вроде как представляет указатель или дескриптор... Бррр
    ' Признаюсь - не догоняю...
    ' И да - Вы предлагали тут маршаллить как Marshal.ReadX или Marshal.Copy
    ' Что то и с этим не очень выходит - опять натыкаюсь на разного рода ошибки
    End Sub
 
    ' Вызываем
    Dim callback As New FWriteCallback(AddressOf FWrite)
    p_GetAccountImage(Account, callback)

    ' === ИНФОРМАЦИЯ О ТРАНЗАКЦИИ ===
    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi, Pack:=1)> _
    Public Structure TTransactionInfo
        ' Size of TTransactionInfo - заполнить перед вызовом
        Public Size As UShort
        ' 0-оплата 1-скидка 2-бонус 3-потраты гостя
        Public Kind As UShort
        ' Сумма в копейках
        Public Summa As Int64
        ' Код ресторана
        Public RestCode As UShort
        ' Дата чека (0 -> 30/12/1899)
        Public LogDate As Integer
        ' Номер кассы
        Public UnitNum As Byte
        ' Номер чека
        Public CheckNo As Integer
        ' Комментарий - для ручных транзакций
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=256)> _
        Public Comment As String
    End Structure

    ' Процедура обратного вызова для перечисления транзакций по счету
    Private Delegate Sub EnumTransactionsCallback(<[In]()> ByVal Account As Integer, _
                                    ByVal TWhen As Date, ByRef info As TTransactionInfo)
 
    ' Перечислениe транзакций по счёту, результаты возвращаются через процедуру EnumTransactions
    <DllImport(CscLinkLib, CharSet:=CharSet.Ansi, EntryPoint:="GetAccountTransactions")> _
    Private Shared Function p_GetAccountTransactions(ByVal Account As Integer, ByVal DateFirst As Date, _
                                    ByVal DateLast As Date, ByVal callback As EnumTransactionsCallback) As Boolean
    End Function
 
    ' === МЕТОД ВОЗВРАЩАЕТ МАССИВ ТРАНЗАКЦИЙ ПО СЧЕУ И БУДЕТ ВЫЗВАН ИЗ EnumTransactionsCallback ===
    Private Shared Sub EnumTransactions(<[In]()> ByVal Account As Integer, _
                                    ByVal TWhen As Date, ByRef info As TTransactionInfo)
        'p_ListTransaction.Add(info) - добавит info в массив, однако туда же необходимо поместить еще Account и TWhen
    End Sub