Reto Delphi 2011

[roman]

¿Y bien? ¿Qué ha sido de esto?

Creo saber cómo resolverlo aunque me desconcierta lo del GetMem pues con mi "solución" bastaría cualquier función/método que no altere el valor de X.

// Saludos

[[Al González]]

Empezado por roman

Creo saber cómo resolverlo aunque me desconcierta lo del GetMem pues con mi "solución" bastaría cualquier función/método que no altere el valor de X.

Hola Román. Como sucede con cualquier problema de programación, estoy seguro que debe haber más de una solución a esto, pero algunas funciones nativas son algo maleables.

Empezado por rgstuamigo

Dale de una vez con la segunda pista...

Ya lo hice, la segunda pista fue:

Empezado por Al González

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.

Tercera pista: Tu mensaje, rgstuamigo, está en otra mitad de la primera pista, la cual aparece, por supuesto, antes de la segunda.

[roman]

Ya suponía yo que en el aviso en sí de la segunda pista estaba la pista. Sólo que a mi no me dice nada ni la primera, ni la segunda, ni la tercera, por lo que supongo que son caminos distintos. La solución que vislumbro consiste sencillamente en acceder al campo privado X. Cosa que es posible si se conoce el código fuente de la clase, que me parece es una de las premisas. Aunque no es una solución elegante y no la usaría en un programa

Agrego: Pensándolo bien, quizá sí esté en el mismo camino pues algo de lo que mencionas sí lo uso.

// Saludos

[Ñuño Martínez]

Pues coincido con Roman al decir que "consiste sencillamente en acceder al campo privado X". Y aquí se me encendió la lucecita y pregunto:

¿Se ha compilado con información de depuración o sin ella?

¡Zasca! Seguro que no se lo esperaba, maestro González.

[[Al González]]

Empezado por Al González

Hola Román. Como sucede con cualquier problema de programación, estoy seguro que debe haber más de una solución a esto, pero algunas funciones nativas son algo maleables.

Y la idea es aprovechar esa flexibilidad de la función en cuestión.

Empezado por roman

Ya suponía yo que en el aviso en sí de la segunda pista estaba la pista. Sólo que a mi no me dice nada ni la primera, ni la segunda, ni la tercera, por lo que supongo que son caminos distintos.

No, las tres pistas se dirigen por el mismo camino.

Empezado por roman

La solución que vislumbro consiste sencillamente en acceder al campo privado X. Cosa que es posible si se conoce el código fuente de la clase, que me parece es una de las premisas. Aunque no es una solución elegante y no la usaría en un programa

Bueno, si aún así la consideras válida, no tiene por qué ser rechazada. Puedes publicarla si gustas.

Empezado por Delphius

Yo por algo preguntaba sobre cierta sigla de 4 letras

Es de tres letras, pero no está escrita con letras.

[roman]

Empezado por Al González

Y la idea es aprovechar esa flexibilidad de la función en cuestión.

Ja, ja, ja. Y mira que mis ojos pasaron por la solución más de una vez. Gracias Al, estuvo interesante

// Saludos

[[Delphius]]

Empezado por Al González

Es de tres letras, pero no está escrita con letras.

Me dejaste pior

Empezado por roman

Ja, ja, ja. Y mira que mis ojos pasaron por la solución más de una vez. Gracias Al, estuvo interesante

// Saludos

¿Ustedes son humanos?
Voy a tener que llamar al área 51 porque parece que se fugaron de allí. ¿Cómo le hacen para saber tantas cosas?

Evidentemente hay cosas que mi cabeza no logra entender y captar porque no tiene la preparación... pero esto... ¡se me hace que es más fácil encontrar la teoría unificadora de la física!

Supongo que en una semana van a dar conocer la solución ¿no? Porque me han dejado intrigado.

Saludos,

[roman]

He de decir que lo de las siglas sigo sin entenderlo, aunque el término maleable tampoco me convence mucho.

Lo que es cierto es que la respuesta es mucho más sencilla de lo que parece, tal como lo comentó Al desde un principio. También es elegante y segura de usar, no como mi segunda solución, que voy a esbozar para que los demás no tomen el camino equivocado:

Los campos en un objeto se acomodan de manera similar a un registro con un primer campo oculto que es la referencia a la clase a la que pertenece el objeto. Los campos aparecen en el orden en que están declarados y cada objeto guarda los campos de su clase y los de todas sus ancestras.

Así pues, el método "sucio" de acceder al campo X pasa por saber el offset o desplazamiento del campo en el objeto y acceder libremente:

Código Delphi [-]
ShowMessage(PInteger(Integer(Obj) + Offset)^);

Calcular dicho offset no es tan sencillo pues hay que tomar en cuenta el alineamiento que menciona Al. Sin embargo, puede hacerse examinando el código fuente de la clase. Si la clase tiene ancestros nos podemos ayudar con AncestroDeClaseDeObj.InstanceSize, ya que InstanceSize sí toma en cuenta el alineamiento. Aún así, hay que examinar los campos de la clase final hasta llegar a X.

// Saludos

[Casimiro Noteví]

¡¡¡ ¿¿¿Ya lo han descubierto??? !!!

Yo es que no he entendido las pistas, que parecen encriptadas

[Casimiro Noteví]

Ahora que leo lo comentado por Román veo que mi idea estaba bien encaminada, por eso dije:

Empezado por Casimiro Notevi

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

Lo dije porque en lenguaje C conozco en profundidad cómo manejar los punteros, pero en Delphi todavía no me he enterado, de verdad