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
Board index FiveWin para Harbour/xHarbour Guardar y Recuperar Imagen Tdolphin
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
A la hora de guardar y recuperar puedes valorar también el uso de las funciones HB_Base64Encode y HB_Base64Decode
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Hola Cristobal como estas.. gracias.. ya lo logre
muchas gracias Roberto
saludos