*****打印预览多次后提示”内存不足“*****

dragonsoft

请帮我们看看，打印预览文书多次后就报内存不足，还会报其他错误，应该是我们程序写的哪里有问题，请帮我们看看，其他错误信息见图片

dragonsoft

报错图1

dragonsoft

出错图2

dragonsoft

出错图

dragonsoft

出错图

dragonsoft

出错图片

dragonsoft

出错图

lixy

2楼的错误，推断有可能跟你的动态加载图片的代码有关系。

dragonsoft

好的，查查代码先

dragonsoft

下面的代码是在文书窗体上的show事件代码，再没有其他关闭事件了，请帮忙看看什么地方可能存在问题，谢谢！
procedure TJLZ.BizFormShow(Sender: TObject);
var
  objQuery : TQuery;
  objImage : TImage;
  strTempFile : String;
begin
  Inherited;
  if DataSetBroker1.DataSet.FieldByName('PZR').AsString <> '' then begin
    objQuery := SysFunCLib.TFunData.UpdateDBValue('Biz:\ZHAJ_DS\DSEZHAJ_YWDB.Database',
      'select * from T_AJB_TZWHSJB where SFQY = 1 and TYBZ = ''拘留证'' and TZLB = 6 and GAJGJGDM =''' + SysFunClib.TFunJustep.GetBizUrlValue(Context,'Biz:\ZHAJ_DS\DLYHCSZ.ParamGroup\YHSSGAJ.Param') + '''',1);
    strTempFile := 'C:\0010.bmp';
    if objQuery.RecordCount > 0 then begin
      TBlobField(objQuery.FieldByName('TZ')).SaveToFile(strTempFile);
    end;
    if SysUtils.FileExists(strTempFile) then begin
      objImage := nil;
      objImage := TImage.Create(objImage);
      objImage.Picture.LoadFromFile(strTempFile);
      objImage.AutoSize := True;
      objImage.Center := True;
      objImage.Stretch := True;
      objImage.Transparent := True;
      objImage.Parent := Self;
      Self.SealImage := objImage;
      Self.SealLeft := objQuery.FieldByName('Z').AsInteger;
      Self.SealTop := objQuery.FieldByName('Y').AsInteger;
    end;
    SysUtils.DeleteFile(strTempFile);
    objQuery.Close;
    objQuery.Free;
  end;
end;