如果是将BMP转换为JPEG,可以这样:
var Jpg : TJpegImage ;
Bmp : TBitMap ;
JpgStream : TMemoryStream ;
....
Bmp := TBitMap.Create;
Jpg := TJpegImage.Create;
JpgStream := TMemoryStream.Create ;
Bmp.LoadFromFile('c:/test.bmp'); // 假设从c盘中装入BMP文件。
Jpg.assign(Bmp);
Jpg.CompressionQuality := 80 ; // 0 -- 100 之间,数字越大压缩后的图
//象质量越好,但文件也相应增大。
Jpg.compress ;
// 以上两句是控制压缩后图象的质量的。如不须控制也可去掉。
Jpg.SavetoStream(JpgStream);
如另一个image控件需要压缩的结果,则:
var aJpg : TJpegImage;
aJpg := TJpegImage.create ;
aJpg.LoadFromStream(JpgStream);