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); 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"