您的位置:资讯频道 > 技术文档 > CLX/VCL开发

Delphi下利用ActiveX控件读取PDF文件

来源:   作者:cool 转自--LittleWind   时间:2007-03-06  点击:2129 次

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;


end;

参考上面的属性、方法,我们可以将PDF的应用发挥得更加充分。

相关文章:

    暂无相关新闻。