Guardar y Recuperar Imagen Tdolphin

[jbrita]

hola colegas .. necesito guardar imágenes en una tabla mysql con la tdolphin y asi mismo recuperarla.. la necesito para un sistema de tienda de ropa..
saludos

[TOTOVIOTTI]

Hola.. yo lo hago así:

LOCAL cTempZip:=GETENV("TEMP")+"\foto.zip",uData

*comprimo el archivo para que no ocupe tanto espacio
Hb_ZipFile(cTempZip,"nombre del archivo, del formato que sea",9,,.T.,.T.,)

*lo guardo en la variable uData
uData:=D_ReadFile(cTempZip)

Si se inserta:
oServer:Insert("fotos_articulos",{"fotografia"},{uData})

Si se actualiza:
oServer:Update("fotos_articulos",{"fotografia"},{uData},cWhere)

y luego para recuperarlo, lo descomprimo:

nHandle:=FCreate(cTempZip)
FWrite(nHandle,bFOTOS:fotografia,Len(bFOTOS:fotografia))
FClose(nHandle)
aFiles:=hb_GetFilesInZip(cTempZip,.t.)
Hb_UnZipFile(cTempZip,,.T.,,cTemp,aFiles[1],NIL)
cFoto:=cTemp+aFiles[1,1]

Espero te sirva... a mi me funciona perfecto...

Saludos
Roberto

[cnavarro]

A la hora de guardar y recuperar puedes valorar también el uso de las funciones HB_Base64Encode y HB_Base64Decode

[jbrita]

Hola Cristobal como estas.. gracias.. ya lo logre
muchas gracias Roberto
saludos