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

var
   PDF: TVPDF;
   Meta: TMetafile;

begin
  PDF:= TVPDF.Create(nil);
  try
    PDF.AutoLaunch := true;               // PDF file will be shown automatically
    PDF.FileName := '.\Metafile.pdf';     // Set PDF filename
    PDF.BeginDoc;                         // Create PDF file
    Meta:=TMetafile.Create;
    try
        Meta.LoadFromFile('..\Metafile.wmf');   // Load the metafile
        PDF.CurrentPage.ShowMetafile( Meta ); // Show the metafile at the current page
    finally
      Meta.Free;
    end;
    PDF.EndDoc;                                            // Close PDF file
  finally
      PDF.Free;
  end;
end.