Guardar un tipo de dato como archivo

[mordaz]

Buenos días,

Es posible guardar un tipo de dato en un archivo y cargarlo en memoria posteriormente? Es decir tengo una variable de una Clase creada por ejemplo TMiPropiaClase esta clase tiene en su interior muchos tipo de datos distintos, se puede guardar de alguna manera el contenido de esta clase en un archivo, base de datos, etc. y después cargarla al abrir el programa nuevamente?

De antemano muchas gracias.

[TOPX]

Buenas tardes,

• Guardar un type packed record - ClubDelphi
• Simple read/write record .dat file - StackOverflow
• Trabajando con archivos de texto y binarios - Delphi al Límite

-

[mordaz]

Empezado por TOPX

Buenas tardes,

• Guardar un type packed record - ClubDelphi
• Simple read/write record .dat file - StackOverflow
• Trabajando con archivos de texto y binarios - Delphi al Límite

-

Gracias por responder, parece ser que es lo que necesito, lo voy a probar, yo trabajo en C++ Builder pero no debe haber gran diferencia.

Saludos

[ecfisa]

Es decir tengo una variable de una Clase creada por ejemplo TMiPropiaClase esta clase tiene en su interior muchos tipo de datos distintos, se puede guardar de alguna manera el contenido de esta clase en un archivo, base de datos, etc. y después cargarla al abrir el programa nuevamente?

Hola mordaz.

Otra opción es usar los métodos ReadComponent y WriteComponent, lo cuál podes hacer de dos formas:

Derivando tu clase de TComponent encapsulando las funciones y hacíendolas miembros de la primera, como por ejemplo:

/* TMiClase */
class TMiClase : public TComponent
{
private:
  String FCadena;
  int    FEntero;
  Double FDoble;
__published:  // (solo obtendrás los valores de los miembros publicados)
  __property String Cadena = { read = FCadena, write = FCadena};
  __property int Entero    = { read = FEntero, write = FEntero};
  __property Double Doble  = { read = FDoble,  write = FDoble};
public:
  virtual __fastcall TMiClase(TComponent* Owner);
  void __fastcall SaveToFile(const String aFileName);
  void __fastcall LoadFromFile(const String aFileName);
};

__fastcall TMiClase::TMiClase(TComponent* Owner):TComponent(Owner)
{
  FCadena = "";
  FEntero = 0;
  FDoble  =  0;
}

void __fastcall TMiClase::SaveToFile(const String aFileName)
{
  if (this == NULL)
    throw Exception("Objeto inexistente");
  if (FileExists(aFileName))
    DeleteFile(aFileName);

  TFileStream *FS = new TFileStream(aFileName, fmCreate);
  __try {
   FS->WriteComponent(this);
  }
  __finally {
    delete FS;
  }
}

void __fastcall TMiClase::LoadFromFile(const String aFileName)
{
  if (this == NULL)
    throw Exception("Objeto inexistente");
  if (!FileExists(aFileName))
    throw Exception("Archivo inexistente");

  TFileStream *FS = new TFileStream(aFileName, fmOpenRead);
  __try {
    FS->ReadComponent(this);
  }
  __finally {
    delete FS;
  }
}


/* Form1 */
void __fastcall TForm1::btnSaveClick(TObject *Sender)
{
  TMiClase* MC = new TMiClase(this);

  // Cargar unos datos para prueba...
  MC->Cadena = "Una frase como cualquier otra";
  MC->Entero = 1234;
  MC->Doble  = 3.141592654;

  MC->SaveToFile("C:\\MiCompC.dat");
  delete MC;
}


void __fastcall TForm1::btnReadClick(TObject *Sender)
{
  TMiClase* MC = new TMiClase(this);

  MC->LoadFromFile("C:\\MiCompC.dat");

  // Mostrar
  char *msg = "Cadena: %s \nEntero: %d \nDoble: %8.12f";
  TVarRec vr[] = {MC->Cadena, MC->Entero, MC->Doble};
  ShowMessage(Format(msg,vr,3));

  delete MC;
}

O como funciones fuera de la clase, por ejemplo:

void SaveComponent(TComponent* CP, const String aFileName)
{
  if (CP == NULL)
    throw Exception("Objeto inexistente");
  if (FileExists(aFileName))
    DeleteFile(aFileName);

  TFileStream *FS = new TFileStream(aFileName, fmCreate);
  __try {
   FS->WriteComponent(CP);
  }
  __finally {
    delete FS;
  }
}

void LoadComponent(TComponent* CP, const String aFileName)
{
  if (CP == NULL)
    throw Exception("Objeto inexistente");
  if (!FileExists(aFileName))
    throw Exception("Archivo inexistente");

  TFileStream *FS = new TFileStream(aFileName, fmOpenRead);
  __try {
    FS->ReadComponent(CP);
  }
  __finally {
    delete FS;
  }
}

Llamadas de ejemplo:

// Guardar
...
{
  SaveComponent(MC, "C:\\MiCompC.dat");
  ...
  SaveComponent(Label1, "C:\\Label.dat");
}
// Leer
...
{
  LoadComponent(MC, 'C:\\MiCompC.dat');
  //...
  LoadComponent(Label1, "C:\\Label.dat");
}

Saludos.

Edito: Toma en cuenta que sólo funciona para los miembros publicados.

[mordaz]

Hola nuevamente ecfisa,

Esta perfectamente detalla tu explicación, el punto de todo esto es que estoy usando algunas librerías ActiveX del controlador de una tarjeta electrónica que se comunica por USB, mi complicación surgió al intentar guardar uno de estos objetos que me escribe en memoria el propio dispositivo, el cual es una clase derivada de otra clase y así sucesivamente, necesito guardar un numero determinado de estos objetos para después volverlos a cargar en memoria y utilizarlos sin necesidad que me los vuelva a proporcionar el dispositivo, voy a probar las opciones que me propones y posteriormente publico como lo resolví.

Nuevamente gracias y te envió un cordial saludo.

[[nlsgarcia]]

ecfisa,

Empezado por ecfisa

...Otra opción es usar los métodos ReadComponent y WriteComponent, lo cuál podes hacer de dos formas...

Pregunto: ¿El código del Msg # 4 como sería en Delphi?.

Gracias de antemano

Nelson.

[ecfisa]

Hola Nelson.

Como funciones independientes:

Código Delphi [-]
procedure SaveComponent(CP: TComponent; aFileName: TFileName);
begin
  if not Assigned(CP) then
    raise Exception.Create('Objeto inexistente');
  with TFileStream.Create(aFileName, fmCreate) do
  try
    WriteComponent(CP);
  finally
    Free;
  end;
end;

procedure LoadComponent(CP: TComponent;aFileName: TFileName);
begin
  if not Assigned(CP) then
    raise Exception.Create('Objeto inexistente');
  if not FileExists(aFileName) then
    raise Exception.Create('Archivo inexistente');
  with TFileStream.Create(aFileName, fmOpenRead) do
  try
    ReadComponent(CP);
  finally
    Free;
  end;
end;

Como métodos de clase:

Código Delphi [-]
...
implementation 

type
  TMiClase = class(TComponent)
  private
    FStr : string;
    FEnt : integer;
    FDob : Double;
  published
    property Str : string read FStr write FStr;
    property Ent : Integer read FEnt write FEnt;
    property Dob : Double read FDob write FDob;
  public
    constructor Create(AOwner: TComponent); override;
    procedure SaveToFile(const aFileName: TFileName);
    procedure LoadFromFile(const aFileName: TFileName);
  end;

var
  MC : TMiClase;

constructor TMiClase.Create;
begin
  inherited;
  FStr := 'Una frase cualquiera';
  FEnt := 1234;
  FDob := 3.141592654
end;

procedure TMiClase.SaveToFile(const aFileName: TFileName);
begin
 if not Assigned(Self) then
    raise Exception.Create('Objeto inexistente');
  with TFileStream.Create(aFileName, fmCreate) do
  try
    WriteComponent(Self);
  finally
    Free
  end
end;

procedure TMiClase.LoadFromFile(const aFileName: TFileName);
begin
  if not Assigned(Self) then
    raise Exception.Create('Objeto inexistente');
  if not FileExists(aFileName) then
    raise Exception.Create('Archivo inexistente');
  with TFileStream.Create(aFileName, fmOpenRead) do
  try
    ReadComponent(Self);
  finally
    Free
  end
end;


{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
  MC : TMiClase;
begin
  MC := TMiClase.Create(Self);
  try
    MC.SaveToFile('C:\MiComp.dat');
  finally
    MC.Free
  end
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  MC : TMiClase;
begin
  MC := TMiClase.Create(Self);
  try
    MC.LoadFromFile('C:\MiComp.dat');
    ShowMessage(Format('%s %s%d %s%f',[MC.Str,#10,MC.Ent,#10,MC.Dob]));
  finally
    MC.Free
  end
end;
...

Saludos

[[nlsgarcia]]

ecfisa,

Empezado por ecfisa

...Como funciones independientes...Como métodos de clase...

Gracias Daniel

Nelson.