Cargar un JPG en Timage

[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

[ignacio]

Buenos días,

Intente cargar las imagen desde el propio IDE para ver si es un problema del archivo.

Saludos

[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 1020 veces

[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

[Daniel Pechir]

Hola Ignacio

El ejemplo \samples\visor me funciona correctamente

Saludos

[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

[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

[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

[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

[ignacio]

mande un ejemplo

[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

[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.

[Daniel Pechir]

Muchas gracias José

Daniel Pechir