Adobe公司将PDF格式文件的支持代码做成了ActiveX控件,省却了我们的大量工作。
首先,要找到这个控件,安装Acrobat Reader程序也就同时得到了这个控件。 这个控件位于它的 ActiveX 子目录下,名字可能因版本不同而稍有不同。如 3.0 版的名字叫 pdf42.ocx . 然后,使用 Delphi5 的 Component 菜单下的 Import ActiveX Control 功能将此 ActiveX 控件 install 入 Delphi5 中。 Delphi5 将生成一个包裹类 TPDF 在 PdfLib_TLB 单元中,下面是其属性、方法声明: TPdf = class(TOleControl) private FIntf: _DPdf; function GetControlInterface: _DPdf; protected procedure CreateControl; procedure InitControlData; override; public procedure Print; function LoadFile(const fileName: WideString): WordBool; procedure AboutBox; property ControlInterface: _DPdf read GetControlInterface; property DefaultInterface: _DPdf read GetControlInterface; published property TabStop; property Align; property DragCursor; property DragMode; property ParentShowHint; property PopupMenu; property ShowHint; property TabOrder; property Visible; property OnDragDrop; property OnDragOver; property OnEndDrag; property OnEnter; property OnExit; property OnStartDrag; property src: WideString index 1 read GetWideStringProp write SetWideStringProp stored False; end; 例如,使用下面的代码,只用一行就可以打开并显示一个PDF文件,这就是ActiveX给我们带来的好处。 procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then pdf1.src := OpenDialog1.FileName; 参考上面的属性、方法,我们可以将PDF的应用发挥得更加充分。
end;






