Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   FireMonkey (https://www.clubdelphi.com/foros/forumdisplay.php?f=50)
-   -   bajar el peso a una foto (https://www.clubdelphi.com/foros/showthread.php?t=92873)

efheme 28-02-2018 21:17:53

bajar el peso a una foto
 
Hola
Agradezco si me pueden ayudar.

Estoy haciendo una aplicacion en Firemonkey y necesito bajar el peso a las fotos que capturo, como puedo lograrlo

gracias por la ayuda

Neftali [Germán.Estévez] 01-03-2018 11:24:20

A priori se me ocurrren varias opciones:
  • Bajar las dimensiones de la imagen
  • Bajar la resolución o profundidad de colores
  • Utilizar formatos que incluyen compresión
Dependiendo de cual te intere más, la forma es una u otra.

efheme 08-03-2018 15:03:31

bajar el peso a una foto
 
Con la Ayuda de mi amigo Jhonny Suárez también miembro de este foro a quien le agradezco la ayuda, encontre la solucion, usando el componente TImageControl, que lo hace automáticamente.

dejo aquí el ejemplo para quien lo necesite o por si se me olvida.
Código Delphi [-]
Var
  Foto     : TImageControl;
Begin
  Foto := TImageControl.Create(Self);
  Foto.Bitmap.LoadFromFile('FotoOriginal.jpg');   // Se carga la Foto
  Foto.Bitmap.SaveToFile('NuevaFoto.jpg');         // Se Vuelve a guardar la foto, 
  Foto.DisposeOf;
End;

El ejemplo lo hice con una Foto de 1.8mb y me quedo de 45.5 KB

gregpoulsen 29-05-2019 15:27:57

Muchas gracias por describir.
Muy buen trabajo Finalmente encontré respuestas para mis preguntas
Aclamaciones
Greg

angel2020 07-04-2020 02:14:35

Muy interesantes esto, pero me gustaría saber como cargar una imagen un Timagen en tiempo de ejecución en Firemonkey y luego bajarle el peso ya que voy guardarlo en una base de datos de mysql, por favor?

Casimiro Notevi 07-04-2020 11:00:32

Cita:

Empezado por angel2020 (Mensaje 536613)
Muy interesantes esto, pero me gustaría saber como cargar una imagen un Timagen en tiempo de ejecución en Firemonkey y luego bajarle el peso ya que voy guardarlo en una base de datos de mysql, por favor?

Bienvenido a clubdelphi, por favor, lee nuestra guía de estilo, gracias :)


La franja horaria es GMT +2. Ahora son las 18:02:47.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi