FoxPro/Visual FoxPro - fotos otro ej.

   
Vista:

fotos otro ej.

Publicado por marina (38 intervenciones) el 14/09/2009 21:22:30
bueno le comento que probe este codigo que lo saque de esta pagina:
evento click
m.fotos=getfile("jpg","imagen:","abrir",0,"buscar foto")
thisform.pageframe1.page1.image1.picture=m.fotos

el campo fotos es memo

esto me deja seleccionar la carpeta y busco la foto q yo quiero, pero en realidad sigue si hacer lo q necesito ,
cuando le doy click me muestra un registro determinado y yo necesito q la foto corresponda a ese registro. gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:fotos otro ej.

Publicado por andy (221 intervenciones) el 15/09/2009 00:53:41
Hola Marina, el codigo que mencionas sirve para mostrar la foto o imagen, el valor de la variabale m.fotos debes guaradarla en el campo correspondiente de tu tabla:
selec mitabla
replace CampoFoto with m.foto

Para mostrar la foto "almacenada" en la tabla seria algo asi:

Select mitabla
locate for codigo=m.codigo && O como sea tu busqueda
if.not.found()
wait window nowait 'Error, codigo no encontrado'
return
nodefault
else
m.fotos=CampoFoto
thisform.pageframe1.page1.image1.picture=m.fotos
thisform.refresh
endif

Otra cosa, usa la funcion GETPICT(), que te muestra los archivos de imagenes soportadas por VFP. (GIF,BMP.JPG,PNG,etc)
En mi caso yo guardo las imagenes en una Subcarpeta que se redirecciona con SET PATH, y con la funcion JUSTFNAME() guardo el link devuelto por GETPICT() (o GETFILE; en tu caso) con el nombre y la extencion del archivo:

m.fotos=GETPICT()
SELEC mitabla
REPLACE fotos WITH JUSTFNAME(m.fotos)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar