Question

我想知道怎么做：

单击按钮，从目录中打开PDF文件。
在表格上查看PDF文件。

Answer 1

你不需要你正在做的所有跳跃式箍。 Windows将为您找到与PDF文件关联的应用程序。

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;     
  Ret: DWord;
begin
  s := 'C:\MyFiles\MyFile.pdf';
  Ret := ShellExecute(Handle, nil, PChar(s), nil, nil, SW_SHOW);
  if Ret < 32 then
    ShowMessage(SysErrorMessage(GetLastError));
end;

注意：通常你应该从不调用WinAPI函数而不检查返回值。在这种情况下，您将知道它是否无效，因为PDF无法打开。

Answer 2

感谢答案，但我最终得到了答案（现在已经使用Delphi几年了，忘记了用途）。

原因如下：“点击一下按钮，打开目录中的PDF文件。”

uses shellApi;

procedure TForm1.Button1Click(Sender: TObject);

begin
ShellExecute(Handle, 'open', 'C:\pathwaytopdf.pdf', nil, nil, SW_SHOWNORMAL);
end;
end.

感谢您的回答。

Answer 3

要嵌入PDF，我想到的前两个想法是

1）搜索支持PDF的COM对象 - 快速搜索产生了这个：http://www.biopdf.com/guide/com_interface.php，但似乎还有其他人。

2）最糟糕的情况是，你可以在其中嵌入一个HTML代码的网页面板：

<object data="test.pdf" type="application/pdf" width="500" height="300"> alt : <a href="test.pdf">test.pdf</a> </object>

Delphi XE8加载PDF文件

3 个答案: