Delphi 操作 PDF -- 使用 Acrobat SDK 初探 |
|
yachanga
資深會員 發表:24 回覆:335 積分:296 註冊:2003-09-27 發送簡訊給我 |
小弟前陣子尋找用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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |