bmp转成jpg也是压缩哦！.txt

bmp转成jpg也是压缩哦！ 111 111 111 111 111

bmp转成jpg也是压缩哦！ 
/**********************bmp位图转jpeg begin************************* 

begin 
abitmap := tbitmap.Create; 
od1.Filter := '位图文件|*.bmp'; 
if od1.Execute then 
filename := od1.filename 
else 
Exit; 
bsSkinGroupBox1.Caption := filename; 
abitmap.LoadFromFile(filename); 
Image1.Picture.Assign(abitmap); 
ajpg := tjpegimage.Create; 
ajpg.Assign(abitmap); 
ajpg.CompressionQuality := 75; 
ajpg.Compress; 
Sd1.Filter := 'jpg文件|*.jpg'; 
if Sd1.Execute then 
ajpg.SaveToFile(Sd1.filename + '.jpg'); 
ajpg.Free; 
abitmap.Free; 
end;