FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour pasar codigo delphi a xbase
Posts: 364
Joined: Tue Oct 25, 2005 07:06 PM
pasar codigo delphi a xbase
Posted: Sun Mar 31, 2013 09:24 PM

hola, necesito pasar el siguiente codigo de delphi a xbase, a ver si alguien me echa la mano

//A CONTINUACION UN EJEMPLO DE COMO LEER UN CAMPO BLOB QUE CONTIENE COSTOS Y PRECIOS

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)); //CostosProducto : RegCostos
Finally
BlobStreamData.Free;
end;
end;

gracias

Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217
Posts: 364
Joined: Tue Oct 25, 2005 07:06 PM
Re: pasar codigo delphi a xbase
Posted: Wed Apr 03, 2013 12:50 AM

:(

Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: pasar codigo delphi a xbase
Posted: Wed Apr 03, 2013 08:16 AM

No es tan simple como parece. Tendrás que buscar el código fuente de la Clase TDBISAMBlobStream

Es la clase la que tienes que portar

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion