Debenu Quick PDF Library - PDF SDK Community Forum : delete blank pdf-pages http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sun, 05 Apr 2026 00:18:24 +0000 Thu, 07 Nov 2019 06:41:10 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=3759 <![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[delete blank pdf-pages : thank you guys, this helps a lot!!...]]> http://www.quickpdf.org/forum/delete-blank-pdfpages_topic3759_post15017.html#15017 Author: hjerteblod
Subject: 3759
Posted: 07 Nov 19 at 6:41AM

thank you guys, this helps a lot!!
]]> Thu, 07 Nov 2019 06:41:10 +0000 http://www.quickpdf.org/forum/delete-blank-pdfpages_topic3759_post15017.html#15017 <![CDATA[delete blank pdf-pages : Hi,Tim pushed you in the right...]]> http://www.quickpdf.org/forum/delete-blank-pdfpages_topic3759_post15016.html#15016 Author: Ingo
Subject: 3759
Posted: 06 Nov 19 at 7:21PM

Hi,

Tim pushed you in the right direction.
Here's a part from a loop to show you how to extract embedded images from a pdf-document page by page (in Pascal/Delphi):

      for i2 := 1 to pagecount do //
      begin
         iref := QP.SelectPage(i2);
         ilst := QP.GetPageImageList(iref);
         icnt := QP.GetImageListCount(ilst);

         for i3 := 1 to icnt do
         begin
            lv_imtype := QP.GetImageListItemIntProperty(ilst, i3, 400);
            if ( lv_imtype > 4 ) then
               lv_type := '.jpg';
            if ( lv_imtype = 1 ) then
               lv_type := '.jpg';
            if ( lv_imtype = 2 ) then
               lv_type := '.bmp';
            if ( lv_imtype = 3 ) then
               lv_type := '.tif';
            if ( lv_imtype = 4 ) then
               lv_type := '.png';

            lv_width  := IntToStr(QP.GetImageListItemIntProperty(ilst, i3, 401));
            lv_height := IntToStr(QP.GetImageListItemIntProperty(ilst, i3, 402));
            lv_bpp    := IntToStr(QP.GetImageListItemIntProperty(ilst, i3, 403)); // BitsPerPixel
            lv_cst    := IntToStr(QP.GetImageListItemIntProperty(ilst, i3, 404)); // ColorSpaceType
            lv_imguid := IntToStr(QP.GetImageListItemIntProperty(ilst, i3, 406)); // Constant Image ID
            if ( Trim(lv_imguid) = '' ) or
               ( Trim(lv_imguid) = '0') then
               lv_imguid := IntToStr(QP.GetImageListItemIntProperty(ilst, i3, 405)); // Image ID

            lv_imagefile := target + ExtractFileName(System.Copy(ws,1,Length(ws)-4)) + '-' + IntToStr(i2) + '-' + IntToStr(i3) + '-' + lv_type;
            QP.SaveImageListItemDataToFile(ilst, i3, 0, lv_imagefile);

]]> Wed, 06 Nov 2019 19:21:59 +0000 http://www.quickpdf.org/forum/delete-blank-pdfpages_topic3759_post15016.html#15016 <![CDATA[delete blank pdf-pages : Have you looked at GetPageImageList,...]]> http://www.quickpdf.org/forum/delete-blank-pdfpages_topic3759_post15015.html#15015 Author: tfrost
Subject: 3759
Posted: 06 Nov 19 at 12:07PM

Have you looked at GetPageImageList, and then if there is one, GetImageListCount? And then get the image ID using GetImageListItemProperty? I have not used these functions myself, but they should allow you to work out which page(s) the images you counted with ImageCount are on. The internal structure of a PDF is not designed to be easy to walk around in!
]]> Wed, 06 Nov 2019 12:07:15 +0000 http://www.quickpdf.org/forum/delete-blank-pdfpages_topic3759_post15015.html#15015 <![CDATA[delete blank pdf-pages : hey guys,so far almost everything...]]> http://www.quickpdf.org/forum/delete-blank-pdfpages_topic3759_post15014.html#15014 Author: hjerteblod
Subject: 3759
Posted: 06 Nov 19 at 7:58AM

hey guys,
so far almost everything works as wished. But one problem is left. I get the number of images (QP.ImageCount()) and the text (QP.GetPageText(0) to filter the blank pages. Now I have the problem that blank pages are not recognized as blank, instead 2 pictures are recognized.

If my text is not searchable (non-OCR), it will be recognized as an image. Therefore, I can not distinguish whether it is currently a blank page on which non-existing images are detected, or if it is not searchable text that should not be deleted.

I find this problem unsolvable, but I still wanted to try to present it here.

]]> Wed, 06 Nov 2019 07:58:47 +0000 http://www.quickpdf.org/forum/delete-blank-pdfpages_topic3759_post15014.html#15014 <![CDATA[delete blank pdf-pages : yes you are right, I missed the...]]> http://www.quickpdf.org/forum/delete-blank-pdfpages_topic3759_post15013.html#15013 Author: hjerteblod
Subject: 3759
Posted: 05 Nov 19 at 1:06PM

yes you are right, I missed the savetofile Confused
]]> Tue, 05 Nov 2019 13:06:00 +0000 http://www.quickpdf.org/forum/delete-blank-pdfpages_topic3759_post15013.html#15013 <![CDATA[delete blank pdf-pages : I assume that what is shown above...]]> http://www.quickpdf.org/forum/delete-blank-pdfpages_topic3759_post15012.html#15012 Author: tfrost
Subject: 3759
Posted: 05 Nov 19 at 12:55PM

I assume that what is shown above is just an outline of your real code, omitting all the checks you are doing and error handling. Does the list above also omit a QP.SaveToFile which is in your real code, or is that omission the cause of the pages appearing not to be deleted?
]]> Tue, 05 Nov 2019 12:55:56 +0000 http://www.quickpdf.org/forum/delete-blank-pdfpages_topic3759_post15012.html#15012 <![CDATA[delete blank pdf-pages : So far, everything works, as I...]]> http://www.quickpdf.org/forum/delete-blank-pdfpages_topic3759_post15011.html#15011 Author: hjerteblod
Subject: 3759
Posted: 05 Nov 19 at 9:40AM

So far, everything works, as I wish. However, it does not delete pages when I write the code for it. And there is no error message.


        Dim openFileDialog1 As New OpenFileDialog()
        Dim result As String

        If openFileDialog1.ShowDialog = DialogResult.OK Then
            result = openFileDialog1.FileName

            QP.LoadFromFile(result, "")
            QP.HasFontResources()
            QP.GetPageImageList(0)
            QP.FindImages())
            QP.ImageCount())         
            QP.DeletePages(2, 1)

        End If


Can someone tell me if I miss something? I am very grateful for any hints
]]> Tue, 05 Nov 2019 09:40:51 +0000 http://www.quickpdf.org/forum/delete-blank-pdfpages_topic3759_post15011.html#15011 <![CDATA[delete blank pdf-pages : awesome, thank youI started with...]]> http://www.quickpdf.org/forum/delete-blank-pdfpages_topic3759_post15010.html#15010 Author: hjerteblod
Subject: 3759
Posted: 05 Nov 19 at 8:03AM

awesome, thank you
I started with

     If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            result = openFileDialog1.FileName
            QP.LoadFromFile(result, "")
            QP.GetPageText(0)
            MsgBox(QP.GetPageText(0))
        End If

this works, and now I will go on with your hints, thanks!!
]]> Tue, 05 Nov 2019 08:03:43 +0000 http://www.quickpdf.org/forum/delete-blank-pdfpages_topic3759_post15010.html#15010 <![CDATA[delete blank pdf-pages : This should be the first functions...]]> http://www.quickpdf.org/forum/delete-blank-pdfpages_topic3759_post15009.html#15009 Author: Ingo
Subject: 3759
Posted: 05 Nov 19 at 7:57AM

This should be the first functions to have an eye on regarding your issue:
HasFontResources, ImageCount, FindImages.
To extract images you'll find the functionality in this group:
https://www.debenu.com/docs/pdf_library_reference/ImageHandling.php
The functions beginning with GetImage... will feed your needs.
The extraction of text you know already...

]]> Tue, 05 Nov 2019 07:57:48 +0000 http://www.quickpdf.org/forum/delete-blank-pdfpages_topic3759_post15009.html#15009 <![CDATA[delete blank pdf-pages : The documents that are scanned...]]> http://www.quickpdf.org/forum/delete-blank-pdfpages_topic3759_post15008.html#15008 Author: hjerteblod
Subject: 3759
Posted: 05 Nov 19 at 7:21AM

The documents that are scanned contain text and logos of companies. So I have to exclude these. The scan with the lines, we have already installed elsewhere. I should now explicitly program this for PDF. So I understood you correctly, that I first have to check if there is text and then if there are pictures?

Thanks for the hints and the welcome.

greetings
hjerteblod]]> Tue, 05 Nov 2019 07:21:30 +0000 http://www.quickpdf.org/forum/delete-blank-pdfpages_topic3759_post15008.html#15008