delphi处理图片 scan line index out of range

[loen113]

jpg.Assign(bmp);
jpg.CompressionQuality := 100;
jpg.Compress;


在压缩的时候会出现 scan line index out of range
有的图片报错,有的图片不报,

有人遇到过吗?
求解

[loen113]

没人懂吗 顶起来啊,求大神

[大肚肥肥]

var
  ABMP: Vcl.Graphics.TBitmap;
  DestRC, SourceRC: TRect;
  AJPEGImage: TJPEGImage;
begin
  ABMP := Vcl.Graphics.TBitmap.Create();
  AJPEGImage := TJPEGImage.Create;
  AJPEGImage.CompressionQuality := 100;
  AJPEGImage.Compress;
  try
    ABMP.LoadFromFile('c:\1.bmp');
    AJPEGImage.Assign(ABMP);


    AJPEGImage.SaveToFile('c:\1.jpg');
  finally
    ABMP.Free;
    AJPEGImage.Free;
  end;
end;

原始图片格式问题，可能图片格式不是bmp的
你试试用windows 画图 打开然后另存bmp试试