tifftopdf.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 TiffToPDF;
{$APPTYPE CONSOLE}
uses
  SysUtils, Graphics, Classes, VPDFDoc;

var
   VPDF: TVPDF;

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

    VPDF.AddTiffFromFile( 'Fax.tif', icJpeg, tptResizeImage ); //Add multipage tiff file

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