Replacing Text in multipage document

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

I am hoping someone can tell me what I am missing? 
I need to create two large multipage documents that take several minutes to produce.  The documents are identical except for a couple of pieces of text.  To speed the whole system up, I am trying to create the document with a placeholder for my text, then replace it with he correct text for each file.

ie 
after I have created the document:

quickpdf.CombineContentStreams;

workstring := quickpdf.savetostring;

Newstring := stringreplace(workstring,’@placeholder@’,’new
data’,[rfrepalceall]);

i := Quickpdf.loadfromstring(newstring,'');

if = 1 then

begin

QuickPDf.CompressContent;

QuickPDf.SaveToFile(filename1);

End;

Newstring :=
stringreplace(workstring,’@placeholder@’,’alternate data’,[rfrepalceall]);

i := Quickpdf.loadfromstring(newstring,'');

if = 1 then

begin

QuickPDf.CompressContent;

QuickPDf.SaveToFile(Filename2);

End;
The saved files have the correct number of pages, but no content (font description,etc is there).  
Is there something else I need to do to get this to work?
I tried looping though the pages and using the page routines (replacetag or getpagecontenttostring), but that only works for the first document.

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
AusMike Members Profile Find Members Posts Beginner Joined: 17 Apr 12 Status: Offline Points: 1	Post Options Post Reply Quote AusMike Report Post Thanks(0) Quote Reply Topic: Replacing Text in multipage document Posted: 17 Apr 12 at 1:47AM
	I am hoping someone can tell me what I am missing? I need to create two large multipage documents that take several minutes to produce. The documents are identical except for a couple of pieces of text. To speed the whole system up, I am trying to create the document with a placeholder for my text, then replace it with he correct text for each file. ie after I have created the document: quickpdf.CombineContentStreams; workstring := quickpdf.savetostring; Newstring := stringreplace(workstring,’@placeholder@’,’new data’,[rfrepalceall]); i := Quickpdf.loadfromstring(newstring,''); if = 1 then begin QuickPDf.CompressContent; QuickPDf.SaveToFile(filename1); End; Newstring := stringreplace(workstring,’@placeholder@’,’alternate data’,[rfrepalceall]); i := Quickpdf.loadfromstring(newstring,''); if = 1 then begin QuickPDf.CompressContent; QuickPDf.SaveToFile(Filename2); End; The saved files have the correct number of pages, but no content (font description,etc is there). Is there something else I need to do to get this to work? I tried looping though the pages and using the page routines (replacetag or getpagecontenttostring), but that only works for the first document.

AndrewC Members Profile Find Members Posts Moderator Group Joined: 08 Dec 10 Location: Geelong, Aust Status: Offline Points: 841	Post Options Post Reply Quote AndrewC Report Post Thanks(0) Quote Reply Posted: 17 Apr 12 at 1:48PM
	You probably need to make sure the strings you are replacing are the same length. Another option is to create the initial document with out the text place holders and then use DrawText later if you know where the text should be drawn.