space1 separator space2  

Code Samples - Neevia PDFstamp

Example 5: Stamp a PDF file with multiple stamps - Delphi Copy 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
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;