CombinePDF

〜解説〜
PDFファイルを結合する

〜引数〜
PDF1：PDFファイルのハンドル
PDF2：PDFファイルのハンドル
SaveFileName 保存先のファイル名

〜戻り値〜
成功：1 失敗：(-1)失敗

〜備考〜
複数ファイルを扱う場合はCombinePDFEx()を使用してください
※このAPIを使用するとインタラクティブな属性(しおり、リンク、アクロバットフォーム、注釈、アーティクル、JavaScript)がある場合にはその情報は失われます。注意：元のファイルは変更されません。

〜サンプル〜

C/C++

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, 
                                 LPSTR lpszCmdLine, int nCmdShow)
{   
  HINSTANCE pdftools=NULL; // pdftool.dllのインスタンスハンドル
  pLoadPDF  LoadPDF=NULL;  // LoadPDF API
  pFreePDF  FreePDF=NULL;  // FreePDF API
  pCombinePDF  CombinePDF=NULL; // CombinePDF API
  int pdf1,pdf2;

  // DLLの読みこみ
  pdftools = LoadLibrary("pdftool.dll");
  if (pdftools!=NULL)
  {  
     //各APIの呼び出し
     LoadPDF = (pLoadPDF)GetProcAddress(pdftools, "LoadPDF"); 
     FreePDF = (pFreePDF)GetProcAddress(pdftools, "FreePDF"); 
     CombinePDF = (pCombinePDF)GetProcAddress(pdftools, 
                                                 "CombinePDF");  
       // PDFファイルを読み込む
       pdf1 =LoadPDF("c:\\test1.pdf");
       pdf2 =LoadPDF("c:\\test2.pdf");
       
       // PDFファイルを結合する
       CombinePDF(pdf1,pdf2,"c:\\test3.pdf");
       // PDFファイルのハンドルを解放する
       FreePDF(pdf1);
       FreePDF(pdf2);

      FreeLibrary(pdftools);
   }
   return(0);
}

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
 pdf1,pdf2: integer;
begin
 // PDFファイルを読み込む
 pdf1:=LoadPDF('c:\test1.pdf');
 pdf2:=LoadPDF('c:\test2.pdf');
 // PDFファイルを結合する
 CombinePDF(pdf1,pdf2,'c:\test3.pdf');
 // PDFファイルのハンドルを解放する
 FreePDF(pdf1);
 FreePDF(pdf2);
end;

VB

Private Sub Command1_Click()
Dim pdf1, pdf2 As Long
 ' PDFファイルを読み込む
 pdf1 = LoadPDF("c:\test1.pdf")
 pdf2 = LoadPDF("c:\test1.pdf")
 ' PDFファイルを結合する
 Call CombinePDF(pdf1, pdf2, "c:\test3.pdf")
 ' PDFファイルのハンドルを解放する
 FreePDF (pdf1)
 FreePDF (pdf2)
End Sub


2016.01.05 追加 VBAでPDFファイルを結合する

ホーム