In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Cargar un JPG en Timage
-
- Mensajes: 192
- Registrado: Vie Mar 15, 2013 12:32 am
Cargar un JPG en Timage
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
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
- ignacio
- Site Admin
- Mensajes: 9255
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Re: Cargar un JPG en Timage
Buenos días,
Intente cargar las imagen desde el propio IDE para ver si es un problema del archivo.
Saludos
Intente cargar las imagen desde el propio IDE para ver si es un problema del archivo.
Saludos
-
- Mensajes: 192
- Registrado: Vie Mar 15, 2013 12:32 am
Re: Cargar un JPG en Timage
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
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
- ignacio
- Site Admin
- Mensajes: 9255
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Re: Cargar un JPG en Timage
Hola,
Le ruego me confirme que el ejemplo \samples\visor le funciona.
Como podrá observar utiliza esa misma técnica:
Saludos
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
-
- Mensajes: 192
- Registrado: Vie Mar 15, 2013 12:32 am
Re: Cargar un JPG en Timage
Hola Ignacio
El ejemplo \samples\visor me funciona correctamente
Saludos
El ejemplo \samples\visor me funciona correctamente
Saludos
- ignacio
- Site Admin
- Mensajes: 9255
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Re: Cargar un JPG en Timage
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
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
-
- Mensajes: 192
- Registrado: Vie Mar 15, 2013 12:32 am
Re: Cargar un JPG en Timage
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
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
- ignacio
- Site Admin
- Mensajes: 9255
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Re: Cargar un JPG en Timage
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
-
- Mensajes: 192
- Registrado: Vie Mar 15, 2013 12:32 am
Re: Cargar un JPG en Timage
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
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
- ignacio
- Site Admin
- Mensajes: 9255
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Re: Cargar un JPG en Timage
mande un ejemplo
-
- Mensajes: 192
- Registrado: Vie Mar 15, 2013 12:32 am
Re: Cargar un JPG en Timage
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
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
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.
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.
-
- Mensajes: 192
- Registrado: Vie Mar 15, 2013 12:32 am
Re: Cargar un JPG en Timage
Muchas gracias José
Daniel Pechir
Daniel Pechir