bmp change 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;