How Make ReplaceTag?

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

   Hello.

I have another pdf file. I want to change its content. 
Sample code how I get the text:

var
i,j:integer;
str:string;
begin

j:= PDFLibrary.DAOpenFile('D:\32a0g.pdf','');
i:= PDFLibrary.DAExtractPageTextBlocks(j,PDFLibrary.DAFindPage(j,1),3);
str:=  PDFLibrary.DAGetTextBlockText(i,2);
memo1.Text:= str;

end;

//************ RESULT STR = TEST **********//

how do i change the content of "PDFLibrary.DAGetTextBlockText (i, 2);" on "TSET" 

ReplaceTag('TEST','TSET'); - does not work :(

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
muljt Members Profile Find Members Posts Beginner Joined: 11 Dec 21 Location: State Status: Offline Points: 4	Post Options Post Reply Quote muljt Report Post Thanks(0) Quote Reply Topic: How Make ReplaceTag? Posted: 11 Dec 21 at 7:37AM
	Hello. I have another pdf file. I want to change its content. Sample code how I get the text: var i,j:integer; str:string; begin j:= PDFLibrary.DAOpenFile('D:\32a0g.pdf',''); i:= PDFLibrary.DAExtractPageTextBlocks(j,PDFLibrary.DAFindPage(j,1),3); str:= PDFLibrary.DAGetTextBlockText(i,2); memo1.Text:= str; end; //********** RESULT STR = TEST ******// how do i change the content of "PDFLibrary.DAGetTextBlockText (i, 2);" on "TSET"** ReplaceTag('TEST','TSET'); - does not work :(

Ingo Members Profile Find Members Posts Moderator Group Joined: 29 Oct 05 Status: Offline Points: 3527	Post Options Post Reply Quote Ingo Report Post Thanks(0) Quote Reply Posted: 13 Dec 21 at 8:11PM
	Hi Muljtik, there are still probs while subsetted fonts are used. Here's a sample how to use the function: https://www.debenu.com/kb/replace-text-pdf/ ... DPL.CombineContentStreams(); string content = DPL.GetContentStreamToString(); DPL.SetPageContentFromString(content.Replace("Moby", "Mary")); Cheers and welcome here, Ingo
	Cheers, Ingo

muljt Members Profile Find Members Posts Beginner Joined: 11 Dec 21 Location: State Status: Offline Points: 4	Post Options Post Reply Quote muljt Report Post Thanks(0) Quote Reply Posted: 14 Dec 21 at 6:40AM
	Hi Ingo, 32a0g.pdf - this file not create from PDFLibrary str := PDFLibrary.GetContentStreamToString(); str Result : ...... ...... -96.965 -27.5 Td <0049006E0020007400...6E0064> Tj 116.281 -13.75 Td ..... ..... StringReplace - don't finds my text (Delphi code) Regards.

Ingo Members Profile Find Members Posts Moderator Group Joined: 29 Oct 05 Status: Offline Points: 3527	Post Options Post Reply Quote Ingo Report Post Thanks(0) Quote Reply Posted: 14 Dec 21 at 7:35PM
	did you do the decryption first?
	Cheers, Ingo

muljt Members Profile Find Members Posts Beginner Joined: 11 Dec 21 Location: State Status: Offline Points: 4	Post Options Post Reply Quote muljt Report Post Thanks(0) Quote Reply Posted: 15 Dec 21 at 5:16PM
	PDFLibrary.LoadFromFile('D:\a0g1.pdf',''); i:=PDFLibrary.Decrypt; str:= inttostr(i); // PDFLibrary.CombineContentStreams(); // str:= PDFLibrary.GetContentStreamToString(); memo1.Text:= str; //****************************// Function Decrypt returns code 0....

Ingo Members Profile Find Members Posts Moderator Group Joined: 29 Oct 05 Status: Offline Points: 3527	Post Options Post Reply Quote Ingo Report Post Thanks(0) Quote Reply Posted: 16 Dec 21 at 8:44PM
	0 could mean that the pdf isn't encrypted. You should try a... If PDFLibrary.EncryptionStatus > 0 Then PDFLibrary.Decrypt; ...first.
	Cheers, Ingo