http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sat, 04 Apr 2026 20:10:21 +0000 Sun, 05 Feb 2006 02:24:51 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=305 http://www.quickpdf.org/forum/forum_images/QPDF_Forum_Title.png http://www.quickpdf.org/forum/ http://www.quickpdf.org/forum/deleting-indirect-objects_topic305_post1302.html#1302 Author: cycle
Subject: 305
Posted: 05 Feb 06 at 2:24AM

It probably won't work for them. It looks like COM and DLL wrappers only expose the top level interface, TiSedQuickPdf class, not the underlying classes, and pdf objects (Cos layer in Adobe terms) are pretty low level.]]> Sun, 05 Feb 2006 02:24:51 +0000 http://www.quickpdf.org/forum/deleting-indirect-objects_topic305_post1302.html#1302 http://www.quickpdf.org/forum/deleting-indirect-objects_topic305_post1301.html#1301 Author: swb1
Subject: 305
Posted: 04 Feb 06 at 5:31PM

This looks like it will work well for Delphi programmers but what about ActiveX and DLL users?

Edited by swb1]]> Sat, 04 Feb 2006 17:31:10 +0000 http://www.quickpdf.org/forum/deleting-indirect-objects_topic305_post1301.html#1301 http://www.quickpdf.org/forum/deleting-indirect-objects_topic305_post1296.html#1296 Author: cycle
Subject: 305
Posted: 04 Feb 06 at 6:55AM

Here is an observation I made while using this library.

Suppose you are editing a pdf file and you want to delete an indirect object that is referenced from a dictionary.
The relevant portions of the file can look like this

1000 0 obj << /StreamKey 2000 0 R /OtherKey whatever>>
endobj

...

2000 0 obj << /Length 34141 >> stream
... stream contents ...
endstream
endobj

How do you delete this stream?

Maybe

doc:TPDFDocument;
dict:TPDFDictionary;
obj:TPDFObject;
ref:TPdfIndRef;

obj:=dict.FindValueByKeyName('StreamKey', true);
obj.Purge;

No, it produces an error during saving. Similarly, the following code will not work either.

obj:=dict.FindValueByKeyName('StreamKey', false);
if obj is TPDFIndRef then begin
ref:=TPDFIndRef(obj);
ref.Obj.Purge;
ref.Purge
end;

Looking closer, one can find procedure TPDFDocument.DeleteObj(ObjNum, GenNum) that does exactly what needed. But alas, it is not public.

Fortunately, there is a way around that does not require modifying the library source. The address of this procedure is assigned to a published property of PageTree field. The final code is

ref:=TPDFIndRef(obj);
doc.PageTree.OnDeleteObj(ref.ObjNum, ref.GenNum);
and
dict.PurgeKey('StreamKey');

It works, but it is not exactly trivial.
]]> Sat, 04 Feb 2006 06:55:30 +0000 http://www.quickpdf.org/forum/deleting-indirect-objects_topic305_post1296.html#1296