[.net2] CopyMemoryRésolu

Question

Bonsoir,
J'ai une ancienne fonction en vb6 et je suis en train de la passer en .net mais je rencontre un probl&#232;me avec CopyMemory
Ci-dessous le bout de code qui me pose probl&#232;me

Je pense qu'il faut utiliser la classe marshal au lieu de CopyMemory mais je ne sais pas comment m'y prendre
Si quelqu'un pouvait m'orienter ou m'apporter un peu d'aide cela m'aiderai beaucoup

------------------------------------------------------------
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Public Function chkdsk_Callback(ByVal Command As Long, ByVal Action As Long, ByVal Info As Long) As Byte

   Dim progress as Long

   CopyMemory VarPtr(progress), Info , 4

   MaProgressbar.Value = progress

   ChkdskCallback = 1

End Sub

--------------------------------------------------------------

Gobillot · Accepted Answer

je crois avoir vu l'instruction:

CopyMemory ByVal VarPtr(percent), ByVal ActionInfo, 4
&#233;quivallent &#224; &#231;a:

CopyMemory percent, ByVal ActionInfo, 4





V&#233;rifie tes donn&#233;es, est-ce que c'est bien des Long ou des Integer.

"progress as Long"  ne doit faire 4 en net



sinon voir quelques infos ici:

http://www.vbfrance.com/forum.v2.aspx?ID=605661



Daniel

Gobillot · Answer

c'est pas tr&#232;s clair ton truc:

CopyMemory VarPtr(progress), Info , 4

c'est pas la valeur de progress qui sera chang&#233;e, mais une donn&#233;e
temporaire qui contient l'adresse de progress et sera supprim&#233;e apr&#232;s
l'instruction.





apparemment c'est Info qui est un pointeur.

essayes &#231;a, mais c'est pas garanti, &#233;tant donn&#233; que je ne connais pas net



Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As int32)



Public Function chkdsk_Callback(ByVal Command As Long, ByVal Action As Long, ByVal Info As Long) As Byte



   Dim progress as Long



   CopyMemory progress, ByVal Info , 4



   MaProgressbar.Value = progress



   ChkdskCallback = 1



End Sub




Daniel

cs_Willi · Answer

Merci,
Mais j'ai simplifier de m&#233;moire une partie de la fonction &#224; traduire mais les ByVal y sont d&#233;j&#224; et en .net CopyMemory provoque une erreur d'acc&#232;s &#224; la m&#233;moire.

C'est ce code http://www.vbfrance.com/code.aspx?id=8449 que j'ai repris et j'essais de l'adapter en .net mais le CopyMemory me pose probl&#232;me et je ne comprend pas trop la classe Marshals qui doit permettre ce que fait CopyMemory

cs_Willi · Answer

Ok j'ai lu les r&#233;ponses du lien du post que tu as donn&#233;
J'avais d&#233;j&#224; lu toutes ces infos en recherchant sur google mais sans succ&#232;s,
Merci de ton aide je post la solution si cela peut servir.

8<-------------------------------------------------------------------------


    Public Function Chksdk_Callback(ByVal cmd As Integer, ByVal options As Integer, ByVal info As IntPtr) As Byte


        Dim iProgress As Integer
        Dim unmanagedBlock(3) As Byte


        Select Case cmd
            Case 0
                Marshal.Copy(info, unmanagedBlock, 0, 4)
                iProgress = Marshal.ReadInt32(info)


                Debug.Print(iProgress)


            Case 11
                If info = 0 Then
                    MessageBox.Show("Erreur trouv&#233;e")
                Else
                    MessageBox.Show("Termin&#233;e avec succ&#232;s")
                End If
        End Select


        Return 1


    End Function

------------------------------------------------------------------->8

[.net2] CopyMemory

4 réponses

Discussions similaires