我的程序在显示图片时出现JPEG error #60错误。我怎么控制不出现这个错误了?或者怎么可以捕捉到这个错误?

解决方案 »

  1.   

    uses jpeg
    -----------
    代码贴出来
      

  2.   

    uses
     Graphics,jpeg。
    都uses了。
    procedure TfrmFind.showPic();
    var
      jpg1:TJPEGImage;
    begin
    jpg1:=TjpegImage.Create;
    try
    jpg1.Assign(dm.qryReplay.FieldByName('Picture'));
        try
             imgReplay.Picture.Assign(jpg1);
        except
          on EInvalidGraphic do
          begin
             imgReplay.Picture.Graphic := nil;end;
        end;
    finally
        JPG1.Free;
    end;