Cargar/Guardar un objeto de una clase propia

[jachguate]

Si ya tenes componentes, por que no llamar directamente a los métodos WriteComponente y ReadComponent del stream?

Código Delphi [-]
begin
  Conta := TConta.Create;
  Conta.Propiedad := Valor;
  Conta.OtraPropiedad := OtroValor;
  s := TFileStream.Create('c:\conta.dat', fmCreate);
  try
    s.WriteComponent(Conta);
  finally
    s.Free;
  end;

A mi me parece mucho mas limpio.

Ahora, ayer a partir de la charla, como me quedé algo picado con el tema, busqué un par de referencias y me encontré con la biblioteca RTTI Library, que creo te será de utilidad, con la ventaja que tus clases no tienen por que ser componentes.

No la he probado, pero tiene buena pinta y ya tiene procedimientos como SaveObjToIniFile que pueden serte de utilidad.

Hasta luego.

[Uoha]

Empezado por jachguate

Si ya tenes componentes, por que no llamar directamente a los métodos WriteComponente y ReadComponent del stream?

Gracias , había probado con ese método y no lograba hacerlo andar.... hasta que vi que pusiste el ejemplo con propiedades y caí en que estaba usando fields, y que solo puedo exportar propiedades published (que poseen RTTI). Cambié todo a propiedades 'publicadas' y anduvo perfecto.

Voy a hecharle una ojeada al link.

Gracias!

[juangiron]

hola... necesito guardar un objeto en algun tipo de archivo, la respuesta que diste no funciona por que existe una incompatibilidad de tipos Tcopmponent y Tobjeto (que es mi clase)... toca hacer algun tipo de casteo o algo asi?? si es asi como lo hago??

[dec]

Hola,

En un "TObject" contarás con determinados que estarán también en la clase "TComponent". Porque "TComponent" hereda en última instancia de "TObject". Pero los métodos implementados por "TComponent" no están disponibles en "TObject" y clases derivadas de "TObject" que no hereden de "TComponent", claro.

La cuestión es que tal vez podrías heredar tu clase de "TComponent", en lugar de "TObject". De este modo ya podrías utilizar los métodos "LoadComponent" y "WriteComponent". No podrás hacerlo mientras tu clase no herede de "TComponent", a no ser que tú mismo te encarges de implementar métodos similares.

[juangiron]

hola logre guardar mis objetos que estan almacenados en un array asi:

Código Delphi [-]
procedure TFrmPrincipal.ToolButton14Click(Sender: TObject);
var
  FS: TFileStream;
  I:Integer;
begin
SaveDialog1.Filter:='Archivo XML(*.dat|*.DAT';
if SaveDialog1.Execute then
begin
   try
  FS := nil;
  try
    FS := TFileStream.Create(SaveDialog1.FileName, fmCreate);
    for I := 0 to High(ArrayObjetos) do
       FS.WriteComponent(ArrayObjetos[i].getObjeto);
  finally
    FS.Free;
  end;
  finally
   ShowMessage('Archivo Guardado');
  end;
  end;
end;

pero al hacer la funcion de cargar?

cual seria el Tobjet?

Código Delphi [-]
procedure TFrmPrincipal.ToolButton3Click(Sender: TObject);
var
  FS: TFileStream;
  newO:TObjeto;
  I:Integer;
begin
OpenDialog1.Filter:='Archivo dat(*.dat|*.DAT';
if OpenDialog1.Execute then
begin
   try
  FS := nil;
  try
    FS := TFileStream.Create( OpenDialog1.FileName, fmOpenRead );

   //  for I := 0 to   High(FS) do --> NEcesito hacer un FOR???
     FS.ReadComponent(TObjeto.create);
  finally
    FS.Free;
  end;
   finally

   end;
end;
end;

lo que quiero hacer es leer el archivo y meter estos datos en un array de objetos, debo hacer un for del FS?? como asigno el objeto a mi array para poder acceder a los metodos SET y GET de mi objeto (Tobjeto es mi clase de Objetos, no es igual a TObject)

gracias