RotatePDF

〜解説〜
PDFファイルの指定されたページを回転させる

〜引数〜
PDF：PDFファイルのハンドル
StartPos：回転を開始するページの番号
EndPos：回転を終了するページの番号
SaveFileName：保存先のファイル名
Rotate： (1)右90度(2)左90度(3)180度

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

〜備考〜
なし

〜サンプル〜

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
  pRotatePDF  RotatePDF=NULL; // RotatePDF API
  int pdf;

  // DLLの読みこみ
  pdftools = LoadLibrary("pdftool.dll");
  if (pdftools!=NULL)
  {  
     //各APIの呼び出し
     LoadPDF = (pLoadPDF)GetProcAddress(pdftools, "LoadPDF"); 
     FreePDF = (pFreePDF)GetProcAddress(pdftools, "FreePDF"); 
     RotatePDF = (pRotatePDF)GetProcAddress(pdftools, 
                                                 "RotatePDF");  
       // PDFファイルを読み込む
       pdf =LoadPDF("c:\\test1.pdf");
       // PDFファイルの1-2ページ目を右90度回転させる
       RotatePDF(pdf,1,2,"c:\\test2.pdf",1);
       // PDFファイルのハンドルを解放する
       FreePDF(pdf);

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

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
 pdf: integer;
begin
 // PDFファイルを読み込む
 pdf:=LoadPDF('c:\test1.pdf');
 // PDFファイルの1-2ページ目を右90度回転させる
 RotatePDF(pdf,1,2,'c:\test2.pdf',1);
 // PDFファイルのハンドルを解放する
 FreePDF(pdf);
end;

VB

Private Sub Command1_Click()
Dim PDF, Ret As Long
 ' PDFファイルを読み込む
 PDF = LoadPDF("c:\test1.pdf")
 '  PDFファイルの1-2ページ目を右90度回転させる
 Ret = RotatePDF(PDF, 1, 2, "c:\test2.pdf", 1)
  ' PDFファイルのハンドルを解放する
 FreePDF (PDF)
End Sub


2016.01.05 追加 VBAでPDFファイルのページを回転する

ホーム