FreePDF

〜解説〜
PDFファイルのハンドルを解放します。
LoadPDF()で取得したPDFファイルのハンドルはこの関数を使用して必ず解放してください。

〜引数〜
PDF：PDFファイルのハンドル

〜戻り値〜
なし

〜備考〜
なし

〜サンプル〜

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;  // FreePDFAPI
  pGetPDFPageCount GetPDFPageCount=NULL; // GetPDFPageCount API
  int pdf,pagecnt ;

  // DLLの読みこみ
  pdftools = LoadLibrary("pdftool.dll");
  if (pdftools!=NULL)
  {  
     //各APIの呼び出し
     LoadPDF = (pLoadPDF)GetProcAddress(pdftools, "LoadPDF"); 
     FreePDF = (pFreePDF)GetProcAddress(pdftools, "FreePDF"); 
     GetPDFPageCount = (pGetPDFPageCount)GetProcAddress(pdftools, 
                                                 "GetPDFPageCount");  
 
       // PDFファイルを読み込む
       pdf=LoadPDF("c:\\.test.pdf");
       // PDFファイルのページ数を取得する
       pagecnt=GetPDFPageCount(pdf);
            ...
            ...
       // PDFファイルのハンドルを解放する
       FreePDF(pdf);

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

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
 pdf,pagecnt: integer;
begin
 // PDFファイルを読み込む
 pdf:=LoadPDF('c:\test.pdf');
 // PDFファイルのページ数を取得する
 pagecnt:=GetPDFPageCount(pdf);
 // エディットにページ数を表示する 
 Edit1.Text:=Inttostr(pagecnt);
 // PDFファイルのハンドルを解放する
 FreePDF(pdf);
end;

VB

Private Sub Command1_Click()
Dim pdf, pagecnt As Long
  ' PDFファイルを読み込む
 pdf = LoadPDF("c:\test.pdf")
 ' PDFファイルのページ数を取得する
 pagecnt = GetPDFPageCount(pdf)
 ' エディットにページ数を表示する
 Text1.Text = Str(pagecnt)
 ' PDFファイルのハンドルを解放する
 FreePDF (pdf)
End Sub



ホーム