http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sat, 07 Mar 2026 08:39:45 +0000 Wed, 16 Apr 2025 22:43:22 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=4048 http://www.quickpdf.org/forum/forum_images/QPDF_Forum_Title.png http://www.quickpdf.org/forum/ http://www.quickpdf.org/forum/bug-fix-if-you-have-1811-source-code_topic4048_post16392.html#16392 Author: swb1
Subject: 4048
Posted: 16 Apr 25 at 10:43PM

unit DebenuPDFLibraryFontRasterizer has a bug that can cause an infinite loop when rendering some PDFs
I DO NOT KNOW IF THIS IS THE EXTACT RIGHT THING TO DO!!! However, it fixed a problem I was having with a very small number of documents, and I know it does nothing that would break the vast majority that were already working. 

I have solved it in my library by adding an else/break condition in the function GetW2DictCount:

  function GetW2DictCount: Integer;

  begin

    Result := 0;

    Obj := Font.FindValueByKeyName('W2', True);

    if (Obj is TPDFArray) and (TPDFArray(Obj).Count > 1) then

    begin

      WArray := TPDFArray(Obj);

      WX := 0;

      while WX < (WArray.Count - 1) do

      begin

        if WArray.Item[WX] is TPDFNumeric then

        begin

          if WArray.Item[WX + 1] is TPDFNumeric then

          begin

            WX := WX + 5;

            Inc(Result);

          end

          else if WArray.Item[WX + 1] is TPDFArray then

          begin

            Inc(Result, TPDFArray(WArray.Item[WX + 1]).Count);

            Inc(WX, 2);

          end

          // -------------------

          // swb 4-16-2025 if WX is never inc'd it will loop infinitely.

          else

          begin

            break;

          end;

          // -------------------

        end

        else if WArray.Item[WX + 1] is TPDFArray then

        begin

          Inc(Result, TPDFArray(WArray.Item[WX + 1]).Count div 3);

          Inc(WX, 2);

        end;

      end;

    end;

  end;

]]> Wed, 16 Apr 2025 22:43:22 +0000 http://www.quickpdf.org/forum/bug-fix-if-you-have-1811-source-code_topic4048_post16392.html#16392