 |
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;
|
|
 |
|