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
Bmp.Width := Imagen.Width;
Bmp.Height := Imagen.Height;
Bmp.Canvas.Draw(0, 0, Imagen.Graphic);
BitmapResizeProportional(Bmp,Alto,false);
Target.ProgressiveEncoding := true;
Target.CompressionQuality := Calidad;
Target.Assign(Bmp);
Target.SaveToFile( ImagenDestino );
Writeln('Convertido' + ImagenOrigen +' en '+ ImagenDestino+' con exito!');
finally
Target.Free;
Bmp.Free;
end; finally
Imagen.Free;
end; except on E: Exception do
Writeln('ERROR:'+E.Message);
end;
end;
Tambien busca la utilidad NView que es mas completa y gratis