德尔福XE8加载PDF文件

Question

我想知道怎么做可以：

1. 点击一个按钮，从目录中打开PDF文件。

2. 在窗体上查看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

要嵌入PDF，第2个想法浮现在脑海中会

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>

Answer 3

感谢您的答案，但我最终得到它（几年来一直没有使用德尔福，忘记了用途）。

这就是：“点击按钮后，从目录打开PDF文件。”

uses shellApi; 

procedure TForm1.Button1Click(Sender: TObject); 

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

谢谢你的答案。