FoxPro/Visual FoxPro - grabar imagen y consultarla

Hola mi nombre es israel..

saludos a todos.

Deseo guarar imagenes en una tabla y consultarlas segun un campo numero de empleado...es decir que cuando le anore el numero de empleado.. aparezca automaticamente la fotografia correspondiente..

su alguien puede ayudarme le agradeceria.. mucho...

de antemano muchas gracias..

1- Lo recomendable es tener un campo character donde indiques la ruta y nombre del archivo grafico. Ejemplo C:\mis_imagenes\imagen1.bmp

2- Hacer referencia al campo en la propiedad picture del objecto Image

creas en la tabla un campo de memo y en este campo almacenes el path+el nombre de la imagen que deseas asociar al registro.

Yo creo un directorio donde coloco todas las imagenes, esta imagen tambien puede ser almacenada en la tabla, definendo un campo tipo general y almacenando la imagen mediante la instruccion APPEND GENERAL.

Ejemplo:
****
SELE H
REPLACE logo WITH lcFileNamex
APPEND GENERAL logo_foto FROM &wlogoy
****

donde: logo ---> es el campo tipo memo
logo_foto ---> es el campo tipo general

Jesus Cordero
Caracas - Venezuela

perdon no entiendo lo de &wlogoy ..a que se refiereeso Es el nombre de la imagen??

es correcto es el nombre de laimagen que desea guardar

Gracias plinio y jesus.... eso de poner la ruta... ya lo hice pero tengo problemas..cuando la persona que captura los datos se olvida de guardar la imagen en donde corresponda... quiero pensar que con el campo de tipo general.. autoamticamente.. la carga ahiii.. paro no me funciona..

ojala me pudieran dar mas detalles porque soy nuevo en esto
muchas gracias

Ok, yo crea un directorio donde colocos todas las imagenes y cuando deseo cambiar o agregar lo que hago es cambiarme de directorio y mostrar loas imagenes de este. Ejemplo: El directorio donde se colocan las imagenes se
llama "IMAGENES"

PUBLIC YCAMBIA
PUBLIC wlogox=""
PUBLIC wlogoy=""
****
**** Rutina que cambia imagen
****
YCAMBIA=midirectorio+"\IMAGENES"
YCAMBIA=STRTRAN(YCAMBIA, ' ' , '')
CD &YCAMBIA
****
wlogox=""
wlogoy=""
****
LOCAL lcFileName
lcFileName = GETPICT('*','Muestra Imagenes','Examinar')
IF !EMPTY(lcFileName)
wlogoy=lcFileName
****
lcFileNamex=lcFileName
lcFileNamex=ALLTRIM(lcFileNamex)
****
SELE H
REPLACE logo WITH lcFileNamex
APPEND GENERAL logo_foto FROM &wlogoy
****
WAIT " <-- Actualizanda Imagen --> " WINDOWS TIME 1
ENDIF
****
CD midirectorio
****
RELEASE YCAMBIA
RELEASE wlogox"
RELEASE wlogoy
****
RETURN

Saludos....Aquí una de tantas opciones para insertar foto...

Boton Insertar Foto
Evento Click

cMessageTitle = 'Salidas'
cMessageText = 'Desea ingresar la imagen del empleado'
nDialogType = 4 + 32 + 256
* 4 = Botones Sí y No.
* 32 = Icono del signo de interrogación.
* 256 = El segundo botón es el predeterminado.

nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)

DO CASE
CASE nAnswer = 6
archivo=GETFILE('jpg')
if len(alltrim(archivo))<>0
append general datos.ima from (archivo)
thisform.refresh
endif
CASE nAnswer = 7
messagebox("El archivo no tendra imagen")

ENDCASE

Para visualizar la imagen en Form utiliza el OleboudControl
y para guardar en una Tabla selecciona en Tipo o Type "General"

Suerte!!

Gracias amigoo...

Me ayudo mucho tu codigo.... espero superarme mas.. para poder contribuir yo con alguien.. despues... te agradezco mucho

Hola que tal neo, trate de hacer tu ejemplo del boton de insertar foto, pero no me funciono, algo hice mal, fijate mi tabla se llama empleados y entre sus campos hay uno que se llama foto que es general y lo puse de la siguiente manera:
cMessageTitle = 'Atención'
cMessageText = 'Desea ingresar la imagen del empleado'
nDialogType = 4 + 32 + 256
nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)
DO CASE
CASE nAnswer = 6
_nombre=GETFILE('jpg')
if len(alltrim(_nombre))<>0
append general foto.ima from (_nombre)
thisform.refresh
endif
CASE nAnswer = 7
messagebox("El archivo no tendra imagen")

ENDCASE
como guardo la foto a un determinado empleado?
y cuando haga una consulta de un empleado, como muestro la foto que le guarde?
yo lo hago de la siguiente forma:
dentro de mi form de empleados, hice un espacio donde conecto mi webcam y dede ahi tomo foto mediante coordenadas del formulario ( espesificandole donde esta la imagen de la webcam), la foto la hice que se guardara con el nombre del codigo del empleado, de la misma manera, cuando selecciono al empleado de un cuadro de lista, se hace una consulta y verifica que el codigo del empleado sea el mismo nombre de la foto jpg, y si es la misma, entonces sabre que corresponde al empleado, asun asi me muestra los datos del empleado con su respectiva foto.
De esta manera lo hago hoy en dia, pero donde trabajo me estan pidiendo que haga credenciales de todos los empleados (como 200 empleados) con su respectiva foto, para esto uso un programa (SmartCode Studio) donde con ese jalo los datos del empleado de una tabla de fox y me saca las credenciales, este programa aparte de funcionar con datos, tambien funciona para meter fotos desde una tabla, pero no puedo, y creo que si la foto la guardara en un campo general, ya no tendria ese problema, si alguien me puede ayudar.
Gracias

cuando la persona que captura los datos se olvida de guardar la imagen en donde corresponda...

Ese proceso no lo debe de realizar el usuario.


Suerte