convert bmp to jpg (2001年1月27日).txt

来自「delphi 编程技巧」· 文本 代码 · 共 25 行

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;