[VB.NET] Uso della funzione CopyMem() migrando da VB6

[Pirelli72]

Ho qualche difficoltà a tradurre questo passaggio:

Function OnNewFrame(ByRef Buffer As Byte, ByVal FrameCounter As Long) As Long
Dim x As Integer, y As Integer, n As Integer
Dim c1 As Long, c2 As Long, d As Long, e As Long
Dim R As Byte, G As Byte, B As Byte

On Error GoTo OnNewFrameM1
    Call CopyMem(Arr(0, 0), Buffer, Size * 2)

'Resto del codice
  
End Function

Ok il parametro Buffer è un puntatore al buffer che contiene una matrice bidimensionale di un'immagine.
Come traduco quel:

 CopyMem(Arr(0, 0), Buffer, Size * 2)

in VB.net?

Grazie mille

[oregon]

Ma CopyMem cosa è nel programma VB6 ?

[Pirelli72]

Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)

[oregon]

La copia diretta dalla memoria non è utilizzabile per vettori/matrici .NET ...

Prova a leggere questo

http://www.codeproject.com/KB/vb/CopyMemory_in_Net.aspx

[Pirelli72]

Ci do un'occhiata, grazie

[Pirelli72]

Non ci siamo...

Dunque per capire bene come funziona il tutto mi sono costruito una .dll in C++ con questa semplice funzione.

 __declspec(dllexport) int* fnwrapper_intarr()
{
    int* test = new int[3];

    test[0] = 44;
    test[1] = 64;
    test[2] = 56;

    return test;
}

Ovviamente in Vb.Net la dichiaro:

<DllImport("Elaboration.dll")> _
    Public Function fnwrapper_intarr() As IntPtr
    End Function

e poi la utilizzo.

Dim myaddress As IntPtr = fnwrapper_intarr()

Dim result(2) As Byte
 Marshal.Copy(myaddress, result, 0, 3)

Ok, nella mia matrice result compare solo il primo elemento, ovvero 44, il secondo e il terzo zero.

Dove sbaglio?

[Pirelli72]

Non so se sia corretto ma in questo modo mi ritorna la matrice intera:

 __declspec(dllexport) int* fnwrapper_intarr()
{
    int* test = new int[3];

    test[0] = 44;
    test[1] = 64;
    test[2] = 56;

    return test;
}

  Dim myaddress As IntPtr = fnwrapper_intarr()
            Dim result(2) As Byte
           
            Dim tempAddress As Integer = myaddress.ToInt32

            For i As Integer = 0 To 2
                myaddress = New IntPtr(tempAddress)
                Marshal.Copy(myaddress, result, i, 1)
                tempAddress = myaddress.ToInt32 + 4
            Next