Neevia Technology Sites:   www.neevia.com  |  docuPub.com  |  www.neeviaPDF.com
:: Home :: Products :: Technical Support :: About Us :: Contact Us
Technical support > Neevia docCreator code samples
Example 18: Watermark an existing PDF file from Delphi  Print Example 


procedure stampPDF();
var
  DC   : Variant;
  RVal : Integer;
begin
  try
    DC := CreateOleObject('Neevia.docCreator');

    DC.setParameter('StampMessage', 'Page {p} of {P}');

    DC.setParameter('StampRotate', '0');
    DC.setParameter('StampX', '100');
    DC.setParameter('StampY', '100');
    DC.setParameter('StampFontName', 'Helvetica');
    DC.setParameter('StampFontSize', '14');
    DC.setParameter('StampFontColor', '$000000');

    //place the watermark as stamp (over the page content)
    DC.setParameter('Watermark', 'false');

    DC.setParameter('PlaceStampOnPages', '0');

    RVal := DC.stampPDF('d:\in.pdf', 'd:\out.pdf');

    if (RVal <> 0) then
       ShowMessage('There was an error!!! Code: '+IntToStr(RVal))
    else
       ShowMessage('Done !!!');
  finally
    DC := Unassigned;
  end;
end;



Copyright © 1999-2016 Neevia Technology. All Rights Reserved. Home | Products | Technical Support | About Us | Contact Us