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

原创|其它|编辑:郝浩|2007-03-06 11:04:26.000|阅读 11707 次

概述:Adobe公司将PDF格式文件的支持代码做成了ActiveX控件,省却了我们的大量工作。 首先,要找到这个控件,安装Acrobat Reader程序也就同时得到了这个控件。 这个控件位于它的 ActiveX 子目录下,名字可能因版本不同而稍有不同。如 3.0 版的名字叫 pdf42.ocx . 然后,使用 Delphi5 的 Component 菜单下的 Import ActiveX Control 功能将此 ActiveX 控件 install 入 Delphi5 中。 Delphi5 将生成一个包裹类 TPDF 在 PdfLib_TLB 单元中,下面是其属性、方法声明: T

# 界面/图表报表/文档/IDE等千款热门软控件火热销售中 >>

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的应用发挥得更加充分。


标签:

本站文章除注明转载外,均为本站原创或翻译。欢迎任何形式的转载,但请务必注明出处、不得修改原文相关链接,如果存在内容上的异议请邮件反馈至chenjj@evget.com


为你推荐

  • 推荐视频
  • 推荐活动
  • 推荐产品
  • 推荐文章
  • 慧都慧问
扫码咨询


添加微信 立即咨询

电话咨询

客服热线
023-68661681

TOP