Reto Delphi 2011
 

Hola a todos.

Ahora propongo este reto Delphi que me parece será más fácil de resolver que el anterior (esta vez no será necesario meternos con los registros de la CPU). ;)

Tenemos una rutina de la cual sabemos que su última sentencia es una llamada a la función nativa GetMem:

Código Delphi [-]
Procedure T1.Proc1;
Begin
  ...
  GetMem (P, X);
End;

Como es de esperarse P es una variable puntero y X un entero que indica el tamaño del bloque de memoria que GetMem deberá reservar y asignar a la variable P.

T1 es una clase de la VCL de Delphi, cuyo código fuente podemos ver sin problemas. Proc1 es uno de los métodos públicos de T1. X es uno de sus campos privados (un miembro declarado en la sección Private de la clase), para el cual la clase no tiene propiedad o método alguno que nos permita conocer su valor.

En nuestra aplicación tenemos una instancia de clase T1 (variable Obj), y desde algún lugar realizamos esta llamada:

Código Delphi [-]
Begin
  Obj.Proc1;

Pero justo después de esa sentencia, necesitamos conocer el valor de X con el que Proc1 llamó a GetMem, es decir:

Código Delphi [-]
Begin
  Obj.Proc1;
  ShowMessage ('El valor de Obj.X es: ' + IntToStr (*));

La pregunta es: ¿Qué podemos colocar en lugar de ese asterisco para que el mensaje mostrado por ShowMessage diga la verdad, y qué código habría que escribir para lograrlo? Desde luego, sin modificar los fuentes de la VCL.

Recordemos que X es un campo privado de T1 y nuestro código de prueba (en mi caso hecho en Delphi 7), no forma parte de la misma unidad .pas que T1. Por lo tanto el compilador no admitirá un referencia explícita al campo Obj.X, ni siquiera derivando una clase de T1 (razón que me hace cuestionar de cuando en cuando la valía del nivel de visibilidad Private).

No vale el uso de moldes de acceso tipo:

Código Delphi [-]
T1Acceso = Class (MismoPadreQueT1)
  ...
  X :Integer;
End;

Estoy seguro que más de uno lo resolverá muy pronto. Cuando lo hagan, mencionen alguna pista si lo desean, pero por favor esperen un poco antes de publicar la solución completa. De esta forma la incógnita se mantendrá vigente por un tiempo considerable.

Un abrazo en privado.

Al González. :)

¿Heap?

// Saludos

¿Eso fue una duda :confused: o una pista :rolleyes:?

Si me esperan unas dos semanas quizá me anime intentar superar el reto, pero para ese tiempo seguro que ya fue descubierto y publicada la solución.

Al, me dejaste sin opciones... mientras leía me decía fácil, le aplico un molde y se acabó; ya me dije que por algo es un reto.

Ummm... estoy pensando: ¿una sigla, 4 letras? :confused: :rolleyes:

Saludos,

Ambas :D

Es pregunta, y si la respuesta es afirmativa entonces es una pista :D

// Saludos

Yo creí que se trataba de un movimiento convulsivo del diafragma, que produce una respiración interrumpida y violenta y causa algún ruido, es decir, que te había dado hipo. :D

¡Si no estamos en La Taberna! :p

No estoy muy seguro, pero creo que en lenguaje C sería más fácil :D

Ummm :rolleyes:
Entonces no estamos pensando en las mismas 4 letras seguramente. :o :confused:

Ha seguir pensando, tengo dos semanas para pensar. Espero poder dormir esta vez.

Saludos,

En mi barrio a eso le llamábamos ser un busca ruidos. :cool: :p

Una pregunta: ¿P es una variable local al método Proc1, es una variable global, o es una propiedad de la clase? Y si es una propiedad, ¿es pública o privada?

Es que he tenido una idea...

No sé qué significa, pero a mí me gusta el silencio :D

Dado el nulo interés que muestras, me reservo la respuesta.

// Saludos

Yo tambien tengo las misma interrogantes:D:D y tambien creo que tengo tu misma idea:D:D
Pero mejor esperemos a que Alberto nos aclare mejor, ya sea para aplicar esa idea o para descartarla..:D
Saludos...:)

Amigo Román, confío en que no te haya molestado algo de lo que dije; en caso contrario te ofrezco una sincera disculpa. Sólo me pareció buena idea incluir algo de humor para amenizar el coloquio.

La pregunta que hiciste sólo tiene una respuesta: sí. La función GetMem sí tiene que ver con el montón, lo cual es algo conocido. :)


Ñuño, Roberto: Muy buenas preguntas. Creo que debí agregar que tampoco tenemos acceso a la variable P. Digamos que P es un campo privado de T1 y, para que descartemos por completo "ese" camino, P puede ser uno de muchos campos privados de T1, para los cuales no hay propiedad o método de acceso público. :)

No obstante, cuando esto quede resuelto, podríamos discutir qué tan viable sería aplicar la solución que tienen en mente si P fuera un elemento público. Claro, si es que ambos están pensando en lo mismo que yo.

Bueno, he de decir que me molestó el hecho de participar en el reto que propones y no recibir un feedback al respecto. GetMem no sólo tiene que ver con el Heap sino que te puedo dar una respuesta al reto usando funciones del Heap aunque no estoy 100% seguro de que funcione siempre y por ello lo puse como pregunta.

// Saludos

Hola Al.

Creo que esta es una forma, vos diras si estoy en lo cierto...

Archivo Adjunto 1889

Te envío la contraseña por pm.

Un saludo.:)

Me parece ingenioso lo que has intentado, ecfisa. Quizá algo así es lo que tiene en mente Román, pero le veo dos pegas o inconvenientes, como decimos en México.

Una es que teóricamente serviría si T1.Proc1 no tuviera más sentencias que reservaran bloques de memoria. ¿Qué tal si crea en su interior nuevas instancias de objetos, o si llama a otras rutinas que también ejecutan el procedimiento GetMem? La operación matemática que haces no sería válida.

El otro inconveniente es que las funciones que reservan memoria suelen hacer alineación. Por ejemplo, si X tiene un valor de 847777, el resultado con la solución que propones aparece en mi pantalla como 847780.

Román, espero dejemos atrás el mal entendido y no desistas de participar. Un abrazo. :)

Al.

Hola.

Habra que seguir buscando por otro lado... :rolleyes:


Un saludo.:)

Muy interesante... muy interesante! Ni siquiera me atrevo a decir que haré intento alguno. No soy muy bueno en las partes de más bajo nivel de Delphi.

Pues vaya, me has chafado. A ver qué hago y ahora. :(

Esto no tiene mucha ciencia, creo que en cualquier momento alguien nos sorprenderá con la solución. Pero está bien, les daré una segunda pista sólo porque estamos a la mitad del camino. :)