Delphi DLL Requires Chilkat v11.7.0+

Expand Ligatures and Normalize Unicode in Extracted PDF Text

See more PDF Text Extraction Examples

Demonstrates the "expandLigatures" and "normalize" clean-up options. Typeset PDFs use single glyphs for "fi" and "fl"; by default they are expanded to their letters. Unicode normalization is NFC by default; NFKC also folds compatibility characters such as circled digits, the trademark sign and vulgar fractions into plain characters, and "none" leaves the text as the PDF has it. Delphi DLL

var
success: Boolean;
pdf: HCkPdf;
json: HCkJsonObject;
jsonOut: HCkJsonObject;

begin
success := False;

//  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 ligatures.pdf

pdf := CkPdf_Create();
success := CkPdf_LoadFile(pdf,'qa_data/pdf/ligatures.pdf');
if (success = False) then
  begin
    Memo1.Lines.Add(CkPdf__lastErrorText(pdf));
    Exit;
  end;

json := CkJsonObject_Create();
jsonOut := CkJsonObject_Create();

//  The first line is set with the fi and fl ligature glyphs; the second has circled digits,
//  a trademark sign and a vulgar fraction.
success := CkPdf_ExtractText(pdf,'text',json,jsonOut);
if (success = False) then
  begin
    Memo1.Lines.Add(CkPdf__lastErrorText(pdf));
    Exit;
  end;
Memo1.Lines.Add('---- default (expandLigatures: true, normalize: NFC) ----');
Memo1.Lines.Add(CkJsonObject__stringOf(jsonOut,'text'));

//  Keep the ligature characters as they are in the PDF.
CkJsonObject_UpdateBool(json,'expandLigatures',False);
CkJsonObject_UpdateString(json,'normalize','none');
success := CkPdf_ExtractText(pdf,'text',json,jsonOut);
if (success = False) then
  begin
    Memo1.Lines.Add(CkPdf__lastErrorText(pdf));
    Exit;
  end;
Memo1.Lines.Add('---- expandLigatures: false, normalize: none ----');
Memo1.Lines.Add(CkJsonObject__stringOf(jsonOut,'text'));

//  NFKC folds the compatibility characters too (and expands ligatures on its own).
CkJsonObject_UpdateString(json,'normalize','NFKC');
success := CkPdf_ExtractText(pdf,'text',json,jsonOut);
if (success = False) then
  begin
    Memo1.Lines.Add(CkPdf__lastErrorText(pdf));
    Exit;
  end;
Memo1.Lines.Add('---- normalize: NFKC ----');
Memo1.Lines.Add(CkJsonObject__stringOf(jsonOut,'text'));

//  Sample output (shown here in ASCII: (fi) and (fl) stand for the single ligature characters, (1) and (2) for the circled digits,
//  (TM) for the trademark sign and 1/2 for the vulgar fraction; the NFKC output has plain "1", "2", "TM" and "1", fraction slash, "2"):

//  ---- default (expandLigatures: true, normalize: NFC) ----
//  Typeset Text
//  
//  The final flight of the season was officially confirmed on the fifth. Rooms (1) and (2) are reserved; the Harbor Cafe(TM) serves 1/2 portions.
//  ---- expandLigatures: false, normalize: none ----
//  Typeset Text
//  
//  The (fi)nal (fl)ight of the season was of(fi)cially con(fi)rmed on the (fi)fth. Rooms (1) and (2) are reserved; the Harbor Cafe(TM) serves 1/2 portions.
//  ---- normalize: NFKC ----
//  Typeset Text
//  
//  The final flight of the season was officially confirmed on the fifth. Rooms 1 and 2 are reserved; the Harbor CafeTM serves 1/2 portions.

CkPdf_Dispose(pdf);
CkJsonObject_Dispose(json);
CkJsonObject_Dispose(jsonOut);