我正在将bitmap
转换为jpeg
,并希望使用各种比例在图像中显示结果。我使用以下代码,工作正常。
procedure TForm1.Button1Click(Sender: TObject);
var
Bmp: TBitmap;
Jpg: TJPEGImage;
begin
Bmp := TBitmap.Create;
Bmp.PixelFormat := pf32bit;
Jpg := TJPEGImage.Create;
try
Bmp.LoadFromFile('0C310060.bmp');
Jpg.Assign(Bmp);
Jpg.SaveToFile('0C310060.jpg');
Image1.Picture.Assign(Jpg);
TJPEGImage(Image1.Picture.Graphic).Scale := jsEighth;
finally
Jpg.Free;
Bmp.Free;
end;
end;
我不需要磁盘上的jpeg
文件。但是,如果我删除了行Jpg.SaveToFile('0C310060.jpg')
,则会出现访问冲突。 为什么? Jpg.SaveToFile
在幕后做了什么来防止访问冲突?