線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:5391
推到 Plurk!
推到 Facebook!

Delphi 操作 PDF -- 使用 Acrobat SDK 初探

 
yachanga
資深會員


發表:24
回覆:335
積分:296
註冊:2003-09-27

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-10-24 12:57:54 IP:203.67.xxx.xxx 未訂閱
小弟前陣子尋找用Delphi列印PDF solution, 發現Acrobat SDK 提供蠻多API可用的.. 需要完整的API 可到下面網址尋找: Adobe Solutions Network http://partners.adobe.com/asn/tech/pdf/acrobatsdks.jsp    以下列出簡單範例 由於小弟只試了一下, 若有謬誤 請各位大大指教    
 AcroApp,AVDoc,PDDoc: variant;
 PageNum:integer;
begin
 try
  AcroApp := CreateOleObject('AcroExch.App');
   // 建立Acrobat View application
  AVDoc := CreateOleObject('AcroExch.AVDoc');
   // 建立Acrobat View 視覺化物件
  PDDoc := CreateOleObject('AcroExch.PDDoc');
   // 建立Acrobat View 非視覺化(控制)物件      AVDoc.Open('D:\upload\test.pdf', 'PDF title');
   // Open document
   // 參數1, full path
   // 參數2, windows title
  AVDoc := AcroApp.GetActiveDoc;
   // Get frontmost document
  PDDoc := AVDoc.GetPDDoc;
   // Get associated PDDoc      AcroApp.Show; //AcroApp.Hide;
   // 決定是否顯示 Acrobat View
  PageNum := PDDoc.GetNumPages;
   // Get PDF total pages      AVDoc.PrintPagesSilent(0, PageNum, 0, 0, 0);
   // 列印特定的Page
   // 參數1, 起始頁數, 0 為第一頁
   // 參數2, 結束頁數      showmessage('ok');
 finally
  PDDoc.Close;
  //AVDoc.Close; //If PDDoc & AVDoc are constructed the same file,
                 //Close PDDoc will destroy both.
  AcroApp.exit;
 end;
~悠遊法國號~
mchakuna
一般會員


發表:41
回覆:45
積分:17
註冊:2004-01-07

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-06-17 22:34:33 IP:211.147.xxx.xxx 未訂閱
Acrobat SDK不是要钱买的吗? 而且acrobat主页上列出的不是只有C,C 和VB的API吗?
系統時間:2024-05-19 17:12:25
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!