Replacing Text in multipage document

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 Share Topic Printable Version Delicious Digg Facebook Furl Google Boomarks Google Buzz MySpace Newsvine reddit StumbleUpon Translate Twitter Windows Live Yahoo Bookmarks Topic Search Topic Options Post Reply Create New Topic
AusMike Members Profile Find Members Posts Beginner Joined: 17 Apr 12 Online Status: Offline Posts: 1	Post Options Post Reply Quote AusMike Report Post 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 Online Status: Offline Posts: 499	Post Options Post Reply Quote AndrewC Report Post 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.