Lazarus打开PDF文件的例子

bugxiong

1. unit pdfopenform;
3. {$mode objfpc}{$H+}
5. interface
7. uses
8.   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, EditBtn,
9.   StdCtrls;
11. type
13.   { TForm1 }
15.   TForm1 = class(TForm)
16.     TProcessButton: TButton;
17.     OpenURLButton: TButton;
18.     OpenDocumentButton: TButton;
19.     PDFChooser: TFileNameEdit;
20.     Label1: TLabel;
21.     procedure OpenDocumentButtonClick(Sender: TObject);
22.     procedure OpenURLButtonClick(Sender: TObject);
23.     procedure TProcessButtonClick(Sender: TObject);
24.   private
25.     { private declarations }
26.   public
27.     { public declarations }
28.   end;
30. var
31.   Form1: TForm1;
33. implementation
35. uses process {for TProcess}, lclintf {for OpenDocument, OpenURL};
37. {$R *.lfm}
39. { TForm1 }
41. procedure TForm1.TProcessButtonClick(Sender: TObject);
42. var
43.   AProcess: TProcess;
44. begin
45.   AProcess:=TProcess.Create(Nil);
46.   try
47.     // Executable & Parameters instead of CommandLine: no problems with quotes
48.     AProcess.Executable:='explorer.exe';
49.     AProcess.Parameters.Add(PDFChooser.FileName);
50.     AProcess.Options := AProcess.Options + [poWaitOnExit];
51.     AProcess.Execute;
52.   finally
53.     AProcess.Free;
54.   end;
55. end;
57. procedure TForm1.OpenDocumentButtonClick(Sender: TObject);
58. begin
59.   //Opendocument opens a document with the default application associated with it in the system
60.   if OpenDocument(PDFChooser.FileName)=false then ShowMessage('OpenDocument method failed.');
61. end;
63. procedure TForm1.OpenURLButtonClick(Sender: TObject);
64. begin
65.   // Opens a given URL with the default browser
66.   // I wouldn't use this one because it's an extra redirection step and the user may not
67.   // have a pdf plugin etc
68.   if OpenURL('file://'+PDFChooser.FileName)=false then ShowMessage('OpenURL method failed.');
69. end;
71. end.

复制代码

完整项目代码下载

barboo7704

謝謝分享,加油一點

chaojujohn

直接执行么？

key_ok

其实就是普通打开 而已

sgzhou12345

阅读器呀，我喜欢
升级自己的程序中

sgzhou12345

我在测试时有问题呀？？？

AProcess.Executable:='explorer.exe';
pdfopenform.pas(49,14) Error: identifier idents no member "Executable"

AProcess.Parameters.Add(PDFChooser.FileName);
pdfopenform.pas(50,14) Error: identifier idents no member &quotarameters"
pdfopenform.pas(81) Fatal: There were 2 errors compiling module, stopping

我用的Lazarus版本是：0.9.30

sgzhou12345

我也终于搞定这个问题
如果编译出现我的问题，解决方法如下：
lazarus 的版本必须是1.0以上的
为了帮助大家学习，本人附下载连接如下:
ftp://newwiki.freepascal.org/pub ... -20120927-win32.exe

终于解决这个问题,再次感谢"飘飘的风"