将bmp文件转换为jpg文件
procedure TForm1.Button1Click(Sender: TObject);(*压缩MBP为JPEG;但是没有提供压缩比可选项凑合用吧，大概1/3 ^_^:Note:必须加上JPEG到Uses单元*)varMyJPEG : TJPEGImage;MyBMP : TBitmap;beginMyBMP := TBitmap.Create;with MyBMP dotryLoadFro...
