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

[ingel]

probaré lo que me has enviado .. pero como soy nuevito en esto de tratar con imagenes te pediria algunas aclaraciones ...
cuando quiero redimencionar la imagen .. que propiedades debo alterar ..
alto ? ancho? Peso?
Yo lo que se es que la imagen origen pesa 11mb y quiero una de aprox 500K

en la linea BitmapResizeProportional(Bmp,Alto,false);
el parametro alto a que se refiere ?

saludos y gracias

[mamcx]

Ah, eso era una rutina que usaba para asegurarme que las imagenes siempre tuvieran un mismo alto (era para una tienda).

No la necesitas, la puedes borrar...