Ver Mensaje Individual
  #3  
Antiguo 08-03-2018
efheme efheme is offline
Registrado
 
Registrado: dic 2003
Ubicación: Colombia
Posts: 4
Reputación: 0
efheme Va por buen camino
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

Última edición por Neftali [Germán.Estévez] fecha: 08-03-2018 a las 17:06:21. Razón: Añadir TAG's al texto
Responder Con Cita