Almacenar JPG, BMP, AVI, etc etc en archivos .DBF

[Tom]

Estimados Amigos, necesito saber si se puede tener en los regisros de una DBF datos de tipo GIF, BMP o AVI

Si no es en DBF, en que tipo de seria ?

gracias
saludos cordiales

[Marco A. Delgado]

Hola Tom

Hace poco cuando buscaba algo asi, me encontre con un mensaje en al antiguo news de FWH, que hacia exactamente lo que pides, te lo paso al costo, solo es funcional con xHarbour y se almacena en un campo memo de una .dbf

//////////////////////////////////////////////////////////////////////////////
Asunto: Re: Images in memo fields / Imagenes en campos memo
Fecha: Lunes, 05 de Septiembre de 2005 06:31 p.m.

Estos son ejemplos de xHarbour usando DBFCDX:

Con esta llenarias el archivo con las imagenes...

FUNCTION Populate()
USE customer NEW VIA "DBFCDX"
DO WHILE .NOT. EOF()
GetPix( "Pix", Substr(LastName, 1, 4) + CustID)
Customer->DBSkip()
ENDDO

FUNCTION GetPix(cPixField, cPixFile)
LOCAL nPos
nPos := FieldPos(cPixField)

// Import the picture field into the indicated field
IF ! DBFILEPUT(nPos, cPixFile)
Alert("Import of picture " + cPixFile + " failed!")
ENDIF

Con este mostrarias lo que guardaste en el archivo:

FUNCTION ShowPix()
LOCAL cPixFile := "picture.gif"
LOCAL nPos

// Customer database with a picture of each
// customer stored in a field called "Pix"
USE customer NEW VIA "DBFCDX"
nPos := FieldPos("Pix")

// Export the file's data for the current Pix field
IF ! DBFILEGET(nPos, cPixFile, FILEGET_OVERWRITE )
Alert("Export of picture " + cPixFile + " failed!")
ELSE
// Code for displaying picture would go here
ENDIF

Saludos desde Colombia,

Julio Cesar Cantillo Molina
////////////////////////////////////////////////////////////////////////////

ahi te lo dejo

Saludos.

Marco A. Delgado