[dec]

Hola,

Mira un sencillo ejemplo de cómo podrías convertir un archivo "BMP" en uno "JPG" reduciendo el tamaño de aquél en un buen porcentaje (echa un vistazo a las propiedades y métodos de "TJPEGImage" para ir un poco más allá). Sin utilizar la propiedad "CompressionQuality" ya reduciríamos en buena medida el tamaño del "BMP", pero, del siguiente modo aún lo podemos reducir un poco más. Tendrás que jugar con el valor de dicha propiedad, puesto que si este fuera "1", por ejemplo, el "BMP" se reduciría, pero, efectivamente, la calidad del "JPG" haría de este poco útil.

Código Delphi [-]
 uses
   Jpeg;
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
   bmp: TBitMap;
   jpg: TJPEGImage;
 begin
   bmp := TBitmap.Create;
   jpg := TJPEGImage.Create;
   try
     bmp.LoadFromFile('C:\archivo.bmp');
     jpg.Assign(bmp);
     jpg.CompressionQuality := 50;
     jpg.SaveToFile('C:\archivo.jpg');
   finally
     bmp.Free;
     jpg.Free;
   end;
 end;