德爾福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. 

謝謝你的答案。