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

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.

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

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

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