Debenu Quick PDF Library - PDF SDK Community Forum : Memory pb with extractFilepages http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sat, 04 Apr 2026 04:54:41 +0000 Tue, 01 Feb 2011 19:36:51 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=1724 <![CDATA[Debenu Quick PDF Library - PDF SDK Community Forum]]> http://www.quickpdf.org/forum/forum_images/QPDF_Forum_Title.png http://www.quickpdf.org/forum/ <![CDATA[Memory pb with extractFilepages : Sounds great that you found the...]]> http://www.quickpdf.org/forum/memory-pb-with-extractfilepages_topic1724_post7546.html#7546 Author: Dimitry
Subject: 1724
Posted: 01 Feb 11 at 7:36PM

Sounds great that you found the solution.
Also there is one more function ExtractPages() as an alternative to ExtractFilePages().
 
]]> Tue, 01 Feb 2011 19:36:51 +0000 http://www.quickpdf.org/forum/memory-pb-with-extractfilepages_topic1724_post7546.html#7546 <![CDATA[Memory pb with extractFilepages : My problem is solvedit&#039;s...]]> http://www.quickpdf.org/forum/memory-pb-with-extractfilepages_topic1724_post7545.html#7545 Author: m56ober
Subject: 1724
Posted: 01 Feb 11 at 3:33PM

My problem is solved

it's not ExtractFilePages the problem but DAFindPage

For each group page, i'm using this code.
It's longer , but i have not memory problem

    FreeAndNil(PDF);
    PDF := TQuickPDF0723.Create;
    PDF.UnlockKey(QPDFLicence);
    FH := pdf.DAOpenFile(FileName,'');

Thank you!

]]> Tue, 01 Feb 2011 15:33:09 +0000 http://www.quickpdf.org/forum/memory-pb-with-extractfilepages_topic1724_post7545.html#7545 <![CDATA[Memory pb with extractFilepages : I have a big file 126000 pagesI...]]> http://www.quickpdf.org/forum/memory-pb-with-extractfilepages_topic1724_post7544.html#7544 Author: m56ober
Subject: 1724
Posted: 01 Feb 11 at 1:26PM

I have a big file 126000 pages
I must separate pages of this file
After 22% of traitement i have a memory problem.
Can you help me?

Thank you, Oliver

==================================================================
My procedure
==================================================================
Procedure tFRM_MAIN.WriteNewFile(pgfirst,pglast:integer);
Var
   FName  : String;
   outpdf : TQuickPDF0723;
Begin
   inc(nbfic);
   Plage := intToStr(pgfist)+'-'+intTostr(pglast);

   { FileName  : destination }
   fname := PREFIX +
            matricule + '_' +
            annee + '_' +
            FormatFloat('00000',nbFile)+
            '.pdf';

   { Extraction}
   outpdf := TQuickPDF0723.create;
   outpdf.UnlockKey(QPDFLicence);
   err := OutPdf.ExtractFilePages(Copie,    // source File
                                                    fName,   // Destination File
                                                    Plage);  
   FreeAndNil(outpdf);

   { Index }
   write(findex,mat+';'+name+';'+year+';'+FormatFloat('0000',nbFile)+';');
   if err = 0 then
   Begin
      writeln(findex,'Error');
      ShowMessage('Error '+intToStr(pdf.lastErrorCode));
   End Else writeln(findex,'');
End;
]]> Tue, 01 Feb 2011 13:26:08 +0000 http://www.quickpdf.org/forum/memory-pb-with-extractfilepages_topic1724_post7544.html#7544