FoxPro/Visual FoxPro - ¿Como agregar y mostrar imagenes en un formulario

Hola estimados amigos mi pregunta es como puedo mostrar en un formulario las imagenes que han sido guardadas en campos de tipo general y ademas como se pueden agregar imagenes a la tabla desde un formulario

No es recomendable guardar las imágenes en caqmpos de tipo general ya que a medida que crecen, las tablas con imágenes en campos de tipo general se vuelven inestables, es mejor guardar en un campo de tipo character la ruta de la imegen en disco.
En todo caso si calculas que las imágenes a guardar en la tabla pocas y pequeñas en tamaño puedes arriesgar.

Si tienes la versión 9, puedes usar los campos de tipo BLOB que te permiten guardar una imágen con un formato tipo texto, puedes abrir el archivo imágen del disco así:

* tenemos una tabla IMAGEN con un campo de tipo BLOB
LOCAL cFile

* buscamos la imagen en disco
cFile = GETPICT()

IF !EMPTY( cFile )

* convertimos a formato texto el contenido del archivo gráfico
* para guardarlo en el campo de tipo BLOB usando la función FileToStr
APPEND BLANK IN IMAGEN
REPLACE foto WITH FILETOSTR( cFile ) IN IMAGEN

ENDIF

luego en un formulario localizas un control tipo Image, te fijarás que en la versión 9 hay una propiedad PictureVal que permite mostrar imágenes de campos tipo BLOB, por lo que haces esto:

THISFORM.image1.PictureVal = IMAGEN.foto

Muchisimas gracias amigo, tomare muy cuenta tu sugerencia

Gracias me fue d mucha ayuda...

Gracias, espero que me sirva estoy haciendo un programa de control de personal y quiero agregar las fotos de los empleados para poder imprimir credenciales

Como grabar una imagen desde VF9 a un campo imagen de SQL-Server 2005.
Con gusto he leido tu nota, pero desgaciadamente no me alcanza.
intente este codigo

LOCAL lcFileName

lcFileName = GETPICT("JPG;BMP;GIF", this.caption)
IF !EMPTY(lcFileName)

m.Binario=FILETOSTR(lcFileName)
thisform.Imagen.PictureVal=m.Binario && Funciona
REPLACE v_Articulo.Imagen WITH m.Binario in V_Articulo && da Error tipo de dato incorrecto
thisform.Refresh()

ENDIF

Donde v_Articulo.Imagen es el campo de una vista sobre SQL Server 2005

Gracias y Saludos

Hola Amigo, esto me funcionó todo bien en windows xp, vista, pero no me funciona en windows 7, sabes algo o tenes conocimiento que la propiedad pictureval relacionada a un campo blob, en windows 7 no FUNCIONA. Gracias

investigar sobre arboles binarios agregar y mostrar en preorden y posorden

simplemente si estas haciendo un proyecto ,al crear la carpeta proyecto dentro de ella coloca una carpeta con las imagenes que ocuparas, con la carpeta abierta desde el explorador arrastra los iconos de imagenes hacia el editor de foemulario.... algo mas, las mismas imagenes te puden servir como comandos.. asi te las puedes ingeniar utilizando todas las herramientas de windows para crear la imagen que deseas.