GetPDFBookMark

〜解説〜
PDFファイルからしおり情報を取得する

〜引数〜
PDF：PDFファイルのハンドル
SaveFileName：保存先のファイル名
CSV： CSV形式で保存するかどうか　TRUE　or　FALSE

〜戻り値〜
成功：1 失敗：(-1)失敗(-2)しおりがない

〜備考〜
なし

〜サンプル〜

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
  pGetPDFBookMark GetPDFBookMark=NULL; // GetPDFBookMark API
  int pdf;

  // DLLの読みこみ
  pdftools = LoadLibrary("pdftool.dll");
  if (pdftools!=NULL)
  {  
     //各APIの呼び出し
     LoadPDF = (pLoadPDF)GetProcAddress(pdftools, "LoadPDF"); 
     FreePDF = (pFreePDF)GetProcAddress(pdftools, "FreePDF"); 
     GetPDFBookMark = (pGetPDFBookMark)GetProcAddress(pdftools, 
                                                 "GetPDFBookMark");  
       // PDFファイルを読み込む
       pdf =LoadPDF("c:\\test.pdf");
       // PDFファイルのしおり情報を取得する
       GetPDFBookMark(pdf,"c:\\しおり.txt",false);
       // // PDFファイルのハンドルを解放する
       FreePDF(pdf);

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

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
 pdf: integer;
begin
 // PDFファイルを読み込む
 pdf:=LoadPDF('c:\test.pdf');
 // PDFファイルのしおりを取得する
 GetPDFBookMark(pdf,'c:\しおり.txt',false );
 // PDFファイルのハンドルを解放する
 FreePDF(pdf);
end;

VB

Private Sub Command1_Click()
Dim pdf, ret As Long
 ' PDFファイルを読み込む
 pdf = LoadPDF("c:\test.pdf")
 ' PDFファイルのしおりを取得する
 ret = GetPDFBookMark(pdf, "c:\test.txt", False)
 ' PDFファイルのハンドルを解放する
 FreePDF (pdf)
End Sub


ホーム