Copie en memoire

Question

Salut, j'utilise cette procedure pour faire des copie :

  Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory"
(Destination As Any, Source As Any, ByVal Length As Long)



Cependant je me suis rendu compte que le type ANY, n'existe pas sous vb.NET.



J'ai essay&#233; avec variantType mais ce ne fonctionne pas.



Quelqu'un a une id&#233;e ?



Merci

cs_CanisLupus · Answer

Salut,
Dans ce cas, remplace Any par long (ou integer puisque integer vb.net est le long vb6). (Destination et Source sont des pointeurs).

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_milo2009 · Answer

Merci de m'avoir r&#233;pondu, cependant j'ai du mal m'expliqu&#233;.

J'ai d&#233;ja test&#233; avec d'autre type, mais ca marche pas.

voici un exemple de l'utilisation : Call CopyMem(Tab(5), Nombre, 2) ou Tab est de type byte et Nombre de type Long qui    vaut = 20000.

Sous vb6, Tab prend une valeur de type byte, mais sous vb.NET comme le type ANY n'existe pas, ca ne donne pas de valeur avec les autres type.

Gobillot · Answer

Le Type Any n'exite pas non plus en Vb6

il ne sert qu'&#224; remplacer n'importe quel type, &#224; toi d'adapter







'&#224; mettre en Integer pour Net

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Byte, Source As Long, ByVal Length As Long)



Private Sub Command1_Click()

    Dim table(3) As Byte

    Dim nombre   As Long

    

    nombre = 1234

    CopyMemory table(0), nombre, 4

    

    MsgBox Hex$(nombre)    '4D2

    MsgBox Hex$(table(0))    'D2

    MsgBox Hex$(table(1))    '4

    MsgBox table(2)               '0

    MsgBox table(3)               '0



End Sub


Daniel

cs_milo2009 · Answer

Je viens de test&#233; ton code est ca plante.



Meme si tu remplace le type long en type integer, le prog plante en disant :

  "La r&#233;f&#233;rence d'objet n'est pas d&#233;finie &#224; une instance d'un objet."

Gobillot · Answer

pas tr&#232;s clair comme erreur !

qu'est-ce qui lui plait pas, peut -&#234;tre l'absence de Byref ???



Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Byref Destination As Byte,Byref Source As Long, ByVal Length As Int)




je te conseille pas de mettre Byval, &#224; moin d'avoir des pointeurs.



Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As int, ByVal Source As int, ByVal Length As Int)



CopyMemory VarPtr(table(0)), Varptr(nombre), 8



Daniel

cs_CanisLupus · Answer

Une url :

http://www.codeproject.com/vb/net/netcopymemorysample.asp

O&#249; j'ai piqu&#233; &#231;a :

Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal pDst As IntPtr, ByVal pSrc As String, ByVal ByteLen As Long)

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_milo2009 · Answer

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Byref Destination As Byte,Byref Source As Long, ByVal Length As Int)

CopyMemory VarPtr(table(0)), Varptr(nombre), 8

Ne fonctionne pas car vb.NET ne connais pas VarPtr

Et c'est de type long vers byte que je veux, et pas string.

Merci

Gobillot · Answer

j'ai trouv&#233; &#231;a, si &#231;a peut t'aider: 

VB6
has 3 undocumented functions. VarPtr, StrPtr, and ObjPtr.StrPtr returns
object of a string, VarPtr returns address of any other variable and
ObjPtr returns address of an object. In VB.Net these 3 functions are
abosolete but their functionality is still avaliable.







    Public Function VarPtr(ByVal o As Object) As Integer
Dim GC As System.Runtime.InteropServices.GCHandle =
System.Runtime.InteropServices.GCHandle.Alloc(o,
System.Runtime.InteropServices.GCHandleType.Pinned)
Dim ret As Integer = GC.AddrOfPinnedObject.ToInt32
GC.Free()
Return ret
End Function




Daniel

Gobillot · Answer

in .NET, most usage of CopyMemory is inappropriate

http://www.codeproject.com/vb/net/CopyMemory_in_Net.asp

copy data from  integer variable to byte array:

Imports System.Runtime.InteropServices
Imports System.Text
Dim LongValue As Integer
Dim Str As String = "Adnan Samuel"
'A byte array
Dim ByteArray () As Byte
'Convert string to byte and copy to byte array
ByteArray = Encoding.Default.GetBytes(Str)
'Create Gchandle instance and pin variable required
Dim MyGC As GCHandle = GCHandle.Alloc(LongValue, GCHandleType.Pinned)
'get address of variable in pointer variable
Dim AddofLongValue As IntPtr = MyGC.AddrOfPinnedObject()
'Use copy method to copy array data to variable&#146;s 
'address with length specified(4)
Marshal.Copy (AddofLongValue, ByteArray, 0, 4)
'First read value of variable from its address 
'in memory in order to use it
LongValue = Marshal.ReadInt32(AddofLongValue)
'Print to output window
Debug.WriteLine("Vlaue of LongValue is: " & LongValue)
'Free GChandle to avoid memory leaks
MyGC.Free()



Daniel

Copie en memoire

9 réponses

Discussions similaires