Dudas trabajando con memoria VB

Iniciado por x64core, 3 Agosto 2011, 21:00 PM

0 Miembros y 2 Visitantes están viendo este tema.

x64core

:P pues si estoy aprendiendo a usar la memoria :P pero ya tengo bastantes dudas :P
bueno tengo un codigo:

Código (vb) [Seleccionar]
Private Type AAA
A1 As Integer
A2 As Integer
A3 As Long
A4 As String
End Type

Private Sub Form_Load()
Dim A0 As AAA
Dim dir As Long

A0.A2 = 20

dir = VarPtr(A0)
dir = dir + 2

Debug.Print dir

End Sub


pues segun lo que e aprendido es una estructura los valores se almacenan en la memoria consecutivamente osea que en esa estructura los valores deberian estar asi:


                  AAA
   A1    A2   A3   A4
|XXXX|XXXX|XXXXXXX|XX|


sino e aprendido mal la variable interger son 2 bytes, un long son 4 bytes , un string ( en esta no se si estoy en lo corecto :P seguramente no ) son 2 bytes

bueno pues con la funcion varptr obtengo la direccion de la memoria del primer byte de la estructura y comprobar que los datos se almacenan en forma consecutiva quiero obtener el valor de A2 que por eso le asigne el valor de 20
bueno panas creo que ya saben viendo mi codigo que quiero comprobar que quiero aprender y exactamente quiero mostrar el valor 20 ya que segun yo tengo la direccion de memoria . Gracias ;D

raul338

Cita de: Raul100 en  3 Agosto 2011, 21:00 PM
un string ( en esta no se si estoy en lo corecto :P seguramente no ) son 2 bytes
Un string son 2 * caracteres + 2 bytes.

Estas usando bien el VarPtr pero no con el Debug.Print porque la variable dir es un Puntero y necesitas leer 2 bytes (que es el tamaño del proximo Integer) y para eso necesitas la api RtlMoveMemory o conocida socialmente como CopyMemory :P

x64core

#2
:D gracias raul338
ahora comprendo porq la tan famosa copymemory que es con la que se trabaja con la memoria en vb dejo mi enigma resuelto :xD :

Código (vb) [Seleccionar]
Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Private Type AAA
A1 As Integer
A2 As Integer
A3 As Long
A4 As String
End Type

Private Sub Form_Load()
Dim A0 As AAA
Dim dir As Long
Dim destino As Integer

A0.A2 = 20

dir = VarPtr(A0)
dir = dir + 2

CopyMemory ByVal VarPtr(destino), ByVal dir, LenB(dir)
Debug.Print destino

End Sub


por cierto algo de informacion trabajando con la memoria en vb? busque en el foro y encontre unos tutos pero no me ayudaron mucho :P muy avanzado creo :P

raul338

Cita de: Raul100 en  3 Agosto 2011, 23:49 PM
Código (vb) [Seleccionar]

dir = VarPtr(A0)
dir = dir + 2

CopyMemory ByVal VarPtr(destino), ByVal dir, LenB(dir)


Error, dir es Long y lo que queres obtener es Integer, por lo que estas leyendo 4 bytes cuando queres 2. Te da bien porque A0.A3 es 0, sino, te daria cualquier fruta :xD

Sobre tutoriales de ese estilo, no conozco, tampoco es que se use demasiado :xD


PD: Acostumbrate a usar [code=vb][/code] aca :P

x64core

#4
Cita de: raul338 en  4 Agosto 2011, 03:16 AM
Error, dir es Long y lo que queres obtener es Integer, por lo que estas leyendo 4 bytes cuando queres 2. Te da bien porque A0.A3 es 0, sino, te daria cualquier fruta :xD

Sobre tutoriales de ese estilo, no conozco, tampoco es que se use demasiado :xD


PD: Acostumbrate a usar [code=vb][/code] aca :P

pero... pero si me imprime el numero 20 :P que es lo que queria para comprobar :P
y "dir" es solo una direccion :P
o en que es lo que fallo ??  :-[

raul338

La llamada debe ser:

CopyMemory ByVal VarPtr(destino), ByVal dir, 2

Porque vos quereres tener A2, que es un Integer de 2 bytes

x64core

vale ahora tengo mas dudad  :huh: :P
e probado con eso y pues ahora que veo no importa el numero de bytes que le escriba en el tercer parametro siempre pasa el resultado :P porq? si le agregara mas bytes no estaria accediendo a las demas variables que se encuentran en esa posicion???  :huh:

hice este code:

Código (vb) [Seleccionar]
Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Private Type AAA
A1 As Integer
A2 As Integer
A3 As Long
A4 As String
End Type

Private Sub Form_Load()
Dim A0 As AAA
Dim dir As Long

Dim DEST_integer As Integer
dim DEST_long as long
dim DEST_CHAR as string


A0.a1 = 50
A0.A2 = 20
A0.A3 = 50000
A0.A4 = "R"

dir = VarPtr(A0)
dir = dir + XXX

CopyMemory ByVal VarPtr(<type DESTINO>), ByVal dir, LEN DE BYTES
Debug.Print destino

End Sub


vale espero que me ayuden no podria estar bien y no resuelvo esto :P
pues primero esa duda porq escribiendo cualquier longitud en LEN BYTES( tercer parametro ) el numero de bytes que quiero copiar siempre obtengo el resultado correcto y eso esta bien :xD solo que tengo una duda si agrego mas bytes no estaria dandome una respuesta incorrecta ??? :P

y pues la otra duda :P porq los parametros se pasan por valor? :P porq no da el resultado correcto pasandolos por referencia :P ?

gracias ;D

BlackZeroX

#7
El api CopyMemory trabaja con PUNTEROS que es mas rapido, las Referencias usan los punteros al final y ocupan mas Stack ( creo que era este ) y mas espacio en memoria.

Ahora si espesificar X cantidad de Byte´s a leer, este debe ser el Minimo de ambos es decir:

Código (vb) [Seleccionar]


funcion min( byval lVal1 as long, byval lVal2 as long )
    if ( lval1 > lval2 ) min = lval2 else min = lval1
end funcion

...
CopyMemory pDest, pSrc, min( DestLen, SrcLen ) // Suponiendo que ya estan declarados los byval en la declaracion API.
...



Si se ingresa un valor superior o se escribe en secciones que no pertenecen a X bloque de bytes ya reservados se le llama "Segmentacion de memoria", ya que estas escribiendo en lugares donde NO deberias escribir/leer.

supongamos


Código (vb) [Seleccionar]


funcion min( byval lVal1 as long, byval lval2 as long )
    if ( lval1 > lval2 ) min = lval2 else min = lval1
end funcion


dim iInt as integer
dim lLong as long
'***
CopyMemory varptr(iInt), varptr(lLong), min( lenb(iInt), lenb(lLong) ) '// Correcto
'***
CopyMemory varptr(iInt), varptr(lLong), lenb(lLong) ) '// Incorrecto
' // Ocaciona una segmentacion de memoria y por ende u Crash, ya que se intentan copiar 4 bytes en un bloque donde caben solo 2 bytes.
'***
'Alternativas aun mas rapidas:
iInt = lLong and &FFFF '//Correcto
'***
iInt = lLong and &FFFFFFFF '// Incorrecto



Dulces Lunas!¡.
The Dark Shadow is my passion.

raul338

BlackZeroX lo explico mejor que yo, ademas de que me trabe al intentar hacer un ejemplo practico :xD

x64core

#9
gracias BlackZeroX y pues si eso me imaginaba que si se queria acceder a la memoria que no deberia me daria error o me daria un resultado incorrecto :P pero pero con la funcion copymemory en el tercer parametro lo correcto seria 2 bytes que son el integer pero y entonces seria el numero 2! pero si ingreso digamos 4 , 6 ,8 el resultado el correcto siempre :P y no me da error ni valor incorrecto :/