[RESUELTO] Guardar estructura de memoria (clases) a disco

[Neftali [Germán.Estévez]]

Buenas a todos.
No se si el título explica claramente lo que necesito hacer, así que intentaré explicarme un poco mejor.

Se trata de que tengo en memoria una serie de datos almacenados en clases y listas de elementos que debo exportar a disco. Es una estructura compleja, por ejemplo una clase A, que posee propiedades (algunas enteros y otras cadenas) y una lista de elementos de la clase B. A su vez la clase B posee algún ENTERO, algún STRING y una lista de elementos de la Clase C. La clase C a su vez son una lista de PUNTOS y alguna propiedad más.

La estructura no es exactamente así, pero es bastante aproximada para que os hagáis una idea. La representaríamos como se ve a continuación.

Código Delphi [-]

Clase A
==============
prop1: integer
prop2: integer
prop3:string
prop4: List of ClaseB
...

Clase B
=============
prop1: boolean
prop2: string
prop3: integer
prop4: List of claseC
...

Clase C
==============
prop1: List of Tpoint
prop2:Tcolor
...

Ya tengo una o dos ideas para almacenarlo en disco (BACKUP) y después poder recuperarlo (RESTORE), pero la verdad es que ninguna de ellas me resulta sencilla.
Ya sea guardar en un formato tipo XML/JSON/... o incluso guardarlos en ficheros planos y empaquetarlo todo en un ZIP.

El caso es que estaba dándole vueltas a si habría alguna manera más fácil de hacerlo que no signifique recorrer todos los elementos de todas las clases. Algo así como el WriteComponent de la clase TStream. Algo que me permita "volcar" toda la clase y recuperarla de una sóla vez.
A lo mejor estoy "desvariando"... Si es así no me hagáis caso...

Se aceptan ideas, sugerencias, críticas,...

P.D: No necesito código sólo una idea/orientación.

[roman]

Quizá si derivas de TComponent/TCollectionItem y usas TCollection para las listas puedas usar WriteComponent y ReadComponent.

// Saludos

[dec]

Hola,

O lo ya apuntado o usar RTTI de forma más o menos similar a la explicada en este artículo. Reconozco que ahora mismo no se me ocurre otra forma. Quizá que tratando de hacerlo con "WriteComponent" y "ReadComponent" el asunto pueda resultar algo más rápido de implementar (digo yo...) y también más rápido a la hora de realizar la tarea en cuestión.

[Neftali [Germán.Estévez]]

Empezado por dec

O lo ya apuntado o usar RTTI de forma más o menos similar a la explicada en este artículo.

Hola David, gracias por el link.
Lo he ojeado por encima y tiene buena pinta aunque no se si cubre lo que necesito. ¿Qué pasaría con las clases anidadas?
No veo claro que con eso se puedan añadir al mismo fichero; Y me queda también la duda de las listas.

[Neftali [Germán.Estévez]]

Empezado por roman

Quizá si derivas de TComponent/TCollectionItem y usas TCollection para las listas puedas usar WriteComponent y ReadComponent.

Después de escribir lo del WriteComponent lo he pensado, pero hay también algún record.
De todas formas si fuera por eso estos records se podrían convertir a otra cosa.

Le doy una vuelta Román.
Gracias.

[[Al González]]

Hola Germán.

Empezado por roman

Quizá si derivas de TComponent/TCollectionItem y usas TCollection para las listas puedas usar WriteComponent y ReadComponent.

Este que comenta Román sería el camino más directo, pero supongo que por una buena razón esas clases no derivan de TComponent. Relacionado con esto, ya has de saber que la clase padre de TComponent, TPersistent, es la primera en introducir mecanismos de streaming:

Use TPersistent as a base class when declaring objects that are not components, but that need to be saved to a stream or have their properties assigned to other objects.

Por otro lado, sea cual sea el mecanismo que uses, es menester que la información de las propiedades esté disponible mediante reflexión (RTTI), lo cual hace que tengas que declarar dichas propiedades con visibilidad publicada (published).

Eso último se flexibiliza a partir de Delphi 2010, y el artículo que refiere dec va muy bien con el tema.

Ya nos dirás más, saludos.

[Neftali [Germán.Estévez]]

Le voy a dar otra vuelta al artículo, porque me parece que la primera vez lo he mirado "demasiado por encima"...

En cuanto a porqué las clases no derivaban de TComponent, es simplemente porque no son componentes.
En este caso no habría ningún problema en derivarlas de TPersistent si eso me aporta beneficios y tampoco lo hay en cuanto a la visibilidad de las propiedades, pues ahora son públicas y no hay problema en convertirlas a published para añadir datos de RTTI.

A ver si mañana puedo hacer alguna prueba para evaluar ambas soluciones y os comento...

Gracias.

[roman]

Empezado por Al González

Relacionado con esto, ya has de saber que la clase padre de TComponent, TPersistent, es la primera en introducir mecanismos de streaming:

Sí lo sabía pero oprimí Enviar muy rápido De hecho, TCollectionItem y TCollection derivan directamente de TPersistent.

// Saludos

[[Al González]]

Sobre los objetos anidados, no hay más camino que recorrer todos los elementos, entrando a cada propiedad objeto o lista de objetos. Eso ya lo hace WriteComponent. Pero si quieres implementar un mecanismo propio que evite la derivación de TComponent, entonces puedes echar una mirada a los métodos WriteProperties y WriteProperty de la clase nativa TWriter. Aunque en lo personal y teniendo Delphi 2010 o superior, buscaría en él algo de la RTTI extendida que facilite las cosas.

Lo de la "buena razón", ni qué decir...gajes del oficio de abreviar.

[dec]

Hola,

Al, por lo poco que sé, me parece que, a partir de Delphi 2010, no es necesario para trabajar con RTTI declarar propiedades "published", puesto que antes de Delphi 2010 sí que era como dices. Germán, me extraña que no tengas tú sobrada experiencia recorriendo objetos y posibles propiedades luego de tu proyecto GLibWMI. Creo recordar que también te toca lidiar con diferentes tipos de propiedades y resultados, etc. Pienso que no es exactamente igual, pero, es parecido. Además, es posible que no tengas que construir todo un "Serializador de objetos", sino algo que te apañe de momento, al menos.

[[Al González]]

Empezado por Al González

[...] sea cual sea el mecanismo que uses, es menester que la información de las propiedades esté disponible mediante reflexión (RTTI), lo cual hace que tengas que declarar dichas propiedades con visibilidad publicada (published).

Eso último se flexibiliza a partir de Delphi 2010, y el artículo que refiere dec va muy bien con el tema.

Empezado por dec

Al, por lo poco que sé, me parece que, a partir de Delphi 2010, no es necesario para trabajar con RTTI declarar propiedades "published", puesto que antes de Delphi 2010 sí que era como dices.

Tienes razón, David. Por eso lo de: «Eso último se flexibiliza a partir de Delphi 2010».

[Neftali [Germán.Estévez]]

Empezado por dec

Germán, me extraña que no tengas tú sobrada experiencia recorriendo objetos y posibles propiedades luego de tu proyecto GLibWMI.
...Además, es posible que no tengas que construir todo un "Serializador de objetos", sino algo que te apañe de momento, al menos.

Si no es por no ir, si hay que ir, se va...
Pero es que me daba mandra y me entró la curiosidad...

Al final estoy viendo que es bastante problabe que tenga que hacer algún recorrido.