reducir jpgs de 11mb ...

[mamcx]

Un codigo de ejemplo:

Código Delphi [-]
procedure GenerarPreview(  );
var
  Imagen : TPicture;
  Target: TJPEGImage;
  Bmp : TBitmap;
  Ext: String;
begin

  Imagen := TPicture.Create;

  try
    try
      Imagen.LoadFromFile( ImagenOrigen );
      Ext := ExtractFileExt( ImagenDestino );

      Target := TJPEGImage.Create;

      Bmp := TBitmap.Create;

      try
         //Convertirlo a un BMP
         Bmp.Width := Imagen.Width;
         Bmp.Height := Imagen.Height;

         Bmp.Canvas.Draw(0, 0, Imagen.Graphic);

         //Redimensionar la imagen
         BitmapResizeProportional(Bmp,Alto,false);
         //Mejora la visualizacion en las paginas, aunque el archivo es mas largo
         Target.ProgressiveEncoding := true;
         //calidad por defecto
         Target.CompressionQuality := Calidad;
         Target.Assign(Bmp);

         Target.SaveToFile( ImagenDestino );

         Writeln('Convertido' + ImagenOrigen +'  en '+ ImagenDestino+' con exito!');
      finally
         Target.Free;
         Bmp.Free;
      end;//try
    finally
      Imagen.Free;
    end;//try
  except on E: Exception do
    Writeln('ERROR:'+E.Message);
  end;
end;

Tambien busca la utilidad NView que es mas completa y gratis