:: Home :: Products :: Technical Support :: About Us :: Contact Us
PDF Printer Driver, Convert to PDF, Print to PDF
Example 5: Stamp a PDF file with multiple stamps (Delphi)  

uses ComObj;
   .....

procedure TForm1.Button1Click(Sender: TObject);
var
  NVstamp : Variant;
  indx : Integer;
  retVal : Integer;
begin
  NVstamp := CreateOLEObject('PDFstamp.Neevia');

  indx := NVstamp.CreateNewStamp;
  NVstamp.Stamps[indx].StampType := 0;
  NVStamp.Stamps[indx].Name := 'Stamp1';
  NVStamp.Stamps[indx].Text := 'WATERMARK';
  NVStamp.Stamps[indx].FontName := 'Arial';
  NVStamp.Stamps[indx].TextRenderingMode := 0;
  NVStamp.Stamps[indx].TextColor := '#FF0000';
  NVStamp.Stamps[indx].X := '0';
  NVStamp.Stamps[indx].Y := '0';
  NVStamp.Stamps[indx].PlaceAs := 1;

  indx := NVstamp.CreateNewStamp;
  NVstamp.Stamps[indx].StampType := 1;
  NVStamp.Stamps[indx].Name := 'Stamp2';
  NVStamp.Stamps[indx].Text := 'LINE1%n%LINE2%n%LINE3';
  NVStamp.Stamps[indx].FontName := 'Arial';
  NVStamp.Stamps[indx].TextRenderingMode := 0;
  NVStamp.Stamps[indx].TextColor := '#FF0000';
  NVStamp.Stamps[indx].X := 'right';
  NVStamp.Stamps[indx].Y := '0';
  NVstamp.Stamps[indx].Width := '200';
  NVstamp.Stamps[indx].Height := '200';
  NVStamp.Stamps[indx].PlaceAs := 1;

  indx := NVstamp.CreateNewStamp;
  NVstamp.Stamps[indx].StampType := 2;
  NVStamp.Stamps[indx].Name := 'Stamp3';
  NVStamp.Stamps[indx].ImageFile := 'c:\stamp.jpg';
  NVStamp.Stamps[indx].X := '0';
  NVStamp.Stamps[indx].Y := 'top';
  NVStamp.Stamps[indx].PlaceAs := 1;

  indx := NVstamp.CreateNewStamp;
  NVstamp.Stamps[indx].StampType := 3;
  NVStamp.Stamps[indx].Name := 'Stamp4';
  NVStamp.Stamps[indx].PDFOverlayFile := 'c:\overlay.pdf';
  NVStamp.Stamps[indx].X := 'right';
  NVStamp.Stamps[indx].Y := 'top';
  NVStamp.Stamps[indx].PlaceAs := 1;

  retVal := NVStamp.StampPDF('c:\blank.pdf', 'c:\out.pdf');

  if retVal <> 0 then
    Application.MessageBox(PChar('Error code=' + IntToStr(retVal)),'',0)
  else
    Application.MessageBox('Done','',0);

end;

Developing a solution that enables endusers to compress their PDF files is indeed an easy task with Neevia PDFcompress. Thank you!

Andrew Holden

If you have any comments or suggestions about our web site, please feel free to email them to

Copyright © 2017 neeviaPDF.com Home | Products | Support | About Us | Contact Us