La Web del Programador: Comunidad de Programadores
 
    Pregunta:  10708 - COMO LLAMO UN IMAGEN UTILIZANDO UNA VARIABLE
Autor:  edwin diaz
Estoy creando un pequeño programa de control de personal (hoja de vida) el formulario me debe llamar la foto de la persona que encuentra almacenada con el numero de idenificación de la persona (variable), alguien me puede decir como hacerlo, he probado con loadpicture pero me dice que los tipos no coinciden
gracias

  Respuesta:  Jose Jaimes
Ok mira la programacion te sirve para copiar dentro de una base de datos y utilizar la imagen como si fuera el escritorio de windows en FoxPro 6.0

Recuerda tener una Imagen Ok
thisform.Image1.picture

en el Form Activate...

PUBLIC gcTable
gcTable=""
select fondos
set order to tag Ifon
go top
scatter memvar memo
ima=imagenes
thisform.image1.picture="&ima"
thisform.refresh()
*******
en un Boton de Commando

gcTable = GETFILE('BMP,JPG', 'Abrir Imagen...', 'Examinar',1,'Control Fondos')
DO CASE
CASE 'Sin título' $ gcTable
CREATE (gcTable)
CASE EMPTY(gcTable)
RETURN
OTHERWISE
sfb=1
THISFORM.image1.picture=gcTable
thisform.txtimagenes.value=gcTable

ENDCASE

***
Para Aceptar la Imagen y Guardar la en la Tabla

select fondos
set order to tag Ifon
go top
GO 1
jo=messagebox("¿Seguro de Modificar?...",4+32,"Mensaje de Registro...")
if jo=6
gather memvar memo
_SCREEN.PICTURE="&gcTable"
thisform.refresh()
**READ EVENT
endif

Espero sea de tu Ayuda...

  Respuesta:  Josué Córdoba
Antes ya habia hecho un ejercicio parecido y lo que hice fue lo siguiente,
los datos de un empleado son dependientes de una clave, incluyendo su fotografía, en un campo memo solo grabe la ruta de la imagen al registrarlo con getpict ()...
de tal forma que al llamar sus datos debes emplear un codigo tan sencillo como este:

set order to claveempleado
if seek (alltrim(thisform.text1.value))
thisform.image1.picture=campoquealmacenalaruta
endif

claro image1 es un objeto de imagen...
lo ves? es muy sencillo espero te sirva de algo....
saludos desde Oaxaca Mexico

  Respuesta:  Antonio Estrada
Supongo que lo que quieres hacer es mostrar el contenido de un fichero gráfico (bmp o jpg) en un control IMAGE que está en un formulario.
Si es eso, solo tienes que modificar la propiedad picture del control como NOMBRE_VARIABLE+".BMP", siempre y cuando la variable sea de tipo texto, si no, tienes que poner ALLTRIM(STR(NOMBRE_VARIABLE))+".BMP"

Espero haberte ayudado