之前有找過相關類似轉PDF的方式,也成功的試出來了... 不過問題卻慢慢浮現,就是在轉PDF的同時,Project.EXE 的記憶體卻 會慢慢的升高,似乎不會降下來導致 出現 Out of Memory Delphi 寫法如下 : var a:=TgtQRExportFilter; begin for i:=o to j do begin qrp.query1.Filtered :=False; qrp.query1.Filter:='name=' IntToStr(i); qrp.query1.Filtered:=True; try qrp.Prepare; a:=TgtQRExportFilter.Create('c:\temp\' IntToStr(i) '.pdf') qrp.ExportToFilter(a); <-----應該是這段程式造成記憶體不斷升高 finally qrp.QRPrinter.Free; qrp.QRPrinter := nil; a.Free; <---感覺這各 Free不會釋放記憶體出來 end; end; end; 不知道還有沒有解救的方法,謝謝各位!!

參考原廠example:

procedure Tmainform.SpeedButton2Click(Sender: TObject);
var
    PDFFilt : TQRPDFDocumentFilter;
begin
     repform.Table1.open;
     PDFFilt := TQRPDFDocumentFilter.Create( 'PDFExport uncomp.pdf' );
     pdffilt.AddFontMap( 'WebDings:ZapfDingBats' );
     pdffilt.TextOnTop := true;
     pdffilt.LeftMargin := 25;
     pdffilt.topMargin := -10;
     pdffilt.CompressionOn := false;
     pdffilt.Concatenating := true;
     pdffilt.SetTempPath( 'c:\temp');
     repform.QuickRep1.ExportToFilter( PDFFilt );
     repform.Table1.close;
     form1.QuickRep1.ExportToFilter( PDFFilt );
     pdffilt.EndConcat;
     pdffilt.Free;
end;