| Autor |
Mensaje |
 vuott 
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación: 
|
 Mirar En El... íntimo De Un Objeto.
Sabemos que un objeto no vive de aire frito: él necesita y se extiende en la memoria ocupando varias celdas de ella.
Tambien conocemos las capacidades y la potencia de los "Pointer". Nosotros podemos apuntar a aquel área de memoria, ocupada por un objeto, y así leer dentro de sus celdas de memoria; leer pues en su... íntimo.
En este ejemplo tenemos una Label sobre el Form:
última edición por vuott el Sabado, 06 Junio 2015, 23:43; editado 5 veces |
#1 Sabado, 06 Junio 2015, 20:19 |
|
 |
Shell
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación:  Al otro lado de la pantalla
|
Re: Mirar En El... íntimo De Un Objeto.
Hola Vuott.
No sé si esta funcionando correctamente. 
¿ Cómo es que el resultado de la propiedad Name es tan raro ?.
Tampoco ha mostrado la clase.
Te muestro una captura.
Aunque no la muestra, es nula.
Saludos
=================== Gambas Básico
"No es un bug, es una característica no documentada"
última edición por Shell el Sabado, 06 Junio 2015, 23:04; editado 1 vez |
#2 Sabado, 06 Junio 2015, 23:01 |
|
|
vuott
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación:
|
Re: Mirar En El... íntimo De Un Objeto.
No sé si esta funcionando correctamente.
Que raro ! 
A mi funciona. Poniendo un objeto Label sobre el Form:
|
#3 Sabado, 06 Junio 2015, 23:28 |
|
|
Shell
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación: Al otro lado de la pantalla
|
Re: Mirar En El... íntimo De Un Objeto.
Pues me temo que a mi no me funciona... 
¿ Puede ser la versión de gambas ?.(3.7.1) Uso Linux Mint 17
A ver si alguien más lo prueba y comenta.
Saludos
=================== Gambas Básico
"No es un bug, es una característica no documentada"
|
#4 Domingo, 07 Junio 2015, 08:49 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
Re: Mirar En El... íntimo De Un Objeto.
A mí si me funciona. Esta es la salida de consola:
Citar: Propriedad '.Name' es: Label1
Clase es: Label
===================
No podemos regresar
|
#5 Domingo, 07 Junio 2015, 10:32 |
|
|
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51 Ubicación: dos hermanas, sevilla
|
Re: Mirar En El... íntimo De Un Objeto.
Vuott:
A mi me sale algo parecido a lo de Shell, (usando gambas3.5.4):
|
#6 Domingo, 07 Junio 2015, 11:30 |
|
|
vuott
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación:
|
Re: Mirar En El... íntimo De Un Objeto.
A mí si me funciona. Esta es la salida de consola:
Citar: Propriedad '.Name' es: Label1
Clase es: Label
Uhmmm... shordi, cual es version de tu gambas ?
|
#7 Domingo, 07 Junio 2015, 13:26 |
|
|
Shell
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación: Al otro lado de la pantalla
|
Re: Mirar En El... íntimo De Un Objeto.
Si no funciona en el ordenador del trabajo y en el de casa si, tengo una leve sospecha de que podría ser.
Pero antes tengo que buscar un poco de información, a ver si es eso.
Añado:
He cambiado lo que creía que podía dar problemas (quizás) pero ni así.
Me queda probarlo en casa. Mismo sistema, misma versión...veremos. 
Saludos
=================== Gambas Básico
"No es un bug, es una característica no documentada"
última edición por Shell el Domingo, 07 Junio 2015, 13:48; editado 1 vez |
#8 Domingo, 07 Junio 2015, 13:30 |
|
|
Shell
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación: Al otro lado de la pantalla
|
Re: Mirar En El... íntimo De Un Objeto.
Vuott:
Pues después de probarlo en dos ordenadores más. Las versiones de gambas son las mismas. 3.7.1
- Lubuntu (si quieres compruebo versión) . Mismo resultado. Probé a cambiar de gestor de escritorio. Y lo mismo.
- Linux Mint 17. Igual que en el trabajo.
Cuestiones sobre el ejemplo:
¿ Por qué has usados dos valores numéricos constantes 40 y 24 ?. Ya que nadie lo pregunta. 
Según veo la definición del tipo puntero en gambas dice:
Citar:
Este tipo de dato nativo representa un puntero, es decir, una dirección en memoria.
En sistemas de 32 bits, es un sinónimo a todos los efectos del tipo de dato Integer.
En la futura versión de 64 bits de gambas, un Puntero será un sinónimo del tipo de dato Long.
Entonces, en la versión de 32 bits está algo "capado" el tipo puntero. Lo digo por el alcance que tiene. De Integer a Long,va una diferencia.
Futura versión de 64 bits.¿ Aun no existe la versión de 64 bits de gambas ?
Saludos
=================== Gambas Básico
"No es un bug, es una característica no documentada"
|
#9 Domingo, 07 Junio 2015, 18:47 |
|
|
vuott
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación:
|
Re: Mirar En El... íntimo De Un Objeto.
Gracias a todos por el ayuda del test.
Otros miembros de este foro puedon, por favor, hacer aquel test y decirme el resultado ?
Cuestiones sobre el ejemplo:
¿ Por qué has usados dos valores numéricos constantes 40 y 24 ?. Ya que nadie lo pregunta.
Bueno, ... codicis explicatio:
Public Sub Form_Open()
Dim p1, p2, p3 As Pointer
Dim i As Integer
' Apuntamos a el objeto Label1:
p1 = VarPtr(Label1)
' En los primeros ocho byte de la area de memoria apuntada tengo un Pointer a una otra area de memoria.
' Vamos a ver el numero de la dirección de memoria de esta otra area:
For i = 0 To 7
Print i;; Byte@(p1)
p1 = p1 + 1
Wait 0.2
Next
' Vuelvo a 0, porque allí se "tumba" la dirección de esta secunda area de memoria:
p1 = p1 - 8
Print "============\n"
' Bueno, para mirar en esta otra area de memoria vamos a apuntar a su direccion.
' Estando el numero de la direccion de memoria en un otro Puntero, tenemos que dereferenciar un Puntero de Puntero:
p2 = Pointer@(p1)
' Ahora, podemos mirar en esta area de memoria (con Memory Stream o con las funciones especiales de dereferenciación).
' Usamos estas funciones especiales:
For i = 0 To 47
Print i;; String@(Pointer@(p2))
p2 = p2 + 1
Wait 0.2
Next
p2 = p2 - 48
Print "============\n"
' A el byte 0 hemos visto raros caracteres: es un otro Puntero a una tercera area de memoria.
' Bueno, vamos a verla:
p3 = Pointer@(p2)
For i = 0 To 31
Print i;; String@(Pointer@(p3))
p3 = p3 + 1
Wait 0.2
Next
End
40 y 24... los encontré empíricamente.  
última edición por vuott el Martes, 09 Junio 2015, 09:27; editado 3 veces |
#10 Martes, 09 Junio 2015, 09:22 |
|
|
|
|
