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

procedure TForm1.StampPDFClick(Sender: TObject);
var
  DC : Variant;
  RVal : Integer;
begin

  try
    DC := CreateOleObject('Neevia.docConverter');

    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('c:\in.pdf', 'c:\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