convert BMP to JPG (2001年1月27日) 

網友更新  分類:圖形圖象   作者:具體不詳，肯定不是我的  推薦:weicong   閱讀次數:460  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
uses jpeg; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
bmp : TImage; 
jpg : TJpegImage; 
begin 
bmp := TImage.Create(nil); 
jpg := TJpegImage.Create; 
bmp.picture.bitmap.LoadFromFile ( 'c:\picture.bmp' ); 
jpg.Assign( bmp.picture.bitmap ); 
// Here you can set the jpg object's properties as compression, size and more 
jpg.SaveToFile ( 'c:\picture.jpg' ); 
jpg.Free; 
bmp.Free; 
end;