PDF文書ファイルをページごとに画像化したくて様々な方法を探し（AND 試し）ましたが、なかなか「コレだ！」と思える方法が見つからず、ほぼ１日を費やして（ダメか･･･）とあきらめかけた、まさにその時、やっと出会えたのが Swanman (id:tales)さんの Blog の次の記事でした。
https://lyna.hateblo.jp/entry/20160625/1466783114
「それならWeb上の変換サービスを使えば･･･」というご意見はもっともですが、利用目的が「スキャナーでPDFファイル化した個人情報を含むデータの画像化処理」で、それなりに枚数もあるし･･･どこかのサーバーにアップして･･･というのは絶対に避けたいところです。
Swanman (id:tales)さんのBlogの記事を頼りに、何とか目的を実現することができました。これは、その際行ったことの備忘録です。
【もくじ】
１．FireMonkeyならPDFiumがある
２．WinRT
３．まとめ
４．お願いとお断り
１．FireMonkeyならPDFiumがある
最近、何かを調べる時はCopilotさんにお伺いをたてることが多いです。そこで、今回も早速きいてみました。
自分：
DelphiでPDFを画像化したいときはどうしたらいいですか
するとPDFiumというライブラリがあるとCopilotさんが教えてくれました。ただ、紹介されたのは「PDFium Component Suite for FireMonkey」だったので、どちらかというとWindows専用にVCLコンポーネントを使ってプログラムを書きたい自分的には（FireMonkeyはちょっと･･･）という感じだったのですが･･･、「溺れる者は藁をもつかむ」と、まさにそんな気持ちでありましたから･･･記事に目を通してみることに。
Copilot さんが教えてくれた FireMonkey 用の PDFium の紹介ページはこちら。
https://blogs.embarcadero.com/ja/pdfium-pdf-engine-for-your-delphi-c-builder-firemonkey-applications-ja/
そこで紹介されていたコードの一部（抜粋して引用）。
Bitmap := FPdf.RenderPage(0, 0,
Round(PointsToPixels(FPdf.PageWidth, PixelsPerInch)),
Round(PointsToPixels(FPdf.PageHeight, PixelsPerInch)));
try
Bitmap.SaveToFile(FileName + '_Page' + IntToStr(I) + '.jpg');
finally
Bitmap.Free;
end;このRenderPageなる手続きが使えれば、目的はカンタンに実現できそう。
それに PDFium はライセンス的にも問題なさそうだし･･･
（VCL版があればなぁ･･･）
ダメ元で探してみるとPDFiumのVCL版を発見。早速、ダウンロード！
https://github.com/ahausladen/PdfiumLib
大喜びで、使ってみたんだけれど･･･
なんと、PDFiumのVCL版には RenderPageがありません でした！！
（間違えていたら、ほんとうに、ごめんなさい）
必要なものは全部 uses して、exeと同じフォルダに PDFium.dll も用意したのですが、何か足りないものでもあったのでしょうか？
なら、FireMonkey で書けばいいじゃん！って気持ちにそう簡単にはなれないのが人間です。実は、それなりに頑張ってFireMonkeyでいくつかのプログラムをこれまでに書いてみたのですが、エラーの原因解明に手間取ることが多くて、Windows PCしか使わない自分にとって、無理してまでクロスプラットフォームでプログラムを書くメリットはないように思えてきて･･･やはり、書きなれたVCLの方が自分にはあってる･･･と、どうしても、そう思ってしまい･･･
それに、ここでFireMonkeyにすると、この先もずっとFireMonkeyで書くことに。
現在、書き続けている一連の採点処理用途のプログラムは、すべてVCLで書いてきたこともあり、大変残念ですが PDFium の使用は、ここで断念することに決めました。
２．WinRT
Swanman (id:tales)さんのBlogの記事に紹介されていた Windows Runtime（略称がWinRT）なるものの存在を、これまで僕は知りませんでした。Win32 API なら名前だけは知ってましたが、どうやらそれより新しいAPI であるとのこと。難しいことはわかりませんが、このWinRTでPDFの画像化ができるのであれば、Windowsの機能を使ってそれが実現できるのですから、新規に何かライブラリを追加したりする必要がなく、それこそ理想的です。
ようやく発見したSwanman (id:tales)さんのBlogの記事を読んで、とりあえず、上記の内容だけは確実に理解できました。早速、アップロードされていたユニットとサンプルコードを有難くダウンロードさせていただき、Project2 のサンプルコードを実行（F9）してみました。すると･･･
これは困りました。解決方法がまったくわかりません！
（APIだから、もしかしてMicrosoftさんのほうで、ここ数年のうちに何か変更があったのかな･･･）
pas、すなわち必要なユニットはすべてPathの通ったところに置きましたから、これはライブラリ自体が「ない」ということなのかな･･･？
（ない袖は振れないから･･･、ダメもとで外してみようか･･･）
唯一、思いついた解決方法にならない強引な戦法で前進？することに決め、問題の行をコメントアウト。幸い、誰もこのライブラリを参照していなかったようで、「未定義の識別子」エラーは表示されません。これはラッキー！とばかりに、このまま再度、実行（F9）します。
すると･･･、別のユニットでもうひとつ同じエラーが発生。
もう、ムチャを承知で無理やり、前進！ 前進!!
この行も // コメントアウト。こちらもラッキーなことに「未定義の識別子」エラーは表示されません。これ幸いと、再び、実行（F9）。
このプログラムが動かなくて困るのは僕だけです。他に誰一人、悲しい思いをする人はいません。それだけが唯一の救いです。
結果は･･･
何の問題もなく、
プログラムは無事に動作しました！
開いたPDF文書はページごとにJpeg画像として保存できました☆
ちなみに Types の他にはどんなメンバーがいるのかと思い、WinAPI.Foundation をコピペして、n の後ろに「 . 」を入力してみると、入力補完機能が表示した選択肢は･･･
もちろん、誰もこのユニットを参照していないことは明らかなので、次のようにしても動作しました。
（usesするとexeの大きさは少しだけ大きくなりました）
（もしかして、必要なユニットがまだ他にあるのかな･･･）
（でも、どこからも参照されていなかったし･･･）
（何で uses されてたんだろー？）
結局、Winapi.Foundation.Types の謎は解けませんでしたが、PDF文書ファイルの各ページをJpeg画像として保存したいという目的は実現することができました。
今回、僕が探した範囲ではDelphiを使ってPDF文書の画像化を実現する方法は、FireMonkeyでPDFiumを使う方法と、このWinRTを使う方法の二つしか見つけられませんでした。したがって、FireMonkeyという選択肢を選ばないのであれば、WinRTを使うこの方法しか、選択肢はありません。
そのような意味で、Swanman (id:tales)さんのBlogの記事にあった情報は大変貴重な情報であると思いました。Swanman (id:tales)さんにこころから感謝しております。ありがとうございました。
３．まとめ
（１）Delphiで、PDF文書の各ページを画像化する方法はある。
（２）FireMonkeyでPDFiumを使用。
（３）WinRTのAPIを使う方法もある（VCLで動作確認／FireMonkeyでの動作は未確認）。
今回の記事を書くにあたって、プログラムの動作確認に使用したPCの環境は次の通りです。
【デバイスの仕様】
プロセッサ 11th Gen Intel(R) Core(TM) i7-1185G7 @ 3.00GHz 3.00 GHz
実装 RAM 32.0 GB (31.7 GB 使用可能)
システムの種類 64 ビット オペレーティング システム
【Windowsの仕様】
エディション Windows 11 Pro
バージョン 23H2
OS ビルド 22631.3296
エクスペリエンス Windows Feature Experience Pack 1000.22687.1000.0
【Delphiのバージョン】
Embarcadero® Delphi 12 バージョン 29.0.50491.5718
４．お願いとお断り
このサイトの内容を利用される場合は、自己責任でお願いします。ここに記載した内容を利用した結果、利用者および第三者に損害が発生したとしても、このサイトの管理者は一切責任を負えません。予め、ご了承ください。