从位图转换后调整jpeg图像的大小不起作用

时间:2018-01-13 23:39:14

标签: delphi bitmap type-conversion jpeg

我正在将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在幕后做了什么来防止访问冲突?

0 个答案:

没有答案