Delphi ActiveX Requires Chilkat v11.7.0+

Exclude Rotated Margin Text from PDF Extraction

See more PDF Text Extraction Examples

Demonstrates the "rotatedText" filter. Text that is not aligned with the page, such as a vertical "CONFIDENTIAL" label in the margin, is included by default (after the upright text) and flagged in the quality report; "exclude" leaves it out. Delphi ActiveX

var
success: Integer;
pdf: TChilkatPdf;
json: TChilkatJsonObject;
jsonOut: TChilkatJsonObject;

begin
success := 0;

//  This example requires the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

//  The PDF used in this example is available at rotated_margin.pdf

pdf := TChilkatPdf.Create(Self);
success := pdf.LoadFile('qa_data/pdf/rotated_margin.pdf');
if (success = 0) then
  begin
    Memo1.Lines.Add(pdf.LastErrorText);
    Exit;
  end;

json := TChilkatJsonObject.Create(Self);
jsonOut := TChilkatJsonObject.Create(Self);

//  The page has a paragraph and, rotated 90 degrees along the left margin, "CONFIDENTIAL - DRAFT - NOT FOR DISTRIBUTION".
success := pdf.ExtractText('text',json.ControlInterface,jsonOut.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(pdf.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add('---- default (rotated text included) ----');
Memo1.Lines.Add(jsonOut.StringOf('text'));
Memo1.Lines.Add('issue: ' + jsonOut.StringOf('quality.pages[0].issues[0].code'));

json.UpdateString('rotatedText','exclude');
success := pdf.ExtractText('text',json.ControlInterface,jsonOut.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(pdf.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add('---- rotatedText: exclude ----');
Memo1.Lines.Add(jsonOut.StringOf('text'));

//  Sample output:

//  ---- default (rotated text included) ----
//  Restoration Budget Summary
//  
//  Spending for the season came in slightly under the approved budget, largely because the parapet work took less time than expected. The lens loan carries no fee, but the society is responsible for insurance and for the specialist cleaning.
//  
//  CONFIDENTIAL - DRAFT - NOT FOR DISTRIBUTION
//  issue: rotatedText
//  ---- rotatedText: exclude ----
//  Restoration Budget Summary
//  
//  Spending for the season came in slightly under the approved budget, largely because the parapet work took less time than expected. The lens loan carries no fee, but the society is responsible for insurance and for the specialist cleaning.