Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » FoxPro/Visual FoxPro » manejo de imagenes en un ejecutable (.EXE)

FoxPro/Visual FoxPro - manejo de imagenes en un ejecutable (.EXE)

Volver
Nuevo Tema
<<>>
 
Vista:
Imágen de perfil de Elias

manejo de imagenes en un ejecutable (.EXE)

Publicado por Elias (79 intervenciones) el 06/10/2013 01:20:47
Hola a todos,

resulta que tengo una aplicacion en la cual muestro segun el codigo de socio ingresado la foto del socio.

todo me funciona correctamente cuando ejecuto la apliacion desde VFP, pero cuando genero el ejecutable todo funciona igual pero no muestra la imagen.

Hay que hacer algo especial para que funcione tambien en el ejecutable?

Les paso el codigo que utilizo

STORE STR(m_nrosoc,6) TO nrodoc
STORE ALLTRIM(nrodoc) + '.JPG' TO foto
*
STORE ruta1+foto TO imagen
*
IF FILE(imagen)
*
COPY FILE &imagen to foto0.jpg
*
ELSE
*
COPY FILE foto000.jpg TO foto0.jpg
*
ENDIF
*
thisform.Image1.Picture="foto0.jpg"
*
thisform.refresh

Desde ya muchas 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
sin imagen de perfil
Val: 1.011
Oro
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

manejo de imagenes en un ejecutable (.EXE)

Publicado por Fidel (558 intervenciones) el 06/10/2013 15:08:22
Si la imagen no se ve en el control Image es porque no encuentra el archivo indicado.
En el código que pasas, no queda claro a donde se realizan las copias. Esto es mejor que quede especificado y todo por default, porque dependerá de la carpeta actualmente seleccionada.
El siguiente procedimiento, te permite hacer lo que necesitas indicando una ruta de búsqueda de imágenes, el nombre de la imagen buscada y el control de destino. O sea puedes colocar cualquier imagen en cualquier control image (aunque esté en un container o pageframe)
Esto se puede mejorar considerando carpetas con espacios (encomillando la ruta), indicando que por defecto busque en Mis Documentos, etc.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
PROCEDURE GFOTO(xcRutaBus,xcFotoBus,xoDestino)
*----------------------------------------------
* Paramters:
* xcRutaBus: Ruta inicial donde buscar la foto xcFotoBus
* xcFotobus: archivo de imagen buscado
* xoDestino: Referencia al objeto Image donde se coloca la foto
* Sample:
* 	gFoto(Addbs(Fullpath(""))+"Fotos",;
*		ALLTRIM(STR(m_nrosoc,6))+".jpg",;
*		thisform.image1 )
*****************************************************
 
IF EMPTY(xcFotobus)
	RETURN
ENDIF
IF VARTYPE(xoDestino)#"O"

	RETURN
ENDIF
 
xcRutaBus=EVL(xcRutabus,FULLPATH(""))
 
LOCAL lcRuta1,lcRutApp,lcImage,lcImageAlt,lcImaShow,lcExten,lAviso
lcExten=JUSTEXT(xcFotoBus)
IF EMPTY(lcExten)
	lcExten="jpg"
	xcFotoBus=ALLTRIM(xcFotobus)+"."+lcExten
ENDIF
 
lcRuta1=IIF(DIRECTORY(xcRutaBus),xcRutaBus,FULLPATH(""))
lcRutapp=FULLPATH("")
 
lcImagen=ADDBS(lcRuta1)+ALLTRIM(xcFotoBus)
lcImageAlt=ADDBS(lcRutapp)+"foto000."+lcExten
lcImaShow=ADDBS(lcRutapp)+"Foto0."+lcExten
 
lAviso=.f.
IF FILE(lcImagen)
	COPY FILE &lcImagen to &lcImaShow
	lAviso=.t.
 
ENDIF
IF !lAviso.and.file(lcImageAlt)
	COPY &lcImageAlt to &lcImaShow
 
ENDIF
 
WITH xoDestino
	.Visible=lAviso
	.picture=IIF(lAviso,lcImaShow,"")
ENDWITH
ENDPROC
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

manejo de imagenes en un ejecutable (.EXE)

Publicado por Israel (1 intervención) el 01/11/2013 00:56:58
*hago publica una variable

Public abre

*obtengo la ruta donde esta el ejecutable y la llevo a la variable abre

abre= JUSTPATH(SYS(16, 0))

*si la imagen esta en la misma ruta del ejecutable

thisform.Image1.Picture=abre+"\foto0.jpg"

*si la imagen esta en la misma ruta del ejecutable y además en otra carpeta, en este caso la subcarpeta se llama img

thisform.Image1.Picture=abre+"\img\foto0.jpg"

Saludos espero que te sirva
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