Página 1 de 1
Cargar un JPG en Timage
Publicado: Mar Nov 14, 2023 11:35 pm
por Daniel Pechir
HOLA A TODOS
Tengo un Control Timage y quiero cargar un .jpg en run time con el siguiente código, pero no funciona
METHOD FormInitialize( oSender ) CLASS Intro
IF File ("C:\IntroByapple\Vision.JPG")
::oImagen:oPicture := 'C:\IntroByapple\Vision.JPG'
ENDIF
RETURN Nil
NOTA:
La imagen si existe y la dirección es correcta
GRACIAS POR SU APOYO
Daniel Pechir
Re: Cargar un JPG en Timage
Publicado: Mié Nov 15, 2023 8:02 am
por ignacio
Buenos días,
Intente cargar las imagen desde el propio IDE para ver si es un problema del archivo.
Saludos
Re: Cargar un JPG en Timage
Publicado: Mié Nov 15, 2023 6:17 pm
por Daniel Pechir
Buen día Ignacio
El JPG no tiene problema
ya lo cargué desde la IDE
Mi tema es que la imágen no es FIJA sino que puede ir cambiando
Y en Run Time no lo hace
Gracias por su amable atención
Saludos
Daniel Pechir
- Captura de pantalla.png (123.65 KiB) Visto 1909 veces
Re: Cargar un JPG en Timage
Publicado: Mié Nov 15, 2023 6:22 pm
por ignacio
Hola,
Le ruego me confirme que el ejemplo \samples\visor le funciona.
Como podrá observar utiliza esa misma técnica:
Código: Seleccionar todo
METHOD Button1Click( oSender ) CLASS TVisor
IF ::oFileOpenDlg1:Run()
::oImage1:oPicture := ::oFileOpenDlg1:cFullFileName
ENDIF
RETURN Nil
Saludos
Re: Cargar un JPG en Timage
Publicado: Mié Nov 15, 2023 9:06 pm
por Daniel Pechir
Hola Ignacio
El ejemplo \samples\visor me funciona correctamente
Saludos
Re: Cargar un JPG en Timage
Publicado: Jue Nov 16, 2023 10:09 am
por ignacio
Hola,
Pues entonces algo no está haciendo bien usted porque es literalmente el mismo código. Le sugiero que revise el código del ejemplo Visor e intente hacer lo mismo en su programa. Si sigue sin conseguirlo, mandé un PEQUEÑO ejemplo (no vale copiar y pegar de su código) que muestre su problema.
Un saludo
Re: Cargar un JPG en Timage
Publicado: Jue Nov 16, 2023 5:27 pm
por Daniel Pechir
Buen día Ignacio
Funciona pero tengo que usar un TFileOpenDlg, donde el usuario debe escoger el archivo.
Yo necesito cargar el archivo directamente
¿ Como hacerlo ?
Saludos y Gracias
Daniel Pechir
Re: Cargar un JPG en Timage
Publicado: Jue Nov 16, 2023 8:16 pm
por ignacio
Es realmente lo mismo. Es una proopiedad que contiene el nombre del archivo elegido:
Código: Seleccionar todo
METHOD Button1Click( oSender ) CLASS TVisor
local cFile
IF ::oFileOpenDlg1:Run()
cFile := ::oFileOpenDlg1:cFullFileName
::oImage1:oPicture := cFile
ENDIF
RETURN Nil
Re: Cargar un JPG en Timage
Publicado: Jue Nov 16, 2023 9:56 pm
por Daniel Pechir
La idea es no usar el TFileOpenDlg, sino cargar directamente la imagen que se defina en cFile
Estoy teniendo un problrma similar con el Fast Report
Un campo de imagen en la banda y correctamente configurado y ligado al DataSet, No imprime la imagen
Las imágenes son JPG
Estoy confundido
Saludos
Re: Cargar un JPG en Timage
Publicado: Vie Nov 17, 2023 9:08 am
por ignacio
mande un ejemplo
Re: Cargar un JPG en Timage
Publicado: Sab Nov 18, 2023 1:34 am
por Daniel Pechir
Hola Ignacio
Le adjunto un ejemplo con la peculiaridad de que SI FUNCIONA.
#include "Xailer.ch"
CLASS TForm1 FROM TForm
COMPONENT oImage1
COMPONENT oLabelEx1
METHOD CreateForm()
METHOD FormInitialize( oSender )
ENDCLASS
#include "Form1.xfm"
//------------------------------------------------------------------------------
METHOD FormInitialize( oSender ) CLASS TForm1
::oImage1:oPicture := "Intros\LOGOAPPLEch.bmp"
RETURN Nil
Procediendo exactamente como el ejemplo, NO CARGA LAS IMAGENES EN MI PROGRAMA
NO ENTIENDO LO QUE PUEDA ESTAR PASANDO
Reciba un cordial Saludo
Daniel Pechir
Re: Cargar un JPG en Timage
Publicado: Lun Nov 20, 2023 5:48 pm
por jfgimenez
Daniel,
prueba a poner la ruta completa del archivo, incluida la letra de unidad. Si utilizas rutas relativas tendrás que asegurarte muy bien de cual es el directorio activo.
Re: Cargar un JPG en Timage
Publicado: Lun Nov 20, 2023 9:53 pm
por Daniel Pechir
Muchas gracias José
Daniel Pechir