GetPDFText

〜解説〜
PDFファイルをテキストファイルに変換する

〜引数〜
OpenFileName：読み込むPDFファイル名
SaveFileName：保存先のファイル名

〜戻り値〜
成功：1 失敗：(-1)失敗(-2)PDFファイルが暗号化されてる

〜備考〜
重いファイルを扱う場合は進行状況のプログレスバーが表示されるGetPDFTextEx()を使用してください

〜サンプル〜

C/C++

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, 
                                 LPSTR lpszCmdLine, int nCmdShow)
{   
  HINSTANCE pdftools=NULL; // pdftool.dllのインスタンスハンドル
  pGetPDFText  GetPDFText=NULL; // GetPDFText API

  // DLLの読みこみ
  pdftools = LoadLibrary("pdftool.dll");
  if (pdftools!=NULL)
  {  
     //各APIの呼び出し
     GetPDFText = (pGetPDFText)GetProcAddress(pdftools, 
                                                 "GetPDFText");  

       // PDFファイルをテキストファイルに変換
       GetPDFText("c:\\test.pdf","c:\\test.txt");

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

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
 // PDFファイルをテキストファイルに変換
 GetPDFText('c:\test.pdf','c:\test.txt');
end;

VB

Private Sub Command1_Click()
Dim ret As Long
 ' PDFファイルをテキストファイルに変換
 ret = GetPDFText("c:\test.pdf", "c:\test.txt")
End Sub


2016.01.05 追加 VBAでPDFファイルをテキストに変換する

ホーム