Como insertar foto en tablas de visual fox pro 9

Alguien por favor que me oriente como insertar una foto en visual fox pro de tal manera que al cambiar de registro cambien también las fotos
Gracias de antemano
{"lat":15.2841851140764,"lng":-83.671875}

1 respuesta

1
Respuesta de
Hola. Espero poder ayudarte:
Hay dos métodos. Uno es por referencia a un archivo y el otro guardando la foto directamente en la tabla pero para el segundo, tendrías que ver alguna manera de controlar el tamaño para que las fotos no sean muy grandes y pesadas.
El primer método: poner en un campo de texto la referencia a la foto (una referencia que todos vean, si es un sistema en red, poner la referencia a la carpeta de red y el nombre del archivo (por ej. \\servidor\fotos\juanperez.jpg)
Despues, en tu control image pones algo asi: thisform.foto.picture=personas.foto
El segundo método y que seguramente quieres usar, es guardando la foto en un memo de la tabla.
Para guardal la foto harías:
mArchivo=FileToStr("c:\fotos\juanperez.jpg")
replace personas.foto with mArchivo
Para recuperar la foto, en lugar de utilizar la propiedad PICTURE del image, utilizarías la propiedad pictureVAL.
thisform.foto.pictureVal=personas.foto
Si quieres guardar la foto que está en la tabla, podes usar la propiedad inversa de FileToStr() que es StrToFile()
=strToFile(personas.foto,"c:\fotos\juanPerez.jpg")
Por ultimo, si utilizas esta función FileToStr() desde el principio, guardando el dato en la propiedad PictureVal del image, podes utilizarlo directamente al momento de guardar los datos.
Supone que en un formulario cargas datos de empleados, pones un image para que carguen la foto y después presionan el botón "guardar" y todo se guarda. En este caso quedaría algo así.
En el botón para cargar la foto (click)
mArchivoFoto=getPict()
if !empty(mArchivoFoto)
   thisform.foto.pictureVal=fileToStr(mArchivoFoto)
Endif
En el botón guardar (click)
replace personas.foto with thisform.foto.pictureVal
Para traer los datos
thisform.foto.pictureVal=personas.foto
Para guardar una copia de la imagen que esta en la tabla:
mArchivoFoto=getFIle("JPG")
if !empty(mArchivoFoto)
   =strToFile(thisform.foto.pictureVal,mArchivoFoto)
Endif
Espero que mi respuesta sea de utilidad.
Christian
Keystone
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje