Reduce File Size Code

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   I am pulling out my hair trying to open the sample file and run
"reduce file size" function.
Can someone please post example code of how open file and use
reduce file size?

I have gone through all the searched threads and there is no complete
answer on how to implement this process, just a bunch of discussion
of what it won't do, etc.

Thanks in advance.

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Zudokan Members Profile Find Members Posts Beginner Joined: 10 Dec 20 Location: USA Status: Offline Points: 3	Post Options Post Reply Quote Zudokan Report Post Thanks(0) Quote Reply Topic: Reduce File Size Code Posted: 10 Dec 20 at 6:22PM
	I am pulling out my hair trying to open the sample file and run "reduce file size" function. Can someone please post example code of how open file and use reduce file size? I have gone through all the searched threads and there is no complete answer on how to implement this process, just a bunch of discussion of what it won't do, etc. Thanks in advance.

tfrost Members Profile Find Members Posts Senior Member Joined: 06 Sep 10 Location: UK Status: Offline Points: 437	Post Options Post Reply Quote tfrost Report Post Thanks(0) Quote Reply Posted: 10 Dec 20 at 7:38PM
	The best place to start for working samples is the QPDFLibraryDemo program. I see that it does not include a specific sample of the ReduceSize function, but the other scripts in the same Document Management group show how to open, process and save a document. All you need then is to adapt the sample script to include the ReduceSize function. Once you have it working in the scripting which you can see and edit in the demo application, you just need to translate the syntax into whatever programming language you use. And of course add the error handling which tends to be omitted from the sample scripts. I do not use this function myself, but maybe other users here could help if we knew the programming language you are using.

PeterAnderko Members Profile Find Members Posts Beginner Joined: 03 Dec 20 Location: Slovakia Status: Offline Points: 10	Post Options Post Reply Quote PeterAnderko Report Post Thanks(0) Quote Reply Posted: 11 Dec 20 at 7:12AM
	Hi Zudokan, I create example in Delphi: procedure TForm1.Button7Click(Sender: TObject); var OKw:Integer; begin PDFDok:=TDebenuPDFLibrary1613.Create; PDFDok.UnlockKey(':-'); PDFDok.LoadFromFile(ExtractFilePath(Application.exeName)+'Test.pdf',''); OKw:=PDFDok.ReduceSize(0); showmessage(inttostr(OKw)); PDFDok.SaveToFile(ExtractFilePath(Application.exeName)+'ReducedForm.PDF'); PDFDok.Free; end; Peter

Zudokan Members Profile Find Members Posts Beginner Joined: 10 Dec 20 Location: USA Status: Offline Points: 3	Post Options Post Reply Quote Zudokan Report Post Thanks(0) Quote Reply Posted: 11 Dec 20 at 4:54PM
	Thanks Everyone, problem solved.. appreciate the help.