Guardar y Recuperar Imagen Tdolphin
Posted:
Wed Nov 10, 2021 11:56 am
by 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
Re: Guardar y Recuperar Imagen Tdolphin
Posted:
Wed Nov 10, 2021 12:44 pm
by 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
Re: Guardar y Recuperar Imagen Tdolphin
Posted:
Wed Nov 10, 2021 1:23 pm
by cnavarro
A la hora de guardar y recuperar puedes valorar también el uso de las funciones HB_Base64Encode y HB_Base64Decode
Re: Guardar y Recuperar Imagen Tdolphin
Posted:
Wed Nov 10, 2021 3:01 pm
by jbrita
Hola Cristobal como estas.. gracias.. ya lo logre
muchas gracias Roberto
saludos