Jump to content


Photo

Cargar una imagen a Timagen desde Firemonkey


Best Answer amell2020 , 06 April 2020 - 08:59 PM

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);

Go to the full post


  • Please log in to reply
2 replies to this topic

#1 amell2020

amell2020

    Advanced Member

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

Posted 06 April 2020 - 03:56 PM

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 posts
  • LocationEn un solo Lugar

Posted 06 April 2020 - 08:59 PM   Best Answer

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
  • 14460 posts
  • LocationMéxico

Posted 07 April 2020 - 08:50 AM

Muchas gracias por el aporte.

 

Saludos (y)


  • 0




IP.Board spam blocked by CleanTalk.