Lazarus Pascal Requires Chilkat v11.7.0+

Watermark Only Some of a PDF's Pages

See more PDF Watermark Examples

Demonstrates choosing the pages to stamp. "pages" takes all (the default), first, last, odd, even, or a list of 1-based pages and ranges such as 1,3,5-9,12- where a trailing dash means "to the end". "excludePages" takes the same syntax and is applied afterwards, which is how you say "every page except the cover". The result reports the pages the watermark actually landed on. 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.Pdf,
  Chilkat.JsonObject;

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

procedure RunDemo;
var
  success: Boolean;
  pdf: TPdf;
  json: TJsonObject;
  jsonOut: TJsonObject;
  pdf2: TPdf;
  json2: TJsonObject;

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

  pdf := TPdf.Create;
  success := pdf.LoadFile('qa_data/pdf/four_pages.pdf');
  if (success = False) then
    begin
      WriteLn(pdf.LastErrorText);
      Exit;
    end;
  WriteLn('pages in the document: ' + pdf.NumPages);

  json := TJsonObject.Create;
  jsonOut := TJsonObject.Create;
  json.UpdateString('type','text');
  json.UpdateString('text','INTERNAL');
  json.UpdateString('id','internal');

  //  Every page except the first.
  json.UpdateString('pages','all');
  json.UpdateString('excludePages','1');
  success := pdf.Watermark('add',json,jsonOut);
  if (success = False) then
    begin
      WriteLn(pdf.LastErrorText);
      Exit;
    end;
  WriteLn('every page but the cover: ' + jsonOut.StringOf('pages'));

  //  A list of pages and ranges, on a second copy of the document.
  pdf2 := TPdf.Create;
  success := pdf2.LoadFile('qa_data/pdf/four_pages.pdf');
  if (success = False) then
    begin
      WriteLn(pdf2.LastErrorText);
      Exit;
    end;
  json2 := TJsonObject.Create;
  json2.UpdateString('type','text');
  json2.UpdateString('text','APPENDIX');
  json2.UpdateString('id','appendix');
  json2.UpdateString('pages','2,4-');
  success := pdf2.Watermark('add',json2,jsonOut);
  if (success = False) then
    begin
      WriteLn(pdf2.LastErrorText);
      Exit;
    end;
  WriteLn('page 2 and 4 onwards: ' + jsonOut.StringOf('pages'));

  success := pdf.WriteFile('qa_output/four_pages_internal.pdf');
  if (success = False) then
    begin
      WriteLn(pdf.LastErrorText);
      Exit;
    end;

  //  Sample output:

  //  pages in the document: 4
  //  every page but the cover: 2-4
  //  page 2 and 4 onwards: 2,4


  pdf.Free;
  json.Free;
  jsonOut.Free;
  pdf2.Free;
  json2.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.