main.pas

来自「生成PDF文档的控件」· PAS 代码 · 共 60 行

{*******************************************************}
{                                                       }
{       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                           }
{                                                       }
{*******************************************************}

unit Main;

interface
                         
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, VPDFDoc;

type
  TForm1 = class(TForm)
    PDF: TVPDF;
    Button1: TButton;
    FileNameEdit: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   Meta: TMetafile;

begin
    PDF.AutoLaunch := true;               // PDF file will be shown automatically
    PDF.FileName := FileNameEdit.Text;    // 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
end;

end.