visualizar imagenes en vfp

853 views
Skip to first unread message

Alvaro vidal

unread,
Oct 2, 2009, 5:17:30 PM10/2/09
to Mundo Visual FoxPro
Hola amigos, como puedo hacer que se visualicen las imagenes desde mi
programa.

ejemplo tengo una carpeta que se llama fotos y en ella las fotos estan
guardadas y el nombre que tienen es igual al codigo+ la ext jpg.

como puedo visualizar esa foto que cuando le dan un click esta tome el
codigo donde esta posicionado y busque la foto y la presente en una
ventana hacia el frente.

Gracias, compas.

Yvan GMAIL

unread,
Oct 2, 2009, 5:31:05 PM10/2/09
to mundovis...@googlegroups.com
l_imagen = thisform.micodigo.value
 
l_ruta_archivo_imagen = XPATIMAGEN + "\" + l_imagen + ".JPG"
** como sabes en que formato está?
 
** si el path apunta a la ruta de imagenes
 
l_ruta_archivo_imagen = l_imagen + ".JPG
 
Luego....
 
DO FORM Muestra_Imagen WITH l_ruta_archivo_imagen
 
El el init del formulario.. lo recibes...
Parameters p_archivo
Thisform.ControlImagen.Picture = p_archivo
 
 
Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4477 (20091002) __________

ESET NOD32 Antivirus ha comprobado este mensaje.

http://www.eset.com




__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4477 (20091002) __________

ESET NOD32 Antivirus ha comprobado este mensaje.

http://www.eset.com

Compuservis,C.R.

unread,
Oct 2, 2009, 6:56:28 PM10/2/09
to mundovis...@googlegroups.com
Gracias, compa.

Como se que formato tienen?
fuel algo que supuse pero hay tres formatos en realidad, jpg, bmp, y png!
Lo que me preocupa es que hay algunas mas grandes y otras más pequeñas.

Aver si entiendo.

creo un formulario nuevo dentro de mi formset
En este formulario meto un objeto imagen.
A ese objeto le pongo en la propiedad picture la informacion de donde esta la imagen por medio de una variable.
la carpeta con las imagenes esta dentro del path
digame si voy bien o  no es que el codigo que me pasaste lo entiendo a medias y me doy una idea con la foto que me mandaste.


Pantallazo.png

Yvan GMAIL

unread,
Oct 2, 2009, 7:03:14 PM10/2/09
to mundovis...@googlegroups.com
1. Lo del tamaño.. maneja por la propiedad strech para que se adecua al tamaño del objeto que has insertado.
 
2. Si trabajas con múltiples formularios ya no seria do form (en mi caso no es múltiples form).. si no que haría . show.. y solo manejas tu variable publica para indicar la ruta o el nombre del archivo.
 
Ten en cuenta que cuando asignes el nombre del archivo tiene que saber la extensión.. si solo quieres guiarte con el código le estas diciendo..
 
thisform.miimagen.picture = "005989"... pero como le dices. si el archivo esta en JPG.. BMP. etc.. guardarás la extensión.. ha no ser que manejes un estándar de la extensión.
 
 
Informaci�n de ESET NOD32 Antivirus, versi�n de la base de firmas de virus 4477 (20091002) __________


ESET NOD32 Antivirus ha comprobado este mensaje.

http://www.eset.com

Alvaro vidal

unread,
Oct 6, 2009, 6:16:19 PM10/6/09
to Mundo Visual FoxPro
Compa, como estas mira ya volvi es que he estado con mucho trabajo en
la parte de soporte técnico y no me gusta programar por pedacitos que
la verdad afecta mucho.

Continuando con el tema de las fotos, te cuento que no logro que se
muestra la imagen.

En el click del botón tengo este código, pero no me muestra la foto.
la variable esta publica para que me funcione en los dos formularios.
En la propiedad del objeto image.picture=(ximagen)

with thisformset
SELECT (.tablas)
store .f. to .MANTE1.enabled
store .t. to .docum1.enabled,.docum1.visible
STORE "\sia\fotos\"+ALLTRIM(STR(beclie.codcliente,20,0))+".jpg" TO
ximagen
.docum1.SHOW
.docum1.refresh
endwith

Alguna sugerencia más?
Gracias.


On 2 oct, 17:03, "Yvan GMAIL" <yvan.carra...@gmail.com> wrote:
> 1. Lo del tamaño.. maneja por la propiedad strech para que se adecua al tamaño del objeto que has insertado.
>
> 2. Si trabajas con múltiples formularios ya no seria do form (en mi caso no es múltiples form).. si no que haría . show.. y solo manejas tu variable publica para indicar la ruta o el nombre del archivo.
>
> Ten en cuenta que cuando asignes el nombre del archivo tiene que saber la extensión.. si solo quieres guiarte con el código le estas diciendo..
>
> thisform.miimagen.picture = "005989"... pero como le dices. si el archivo esta en JPG.. BMP. etc.. guardarás la extensión.. ha no ser que manejes un estándar de la extensión.
>
> Yvan Carranzahttp://groups.google.com.pe/group/mundovisualfoxpro
>
>   ----- Original Message -----
>   From: Compuservis,C.R.
>   To: mundovis...@googlegroups.com
>   Sent: Friday, October 02, 2009 5:56 PM
>   Subject: [Mundo Visual FoxPro] Re: visualizar imagenes en vfp
>
>   Gracias, compa.
>
>   Como se que formato tienen?
>   fuel algo que supuse pero hay tres formatos en realidad, jpg, bmp, y png!
>   Lo que me preocupa es que hay algunas mas grandes y otras más pequeñas.
>
>   Aver si entiendo.
>
>   creo un formulario nuevo dentro de mi formset
>   En este formulario meto un objeto imagen.
>   A ese objeto le pongo en la propiedad picture la informacion de donde esta la imagen por medio de una variable.
>   la carpeta con las imagenes esta dentro del path
>   digame si voy bien o  no es que el codigo que me pasaste lo entiendo a medias y me doy una idea con la foto que me mandaste.
>
>   El vie, 02-10-2009 a las 16:31 -0500, Yvan GMAIL escribió:
>     l_imagen = thisform.micodigo.value
>
>     l_ruta_archivo_imagen = XPATIMAGEN + "\" + l_imagen + ".JPG"
>     ** como sabes en que formato está?
>
>     ** si el path apunta a la ruta de imagenes
>
>     l_ruta_archivo_imagen = l_imagen + ".JPG
>
>     Luego....
>
>     DO FORM Muestra_Imagen WITH l_ruta_archivo_imagen
>
>     El el init del formulario.. lo recibes...
>     Parameters p_archivo
>     Thisform.ControlImagen.Picture = p_archivo
>
>     Yvan Carranza
>    http://groups.google.com.pe/group/mundovisualfoxpro
>     ----- Original Message -----
>     From: "Alvaro vidal" <compuservis...@gmail.com>
>     To: "Mundo Visual FoxPro" <mundovis...@googlegroups.com>
>     Sent: Friday, October 02, 2009 4:17 PM
>     Subject: [Mundo Visual FoxPro] visualizar imagenes en vfp
>
>     Hola amigos, como puedo hacer que se visualicen las imagenes desde mi
>     programa.
>
>     ejemplo tengo una carpeta que se llama fotos y en ella las fotos estan
>     guardadas y el nombre que tienen es igual al codigo+ la ext jpg.
>
>     como puedo visualizar esa foto que cuando le dan un click esta tome el
>     codigo donde esta posicionado y busque la foto y la presente en una
>     ventana hacia el frente.
>
>     Gracias, compas.
>
>     Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4477 (20091002) __________
>
>     ESET NOD32 Antivirus ha comprobado este mensaje.
>
>    http://www.eset.com
>
>     __________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4477 (20091002) __________
>
>     ESET NOD32 Antivirus ha comprobado este mensaje.
>
>    http://www.eset.com
>
>   __________ Informaci n de ESET NOD32 Antivirus, versi n de la base de firmas de virus 4477 (20091002) __________
>
>   ESET NOD32 Antivirus ha comprobado este mensaje.
>
>  http://www.eset.com
>
> __________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4477 (20091002) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
>  Pantallazo.png
> 125 KVerDescargar
>
>  MUESTRA.jpg
> 164 KVerDescargar

Yvan GMAIL

unread,
Oct 6, 2009, 6:20:09 PM10/6/09
to mundovis...@googlegroups.com
Prueba asignado a la variable publica una ruta de una imagen que exista.. si
funciona la cambias por tus variables.. te recomienda actualizar la
propiedad picture al comando de cargar tu form.. y no la tengas ya definida
con una variable.. no vaya a estar que esta tomando en vez la ruta el nombre
de la variable.
de virus 4485 (20091006) __________

ESET NOD32 Antivirus ha comprobado este mensaje.

http://www.eset.com




__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4485 (20091006) __________

Alvaro vidal

unread,
Oct 6, 2009, 6:28:29 PM10/6/09
to Mundo Visual FoxPro
compa ya lo logre.
le hice una actualizacion al picture en el activate de form.
detodas maneras muchas gracias.


On 2 oct, 17:03, "Yvan GMAIL" <yvan.carra...@gmail.com> wrote:
> 1. Lo del tamaño.. maneja por la propiedad strech para que se adecua al tamaño del objeto que has insertado.
>
> 2. Si trabajas con múltiples formularios ya no seria do form (en mi caso no es múltiples form).. si no que haría . show.. y solo manejas tu variable publica para indicar la ruta o el nombre del archivo.
>
> Ten en cuenta que cuando asignes el nombre del archivo tiene que saber la extensión.. si solo quieres guiarte con el código le estas diciendo..
>
> thisform.miimagen.picture = "005989"... pero como le dices. si el archivo esta en JPG.. BMP. etc.. guardarás la extensión.. ha no ser que manejes un estándar de la extensión.
>
> Yvan Carranzahttp://groups.google.com.pe/group/mundovisualfoxpro
>
>   ----- Original Message -----
>   From: Compuservis,C.R.
>   To: mundovis...@googlegroups.com
>   Sent: Friday, October 02, 2009 5:56 PM
>   Subject: [Mundo Visual FoxPro] Re: visualizar imagenes en vfp
>
>   Gracias, compa.
>
>   Como se que formato tienen?
>   fuel algo que supuse pero hay tres formatos en realidad, jpg, bmp, y png!
>   Lo que me preocupa es que hay algunas mas grandes y otras más pequeñas.
>
>   Aver si entiendo.
>
>   creo un formulario nuevo dentro de mi formset
>   En este formulario meto un objeto imagen.
>   A ese objeto le pongo en la propiedad picture la informacion de donde esta la imagen por medio de una variable.
>   la carpeta con las imagenes esta dentro del path
>   digame si voy bien o  no es que el codigo que me pasaste lo entiendo a medias y me doy una idea con la foto que me mandaste.
>
>   El vie, 02-10-2009 a las 16:31 -0500, Yvan GMAIL escribió:
>     l_imagen = thisform.micodigo.value
>
>     l_ruta_archivo_imagen = XPATIMAGEN + "\" + l_imagen + ".JPG"
>     ** como sabes en que formato está?
>
>     ** si el path apunta a la ruta de imagenes
>
>     l_ruta_archivo_imagen = l_imagen + ".JPG
>
>     Luego....
>
>     DO FORM Muestra_Imagen WITH l_ruta_archivo_imagen
>
>     El el init del formulario.. lo recibes...
>     Parameters p_archivo
>     Thisform.ControlImagen.Picture = p_archivo
>
>     Yvan Carranza
>    http://groups.google.com.pe/group/mundovisualfoxpro
>     ----- Original Message -----
>     From: "Alvaro vidal" <compuservis...@gmail.com>
>     To: "Mundo Visual FoxPro" <mundovis...@googlegroups.com>
>     Sent: Friday, October 02, 2009 4:17 PM
>     Subject: [Mundo Visual FoxPro] visualizar imagenes en vfp
>
>     Hola amigos, como puedo hacer que se visualicen las imagenes desde mi
>     programa.
>
>     ejemplo tengo una carpeta que se llama fotos y en ella las fotos estan
>     guardadas y el nombre que tienen es igual al codigo+ la ext jpg.
>
>     como puedo visualizar esa foto que cuando le dan un click esta tome el
>     codigo donde esta posicionado y busque la foto y la presente en una
>     ventana hacia el frente.
>
>     Gracias, compas.
>
>     Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4477 (20091002) __________
>
>     ESET NOD32 Antivirus ha comprobado este mensaje.
>
>    http://www.eset.com
>
>     __________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4477 (20091002) __________
>
>     ESET NOD32 Antivirus ha comprobado este mensaje.
>
>    http://www.eset.com
>
>   __________ Informaci n de ESET NOD32 Antivirus, versi n de la base de firmas de virus 4477 (20091002) __________
>
>   ESET NOD32 Antivirus ha comprobado este mensaje.
>
>  http://www.eset.com
>
> __________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4477 (20091002) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>

Alvaro vidal

unread,
Oct 6, 2009, 8:31:18 PM10/6/09
to Mundo Visual FoxPro
Compa muchas gracias hacido muy util su ayuda.
En resumen, para los que leen estos msjs.

se crea un form dentro del formset.
se crea un objeto imagen dentro del form.
y el boton de "ver foto" asignar codigo.
with thisformset
SELECT (.tablas)
store .f. to .MANTE1.enabled
store .t. to .docum1.enabled,.docum1.visible
STORE "\sia\fotos\"+ALLTRIM(STR(beclie.codcliente,20,0))+".jpg" TO
ximagen
.docum1.SHOW
.docum1.refresh
endwith

en el activate del form con la imagen.
se le asigan este codigo.
STORE ximagen TO thisformset.docum1.image1.Picture

Al objeto imagen en el picture no se le asigna nada para eso en el
activate se le envia.

La propiedad stretch=2-Estirar

opcional propiedades de image:
height=445
width=500


y listo.

las fotos actualmente estan solo las jpg.
en una carpeta que se llama fotos donde se encuentran todas las
imagenes y el nombre de la foto es el codigo del registro.

Gracias.


On 6 oct, 16:20, "Yvan GMAIL" <yvan.carra...@gmail.com> wrote:
> Prueba asignado a la variable publica una ruta de una imagen que exista.. si
> funciona la cambias por tus variables.. te recomienda actualizar la
> propiedad picture al comando de cargar tu form.. y no la tengas ya definida
> con una variable.. no vaya a estar que esta tomando en vez la ruta el nombre
> de la variable.
>

Ruth

unread,
May 6, 2014, 7:09:20 PM5/6/14
to mundovis...@googlegroups.com
Hola don alvaro he intentado realizarlo pero con un solo form no he logrado que me muestre la imagen

HernanCano

unread,
May 6, 2014, 11:27:40 PM5/6/14
to mundovis...@googlegroups.com
Ruth:
Este mensaje es del 2009.
Si querías realizar lo que se menciona ahí, puedes hacerlo, pero comentar encima de él mismo no.
Debiste crear otro hilo.

Esperemos las respuestas.
Reply all
Reply to author
Forward
0 new messages