Algunas aplicaciones que usamos depende de descendientes TComponent a guardar fácilmente/cargar el estado de sus objetos internos, con la ayuda de escritura/ReadComponentResFileComprimir TComponents al escribir en un TStream
function TSomeClass.SaveState: boolean;
begin
...
try
...
WriteComponentResFile(self.f_path, TComponent(self));
result := true;
except
result := false;
end;
....
end;
Ahora nos me gusta comprimir estos datos, pero por alguna razón no he podido encontrar una forma de escribir una función similar usando la clase de flujo JCL bzip2, algo sobre la operación de búsqueda no es compatible
Como no soy un experto en TStream, lo haría me gusta saber la forma más fácil para mí de implementar dicha compresión; trabajando con TComponent de lectura/escritura?
Gracias
Como siempre, una buena explicación para complementar la solución. Prestigio. – mghie