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

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;

lixy

objImage 这个实例好像没释放。

lixy

Self.SealImage 虽然接收了这个对象，但不知道Self.SealImage 是什么控件，是否能保证objImage 能释放呢？或者是否能直接把图片加载入Self.SealImage 这个控件呢？

lixy

objImage := TImage.Create(objImage);  这个是什么写法？

dragonsoft

因为是要动态加载图章信息，所以无法直接把图片加载。
Self.SealImage 是我们自己定义的一个内部属性。
我们可以先试着把objImage 实例释放掉看看效果。

lixy

最初由 lixy 发布
[B]objImage := TImage.Create(objImage);  这个是什么写法？ [/B]

dragonsoft

这个是傻13写法，呵呵