visualizar imagenes en vfp guardadas en mysql

[Ruth]

hola buenas tardes he estado investigado como puedo ver mis imagenes guardadas en mysql campo de tipo longblog dicen en que realizando Thisform.Image1.Pictureval=CAST(curtest.foto as BLOB) se muestra pero no lo hace. espero sus aportes gracias!!!

[Daniel Sánchez]

Lo primero que debes hacer es almacenar la imagen para eso lo realizarías de la siguiente manera

cnamfile="tunidad:\tucarpeta\tuarchivo"

cfile=filetostr(cnamefile)

WBASE64 = Strconv(Filetostr(cfile), 13)

*/aqui realizas tus operaciones de grabación de la variable wbase64 que contiene el archivo en base64

replace mitabla.micampo with wbase64

ahora para leer el archivo lo debes recuperar con una consulta y accedes al campo que tiene almacenado dicho archivo

wbase64=mitabla.micampo

cfile = Strconv(wbase64, 13)

*/ahora si deseas ponerlo o visualizarlo en un picture

thisform.mipicture.picturevalue=cfile

Con eso visualizas la imagen.

Saludos

El 13 de mayo de 2015, 16:38, Ruth <mejiab...@gmail.com> escribió:

hola buenas tardes he estado investigado como puedo ver mis imagenes guardadas en mysql campo de tipo longblog dicen en que realizando Thisform.Image1.Pictureval=CAST(curtest.foto as BLOB) se muestra pero no lo hace. espero sus aportes gracias!!!

--
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.
 
Para anular la suscripción a este grupo, envía un mensaje a:
mundovisualfox...@googlegroups.com
---
Has recibido este mensaje porque estás suscrito al grupo "Mundo Visual FoxPro" de Grupos de Google.
Para anular la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a mundovisualfox...@googlegroups.com.
Para acceder a más opciones, visita https://groups.google.com/d/optout.

--

Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software & Sistemas
Móvil +051-949398047 RPM #948615385
Trujillo - Perú

P  Sugerimos no imprimir este e-mail a menos que sea absolutamente necesario. Protejamos el medio ambiente.

[Ruth]

hice su ejemplo y no me visualiza la imagen lo realice de la siguiente forma:

primero busco mi imagen:

rgl=GETFILE("jpg","Archivo","Escoger",0,"Escoja Fotografía del Empleado.")

Thisform.imgFoto.Picture=rgl

después para guardar 

fot = Thisform.imgFoto.Picture

abx= FILETOSTR(fot)

WBASE = Strconv(abx,13) && realizo esto lo que me dijo

lo guardo en mi base de datos

SQLEXEC(oVar.conec2,"INSERT INTO galeria (ncodigo,cdescripcion,cfoto) VALUES (?num,?des,?WBASE)") 

para verlo con en el boton siguiente

wbase64=galeria.cfoto

cfile = Strconv(wbase64,13)

thisform.imgFotosGrabadas.pictureval=cfile && pero no me lo muestra

el campo cfoto en mysql lo tengo longblog no se si sea eso el problema

[Daniel Sánchez]

Nop, tu error es querer almacenar lo que esta en el picture.

En todo caso debes almacenarlo en una propiedad del form (variable), y despues desde esa variable o propiedad del form lo grabas no del picture.

rgl=GETFILE("jpg","Archivo","Escoger",0,"Escoja Fotografía del Empleado.") &&Ok escojo la imagen desea y devuelve la ruta del archivo

thisform.claimagen= FILETOSTR(rgl)   &&aqui con la ruta obtengo en una variable el contenido de la imagen o archivo seleccionado

Thisform.imgFoto.Picture=rgl   &&OK  aqui es muestra lo que esta en la ruta seleccionada

thisform.imgFoto.PictureVal=thisform.claimagen  &&Otra opción seria con el pictureval con la referencia almacenada

  

después para guardar 

fot  = Thisform.imgFoto.Picture   &&No Va

abx= FILETOSTR(fot)   &&No va

WBASE = Strconv(thisform.claimagen,13) &&  realizo esto lo que me dijo

lo guardo en mi base de datos

SQLEXEC(oVar.conec2,"INSERT INTO galeria (ncodigo,cdescripcion,cfoto) VALUES (?num,?des,?WBASE)") 

para verlo con en el boton siguiente

wbase64=galeria.cfoto

cfile = Strconv(wbase64,13)

thisform.imgFotosGrabadas.pictureval=cfile && pero no me lo muestra

Yo normalmente para almacenar cualquier tipo de archivo uso el campo tipo text de sqlserver

Saludos

[Ruth]

nada no me funciona para visualizar :(

[Víctor Hugo Espínola Domínguez]

Hola Ruth

>cfile = Strconv(wbase64,13)

cfile = Strconv(wbase64,14)

Saludos,

Víctor.

Lambaré - Paraguay.