Get and Set Text

[jeffp]

A couple of remaining procedures that I am converting over from the old Pro SDK to the new Editor SDK are getting and setting text on the PDF page. I mainly do this in the OCR context. The OCR engines we use give me word information including coordinates. I then was placing the words on the page using the following calls in the old SDK.

PXC_SetTextOptions
PXC_TextOutA

Can you point me in the right direction or give me a quick example with the Editor SDK. I use Delphi and I need to do this with the Core Layer probably with methods from the IPXC_Page object.

Second, I need to reverse this. I need to be able to recreate these word coordinates by getting the text from the page. Looks like something like IPXC_Page.GetText but I can't quite make out from the help how to set this up. I'm looking to get a word at time with all its position coordinates.

Again, I need to do all this with calls only to the Core Layer.

FYI, I'm putting all this and other Delphi examples into a comprehensive Delphi demo project (expanding on the current one you sent me) that I'd be happy to share and make available for anyone else using Delphi. I'll be posting it once I thoroughly test all my procedures and hammer out some remaining issues.

Thanks again.

--Jeff

[Sasha - Tracker Dev Team]

Hello Jeff,

Here's our small sample on the Core SDK. Check this link:
https://github.com/tracker-software/PDFCoreSDK-WPF

Cheers,
Alex

[jeffp]

Ok. I downloaded you C# example and tried to convert it the best I could to Delphi code.

Here is my simple example that still doesn't work. This will ultimately be used to place "hidden" text behind an OCR'd image, but right now I just want to see the text on the PDF page once I place it and save the PDF file. The example below tries to write out the work "TESTING" to roughly the middle of the first page of the PDF.

What am I missing?

Code: Select all

procedure TPDFCoreLayer.DrawText(ADoc: IPXC_Document);
var
  CC: IPXC_ContentCreator;
  AFont: IPXC_Font;
  AText: String;
  AFontSize, x, y: Double;
  APage: IPXC_Page;
begin
  if Assigned(ADoc) then
  begin
    AFontSize := 15;
    AText := 'TESTING';
    AFont := ADoc.CreateNewFont('Arial', 0, 400);

    ADoc.Pages.Get_Item(0, APage); //Test Page is 612 x 792 points

    //Start roughly in the middle of the page
    x := 300;
    y := 300;

    CC := ADoc.CreateContentCreator;
    CC.SetTextRenderMode(TRM_Fill); //TRM_None;
    CC.SetFont(AFont);
    CC.SetFontSize(AFontSize);
    CC.SetStrokeColorRGB(RGB(0, 0, 0)); //Black

    CC.ShowTextLine(x, y, PChar(AText), -1, 0);
  end;
end;

Thanks again. And I'll be adding this one too to my Delphi demo once I get it working.

--Jeff

[Sasha - Tracker Dev Team]

Hello Jeff,

Me and my colleague (who translates the C# code into the Delphi code) will look at it on Monday and will figure out what's the problem.

Cheers,
Alex

[Sasha - Tracker Dev Team]

Hello Jeff,

Here's the updated sample with the working method that you've described:
https://github.com/tracker-software/PDF ... #L155-L156

Cheers,
Alex

[jeffp]

That did it. Thanks.

[Sasha - Tracker Dev Team]

Great that worked for you Jeff, we'll mark this topic as closed.

Cheers,
Alex