Debenu Quick PDF Library - PDF SDK Community Forum : Page extraction problem http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 12:29:27 +0000 Mon, 22 Mar 2010 10:25:57 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=1379 <![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[Page extraction problem : Here is my code: Private Sub...]]> http://www.quickpdf.org/forum/page-extraction-problem_topic1379_post6264.html#6264 Author: SlyJay
Subject: 1379
Posted: 22 Mar 10 at 10:25AM

Here is my code:
    Private Sub PDFInsertPagesFromFile(ByVal destFile As String, ByVal insertFile As String, ByVal position As Integer)

 

        Dim tmpQP As New QuickPDFAX0718.PDFLibrary

        tmpQP.UnlockKey("my_code")

 

        tmpQP.LoadFromFile(destFile)

        Dim mainDoc As Integer = tmpQP.SelectedDocument

        Dim LastPart As Integer = 0

        Dim FirstPart As Integer = 0

 

        FirstPart = tmpQP.ExtractFilePages(destFile, My.Application.Info.DirectoryPath & "\1.pdf", "1-" & position)

        If FirstPart = 0 Then

            Exit Sub

        End If

 

        If tmpQP.PageCount > position Then

            tmpQP.DeletePages(1, position)

            tmpQP.SaveToFile(My.Application.Info.DirectoryPath & "\3.pdf")

            LastPart = 1

        End If

 

        tmpQP.MergeFiles(My.Application.Info.DirectoryPath & "\1.pdf", insertFile, My.Application.Info.DirectoryPath & "\2.pdf")

        IO.File.Delete(destFile)

        If LastPart > 0 Then

            tmpQP.MergeFiles(My.Application.Info.DirectoryPath & "\2.pdf", My.Application.Info.DirectoryPath & "\3.pdf", destFile)

            IO.File.Delete(My.Application.Info.DirectoryPath & "\3.pdf")

        Else

            IO.File.Move(My.Application.Info.DirectoryPath & "\2.pdf", destFile)

        End If

 

        IO.File.Delete(My.Application.Info.DirectoryPath & "\1.pdf")

        IO.File.Delete(My.Application.Info.DirectoryPath & "\2.pdf")

 

    End Sub

 
Consider that exept from the rest of the code witch is not the best due to multiple tries the problems resides in this line:
 
FirstPart = tmpQP.ExtractFilePages(destFile, My.Application.Info.DirectoryPath & "\1.pdf", "1-" & position)
 
when you call the SUB the secondtime the extraction process  fails doing the problem 1,2,1,1,1....
 
Hope this helps.
 
Thanks
 
Sly
]]> Mon, 22 Mar 2010 10:25:57 +0000 http://www.quickpdf.org/forum/page-extraction-problem_topic1379_post6264.html#6264 <![CDATA[Page extraction problem : Hi Sly, it would be helpful if...]]> http://www.quickpdf.org/forum/page-extraction-problem_topic1379_post6263.html#6263 Author: Rowan
Subject: 1379
Posted: 22 Mar 10 at 9:54AM

Hi Sly, it would be helpful if you posted your code. It doesn't really mater what language it's in, the important thing is that everyone gets to see the functions that you have used and the sequence in which they were called... ]]> Mon, 22 Mar 2010 09:54:35 +0000 http://www.quickpdf.org/forum/page-extraction-problem_topic1379_post6263.html#6263 <![CDATA[Page extraction problem : Hi everybody, I have a problem...]]> http://www.quickpdf.org/forum/page-extraction-problem_topic1379_post6262.html#6262 Author: SlyJay
Subject: 1379
Posted: 22 Mar 10 at 9:19AM

Hi everybody,
I have a problem during extraction process.
 
Given a source pdf file "source.pdf" if I call "QP.ExtractFilePages" for a certain range let's say 1-2 it crates a file with the 2 pages correctly, but if a call it a second time lats say with a range like 1-3 it generates a file with page 1,2,1 instead of 1,2,3. It copies allways the first page at the end after calling it a second time.
 
To clarify better, the forst time works correctly extracting the right pages but the second time it seems to append allways the fisrt page to the previous extracted range as many times as the current range exeeds the first range (1,2,1,1,1.......).
 
I've also tried to create a new istance of quickPdf for each extraction process but the behaviour is the same.
 
Any clue???
 
If you need more information just ask, I didn't post the code since we all use different languages but my code is in VB.net.
 
Thanks in advance
 
Sly 
]]> Mon, 22 Mar 2010 09:19:26 +0000 http://www.quickpdf.org/forum/page-extraction-problem_topic1379_post6262.html#6262