Lazarus Pascal Requires Chilkat v11.7.0+

PDF to Markdown Options: Page Breaks, Images, Tables, Emphasis, Heading Levels

See more PDF Text Extraction Examples

Demonstrates the options of the "markdown" operation: pageBreaks (comment, rule or none), images (placeholder or none), tables (ruled or none), emphasis, and maxHeadingLevel. Lazarus Pascal

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.StringBuilder,
  Chilkat.Pdf,
  Chilkat.JsonObject;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  pdf: TPdf;
  json: TJsonObject;
  sbMarkdown: TStringBuilder;
  jsonOut: TJsonObject;

begin
  success := False;

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

  //  The two-page PDF used in this example is available at markdown_options.pdf

  pdf := TPdf.Create;
  success := pdf.LoadFile('qa_data/pdf/markdown_options.pdf');
  if (success = False) then
    begin
      WriteLn(pdf.LastErrorText);
      Exit;
    end;

  json := TJsonObject.Create;
  sbMarkdown := TStringBuilder.Create;
  jsonOut := TJsonObject.Create;

  //  First with the default options.
  success := pdf.ExtractTextSb('markdown',json,sbMarkdown,jsonOut);
  if (success = False) then
    begin
      WriteLn(pdf.LastErrorText);
      Exit;
    end;
  WriteLn('---- default options ----');
  WriteLn(sbMarkdown.GetAsString());

  //  Now change the options:

  //  pageBreaks: "comment" (the default) separates pages with <!-- page N -->,
  //  "rule" separates them with a horizontal rule (---), and "none" runs the pages together.
  json.UpdateString('pageBreaks','rule');

  //  images: "placeholder" (the default) marks where each image sits with ![image](page-1-image-1);
  //  "none" leaves images out.
  json.UpdateString('images','none');

  //  tables: "ruled" (the default) converts tables that have drawn cell borders into Markdown tables;
  //  "none" returns their cells as plain text.
  json.UpdateString('tables','none');

  //  emphasis: false leaves out the ** and * markers for bold and italic.
  json.UpdateBool('emphasis',False);

  //  maxHeadingLevel: inferred headings deeper than this level are folded into this level.
  //  The PDF has three heading levels; with maxHeadingLevel 2 the third level becomes ##.
  json.UpdateInt('maxHeadingLevel',2);

  sbMarkdown.Clear();
  success := pdf.ExtractTextSb('markdown',json,sbMarkdown,jsonOut);
  if (success = False) then
    begin
      WriteLn(pdf.LastErrorText);
      Exit;
    end;
  WriteLn('---- custom options ----');
  WriteLn(sbMarkdown.GetAsString());

  //  Sample output:

  //  ---- default options ----
  //  <!-- page 1 -->
  //  
  //  # Community Garden Handbook
  //  
  //  ## Plots
  //  
  //  ### Plot Sizes
  //  
  //  Plots come in two sizes. A **full plot** is twenty feet by ten feet; a **half plot** is ten feet square. New gardeners are *strongly encouraged* to start with a half plot.
  //  
  //  ![image](page-1-image-1)
  //  
  //  ### Plot Fees
  //  
  //  | Plot | Size | Annual Fee |
  //  | --- | --- | --- |
  //  | Full | 20 x 10 ft | $60 |
  //  | Half | 10 x 10 ft | $35 |
  //  
  //  <!-- page 2 -->
  //  
  //  ## Watering
  //  
  //  ### Schedule
  //  
  //  The shared tanks are filled on Monday and Thursday mornings. Please water by hand from the tanks rather than running a hose from the street tap, which is metered.
  //  
  //  ### Dry Spells
  //  
  //  During a declared drought the committee may limit watering to **two days a week**. Notices are posted on the shed door and sent by e-mail.
  //  
  //  ---- custom options ----
  //  # Community Garden Handbook
  //  
  //  ## Plots
  //  
  //  ## Plot Sizes
  //  
  //  Plots come in two sizes. A full plot is twenty feet by ten feet; a half plot is ten feet square. New gardeners are strongly encouraged to start with a half plot.
  //  
  //  ## Plot Fees
  //  
  //  Plot Size Annual Fee
  //  
  //  Full 20 x 10 ft $60
  //  
  //  Half 10 x 10 ft $35
  //  
  //  ---
  //  
  //  ## Watering
  //  
  //  ## Schedule
  //  
  //  The shared tanks are filled on Monday and Thursday mornings. Please water by hand from the tanks rather than running a hose from the street tap, which is metered.
  //  
  //  ## Dry Spells
  //  
  //  During a declared drought the committee may limit watering to two days a week. Notices are posted on the shed door and sent by e-mail.


  pdf.Free;
  json.Free;
  sbMarkdown.Free;
  jsonOut.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.