Ir al contenido


Foto

Cargar una imagen a Timagen desde Firemonkey


Mejor respuesta amell2020 , 06 abril 2020 - 08:59

Buenas yo mismo me respondo a mi solución.

 

incluir en nuestro proyecto un TImage, un TToolBar,  tres TButton y un TActionListAhora tenemos que cambiar algunas propiedades de los objetos en nuestro proyecto.

Seleccione la btnCam y Object Inspector haga clic en la propiedad Action, a continuación, seleccione New Standard Action-Media Library-TTakePhotoFromCameraAction.

Desde el Object Inspectorvaya a la pestaña Events y expanda la propiedad Action, ver más abajo:

 
desde allí seleccione el evento onDidFinishTaking y escriba image1.Bitmap.Assign(Image);

delphi
  1. image1.Bitmap.Assign(Image);

Ir al mensaje completo


  • Por favor identifícate para responder
2 respuestas en este tema

#1 amell2020

amell2020

    Advanced Member

  • Miembros
  • PipPipPip
  • 340 mensajes
  • LocationEn un solo Lugar

Escrito 06 abril 2020 - 03:56

Hola amigos, estoy realizando una aplicación móvil con delphi XE8, para iniciarme en el mundo de app desde delphi, ya que he visto mucho avances en las futuras actualización de delphi.

Quiero cargar una imagen a un Timagen desde una aplicacion Firemonkey, lo estoy haciendo con opendialog pero solo funciona para vlc windows, alguien puede ayudarme con esto, por favor? 


  • 0

#2 amell2020

amell2020

    Advanced Member

  • Miembros
  • PipPipPip
  • 340 mensajes
  • LocationEn un solo Lugar

Escrito 06 abril 2020 - 08:59   Mejor respuesta

Buenas yo mismo me respondo a mi solución.

 

incluir en nuestro proyecto un TImage, un TToolBar,  tres TButton y un TActionListAhora tenemos que cambiar algunas propiedades de los objetos en nuestro proyecto.

Seleccione la btnCam y Object Inspector haga clic en la propiedad Action, a continuación, seleccione New Standard Action-Media Library-TTakePhotoFromCameraAction.

Desde el Object Inspectorvaya a la pestaña Events y expanda la propiedad Action, ver más abajo:

 
desde allí seleccione el evento onDidFinishTaking y escriba image1.Bitmap.Assign(Image);

delphi
  1. image1.Bitmap.Assign(Image);


  • 1

#3 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.460 mensajes
  • LocationMéxico

Escrito 07 abril 2020 - 08:50

Muchas gracias por el aporte.

 

Saludos (y)


  • 0




IP.Board spam blocked by CleanTalk.