jpg文件保存出现问题！

Question

我用savepicturedialog保存jpg文件，可是保存后生成的不是jpg文件啊，怎么回事？

Answer 1

supported file types include bitmap (.BMP), icon (.ICO), Windows metafile (.WMF), and enhanced Windows metafile (.EMF).不支持jpg。—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

Answer 2

procedure TForm1.FlatButton6Click(Sender: TObject);
var
bmp:tbitmap;
jpg:tjpegimage;
begin
if (flatedit1.Text<>'') and (flatedit2.text<>'') then
begin
       if not (fileexists(extractfilename(flatedit2.Text))) then
         begin
           bmp:=tbitmap.Create;
           jpg:=tjpegimage.Create;
           bmp.LoadFromFile(flatedit1.Text);
           jpg.Assign(bmp);
           jpg.CompressionQuality:=100-form1.TrackBar1.Position;
           jpg.SaveToFile(extractfilename(flatedit2.text));
           jpg.free;
           flatedit1.text:='';
           flatedit2.text:='';
           messagebox(handle,'转换成功','转换成功',mb_ok);
         end
                                                            else
         MessageBox(handle,'发现文件名重复!!请把输出的JPG文件改名.','发现文件名重复',MB_OK);
end
else
messagebox(handle,'您没有要转换的文件','您没有要转换的文件',mb_ok);
end;祝：身体健康，勿忘进右下角的　　管理　　中放分：）