Ver Mensaje Individual
  #3  
Antiguo 28-06-2004
Avatar de sitrico
[sitrico] sitrico is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Caracas, Venezuela
Posts: 295
Reputación: 21
sitrico Va por buen camino
Gracias por la sugerencia, pero muy a mi pesar el registro no siempre será el mismo y menos del mismo tamaño por eso opté por complicarme la vida con los campos blob. Pero en cuanto a la segunda opción como copio la memoria ocupada por una variable (o arreglo) a un stream. estoy usando:

Código Delphi [-]
Procedure LeerMontosDeclaracion(Var tot:tDeclaracion; cmp : TBlobField);
Var
m : TMemoryStream;
Begin
FillChar(tot,sizeOf(tot),0);  // siempre vaciar anter 
m := TMemoryStream.Create;
try
   cmp.SaveToStream(m);
   m.ReadBuffer(Tot,SizeOf(tot));
Finally;
   m.Free;
   End;
End;

Procedure GuardarMontosDeclaracion(tot:tDeclaracion; cmp : TBlobField);
Var
m : TMemoryStream;
Begin
m := TMemoryStream.Create;
try
   m.WriteBuffer(Tot,SizeOf(tot));
   cmp.LoadFromStream(m);
Finally;
   m.Free;
   End;
End;

Pero no funciona la lectura porque se me genera una "EReadError"
__________________
Sitrico

Última edición por sitrico fecha: 28-06-2004 a las 23:20:13.
Responder Con Cita