Muy buenos dias, resulta que estoy haciendo una aplicacion que se conecta con un sistema administrativo cuya base de datos es DBISAM, estoy realizando un modulo que debe leer un campo tipo blob dentro de un datagrid, el departament de soporte de la empresa del software me paso este codigo que posee la estructura de la tabla
Código Delphi
[-] RegUnPrecio = Record
PorcUtil ,
PorcUtilEx : Boolean;
Utilidad ,
UtilidadEx ,
SinImpuesto ,
MtoImpuesto1 ,
MtoImpuesto2 ,
TotalPrecio ,
TotalPrecioEx: Currency;
TipoRound : Byte;
end;
RegDePrecios = Array[1..6] of RegUnPrecio;
RegCostos = Record
CodeCompra : String[50]; VImpuesto1 ,
VImpuesto2 : Boolean; CostoAnteriorBs ,
CostoAnteriorEx ,
CostoActualBs ,
CostoActualEx ,
CostoPromedioBs ,
CostoPromedioEx ,
MImpuesto1 ,
MImpuesto2 : Currency;
PorcentImp1 ,
Exento1 ,
PorcentImp2 ,
Exento2 : Boolean;
FechaVencimiento: TDateTime; NumeroDeLote : String[42]; CostoReferencia : Double; Precios : RegDePrecios;
end;
if FX_FIXED.FindKey('B',XXXXX); Codigo del producto
if OkR then
begin
SourceField :=FX_FIXED.FindField('FX_COSTOS');
Try
BlobStreamData :=TDBISAMBlobStream.Create(TBlobField(SourceField),bmRead);
BlobStreamData.Seek(0,0);
BlobStreamData.Read(CostosProducto,SizeOf(CostosProducto)); Finally
BlobStreamData.Free;
end;
end;
Aun no he logrado ver los valores de dicho campo blob.
De antemano muchas gracias por el tiempo que dedicaron en leer mi inconveniente.