GetPDFVersion

〜解説〜
PDFファイルのバージョンを取得します

〜引数〜
OpenFileName：読み込むPDFファイル名

〜戻り値〜
成功：PDFファイルのバージョン 失敗：(-1)読み込めない
※PDF1.4形式ならば「14」の整数値が戻って来ます。

〜備考〜
暗号化有無に関わらず、PDF1.0〜PDF1.6のバージョンを調べる事ができます。
(現在はPDF1.6が最新ですが仕様的にそれ以降のバージョンも調べられると思います)

〜サンプル〜

C/C++

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

  // DLLの読みこみ
  pdftools = LoadLibrary("pdftool.dll");
  if (pdftools!=NULL)
  {  
     //各APIの呼び出し
     GetPDFVersion = (pGetPDFVersion)GetProcAddress(pdftools, 
                                                 "GetPDFVersion");  
       // PDFファイルのバージョン情報を取得する
       pdfver=GetPDFVersion("c:\\test.pdf");
           ...
           ...
      FreeLibrary(pdftools);
   }
   return(0);
}

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
 pdfver: integer;
begin
 // PDFファイルのバージョン情報を取得する
 pdfver:=GetPDFVersion('c:\test.pdf');
 // エディットに表示する 
 Edit1.Text:=Inttostr(pdfver);
end;

VB

Private Sub Command1_Click()
Dim pdfver As Long 
 ' PDFファイルのバージョン情報を取得する
 pdfver = GetPDFVersion("c:\test.pdf")
 ' エディットに表示する
 Text1.Text = Str(pdfver)
End Sub


ホーム