Delphi DLL Requires Chilkat v11.7.0+

Extract a PDF Table with Merged Cells

See more PDF Text Extraction Examples

Demonstrates how merged cells are reported by the "tables" operation: a header cell that spans several columns has colSpan greater than 1, and a row label that spans several rows has rowSpan greater than 1. Also shows the minRows and minColumns options. Delphi DLL

var
success: Boolean;
pdf: HCkPdf;
json: HCkJsonObject;
jsonOut: HCkJsonObject;
rowSpan: Integer;
colSpan: Integer;
j: Integer;
count_j: Integer;

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 spans_table.pdf

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

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

//  Grids smaller than minRows x minColumns are not reported as tables.  The defaults are 2 and 2.
//  Setting them higher skips small boxes that are not really tables.
CkJsonObject_UpdateInt(json,'minRows',3);
CkJsonObject_UpdateInt(json,'minColumns',3);

success := CkPdf_ExtractText(pdf,'tables',json,jsonOut);
if (success = False) then
  begin
    Memo1.Lines.Add(CkPdf__lastErrorText(pdf));
    Exit;
  end;

Memo1.Lines.Add('Tables found: ' + IntToStr(CkJsonObject_IntOf(jsonOut,'count')));
Memo1.Lines.Add(IntToStr(CkJsonObject_IntOf(jsonOut,'tables[0].rows')) + ' rows x ' + IntToStr(CkJsonObject_IntOf(jsonOut,'tables[0].columns')) + ' columns');

//  A merged cell is reported once, at its top-left position, with its spans.
//  The positions it covers have no cell of their own.

j := 0;
count_j := CkJsonObject_SizeOfArray(jsonOut,'tables[0].cells');
while j < count_j do
  begin
    CkJsonObject_putJ(jsonOut,j);
    rowSpan := CkJsonObject_IntOf(jsonOut,'tables[0].cells[j].rowSpan');
    colSpan := CkJsonObject_IntOf(jsonOut,'tables[0].cells[j].colSpan');
    if ((rowSpan > 1) or (colSpan > 1)) then
      begin
        Memo1.Lines.Add('row ' + IntToStr(CkJsonObject_IntOf(jsonOut,'tables[0].cells[j].row')) + ', col ' + IntToStr(CkJsonObject_IntOf(jsonOut,'tables[0].cells[j].col'))
             + ': "' + CkJsonObject__stringOf(jsonOut,'tables[0].cells[j].text') + '" spans ' + IntToStr(rowSpan) + ' row(s) and ' + IntToStr(colSpan) + ' column(s)');
      end;
    j := j + 1;
  end;

//  Sample output:

//  Tables found: 1
//  6 rows x 6 columns
//  row 0, col 0: "Area" spans 2 row(s) and 1 column(s)
//  row 0, col 1: "City" spans 2 row(s) and 1 column(s)
//  row 0, col 2: "First Half" spans 1 row(s) and 2 column(s)
//  row 0, col 4: "Second Half" spans 1 row(s) and 2 column(s)
//  row 2, col 0: "East" spans 2 row(s) and 1 column(s)
//  row 4, col 0: "West" spans 2 row(s) and 1 column(s)

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