delphi 保存图片问题！！！

procedure TForm1.BitBtn2Click(Sender: TObject);var Bitmap : TImage;begintry Bitmap.Picture.LoadFromFile(string(OpenPictureDialog1.FileName)); Bitmap.Picture.SaveToFile(✀C:尀screen.jpg✀);//提示错在这句 Application.MessageBox(✀保存成功✀, ✀提示✀, MB_OK); finally Bitmap.Picture.Free;end; end;=========================出现如图错误，求助啊procedure TForm1.BitBtn2Click(Sender: TObject);var Bitmap : TImage;begintry Bitmap.Picture.LoadFromFile(string(OpenPictureDialog1.FileName)); Bitmap.Picture.SaveToFile(✀C:尀screen.jpg✀);⼀⼀提示错在这句 Application.MessageBox(✀保存成功✀, ✀提示✀, MB_OK); finally Bitmap.Picture.Free;end; end;=========================出现如图错误，求助啊

2026年09月26日 00:49

有3个网友回答

网友（1）：

procedure TForm1.BitBtn2Click(Sender: TObject);
var
Bitmap : TImage;

begin

try
if OpenPictureDialog1.Execute then
begin
Bitmap:=TImage.Create(Self);
Bitmap.Picture.LoadFromFile(string(OpenPictureDialog1.FileName));
Bitmap.Picture.SaveToFile('C:\screen.jpg');//提示错在这句
Application.MessageBox('保存成功', '提示', MB_OK);
end;
finally
Bitmap.Free;
end;
end;

网友（2）：

操作JPEG图片,应该引用JPEG单元,一错也;
Bitmap : TImage;
Bitmap 要先创建,后使用,你没有创建,如何使用,而且后面还有 Bitmap.Picture.Free;
这句也是错的, 应该是Bitmap.Free;

网友（3）：

不能直接操作JPG文件的，他只认识BMP文件！