bajar el peso a una foto

[efheme]

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]]

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ónDependiendo de cual te intere más, la forma es una u otra.

[efheme]

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.

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]

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

[angel2020]

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]

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 (https://www.clubdelphi.com/foros/guiaestilo.php), gracias :)