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ón

Dependiendo 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.

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]

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

Empezado por 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?

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