目的,只要能通过控件显示PDF内容,可以查看即可。不需要编辑,有这样的控件吗,最好能支持流操作。
解决方案 »
- 用tstringlist ,遇到空指针问题
- delphi2005或者2006能不能和delphi6.0装在一台机器?
- installshield for borland制作中文安装程序探讨
- delphi如何調用VC的靜態鏈接庫?
- 请问我要实现grid内的TreeView风格,该用什么控件呀,谢谢,急用
- 如何处理读一个文件的一行时ReadLn时,这行超长而导致读不下去的问题?????
- 如何HOOK系统所有的键盘鼠标事件
- ado初学:用参数从clientdataset取得的数据怎么不能applyupdates???
- 请教teeChart4.04的显示量程及数据存贮问题
- 怎样保持主线程与分线程同步
- 如何在DBGRID中修改数据时只允许用户修改部分列
- 急啊,IdFTPServer总是出现内存错误
AcroPDF1.src := 'F:\doc\Studio\MM620_Manual_Chinese.pdf';
就可以浏览了。
if opendialog1.execute then
pdf1.src := opendialog1.filename;
自动调用adobe reader软件了,打不开。用AcroPdf.dll也打不开,
用AcroPDF1.src := 'D:\a.pdf';提示不是以%PDF-开头的。有没有好用的控件啊?????????
自己引入到DELPHI中就可以
我肯定。
首先,要找到这个控件,安装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的应用发挥得更加充分。
不行啊,我怎么都没用成功过,用adobe acrobat6下的pdf.ocx,加到工程后在activex page下有个控件,放到工程中后,用代码:
pdf1.src := 'd:\a.pdf';
或者
if OpenDialog1.Execute then
pdf1.src := OpenDialog1.FileName;
都不成功啊,提示could not find adobe acrobat,谁做过能否发个例子过来,我怎么试都没成功过啊,郁闷。
看看这个,可以在delphi里面用