imagemask.dpr

生成PDF文档的控件

{*******************************************************}
{                                                       }
{       This unit is part of the VISPDF VCL library.    }
{       Written by R.Husske - ALL RIGHTS RESERVED.      }
{                                                       }
{       Copyright (C) 2000-2008, www.vispdf.com         }
{                                                       }
{       e-mail: [e-mail]                      }
{       http://www.vispdf.com                           }
{                                                       }
{*******************************************************}

program ImageMask;
{$APPTYPE CONSOLE}
uses
  SysUtils, Graphics, Classes, VPDFDoc;

var
   VPDF: TVPDF;
   MaskIndex: Integer;
   ImageIndex: Integer;

//   Image masking available in Acrobat 6 and higher !!!

begin
  VPDF:= TVPDF.Create(nil);
  try
    VPDF.AutoLaunch := true;                  // PDF file will be shown automatically
    VPDF.FileName := '.\MaskImage.pdf';     // Set PDF filename
    VPDF.Compression := cmFlateDecode;        // Set flate compression
    VPDF.BeginDoc;                                          // Create PDF file

    MaskIndex := VPDF.AddImage( '.\Mask.bmp', icFlate, True );   // Add image as mask
    ImageIndex := VPDF.AddImage( '.\Image.jpg', icFlate, False, MaskIndex );  // Add image as masked by mask MaskIndex

    VPDF.CurrentPage.ShowImage( ImageIndex, 10, 10, 390, 300, 0 ); // Show image with sizes 390 x 300

    VPDF.EndDoc;                                       // Close PDF file
  finally
      VPDF.Free;
  end;
end.