DelphiにおけるPDFビューアは、2つのコンポーネントとそれらの間の接続に帰結します。TPdf はドキュメントを所有します。ファイルを開き、復号化し、ページ数やメタデータに関する質問に答えます。TPdfView は、画面にページを描画し、スクロール、ズーム、およびユーザーが現在見ているページを処理するビジュアルコントロールです。PDFium Componentは、Chromeの内部に搭載されているのと同じレンダリングエンジンをラップしているため、キャンバス上に得られるグリフ、アンチエイリアシング、および色は、ユーザーがブラウザですでに見ているものと一致します。作業はレンダリングにあるのではありません。ドキュメントオブジェクトをビューに接続し、破損したファイルやパスワードで保護されたファイルでクラッシュすることなくロードし、ビューアを完成品と感じさせるためのいくつかのコントロール（ページをめくる、ズームを変更する、ページをウィンドウに合わせるなど）をユーザーに提供することにあります
ここでは、実際に構築する順序でその組み立てについて説明します。ここではすべてが1度に1ページずつレンダリングされます。これはほとんどのドキュメントワークフローが求めているものです。ページを1つの連続してスクロールする列に積み重ねる必要がある場合は、それは異なるレイアウトの決定であり、ここで説明するパスではありません
TPdfをTPdfViewに接続する
フォームに TPdf と TPdfView をドロップし、どのドキュメントを表示するかをビューに指示します。その単一の割り当てが、非ビジュアルなドキュメントとそれを描画するコントロールとの間のリンクのすべてです
procedure TFormMain.FormCreate(Sender: TObject);
begin
// Pdf and PdfView were dropped at design time.
PdfView.Pdf := Pdf; // the view paints whatever this document holds
PdfView.FitMode := pfmFitWidth; // start the user at a sensible zoom
end;これらのいずれかを実行する前に、PDFiumのネイティブライブラリがマシン上にある必要があります。PDFium Componentは、ターゲットプラットフォームに応じて pdfium32.dll または pdfium64.dll を呼び出します。DLLが見つからない場合、ドキュメントは単に開くことを拒否します。実行可能ファイルの横に一致するDLLを同梱するか、システムローダーが見つけることができる場所に配置してください。V8対応ビルドは、実行したいJavaScriptを保持しているPDFのためにのみ存在します。通常のビューアはそうではないため、具体的な理由がない限り、標準のDLLを使用してください
入力を信頼せずにドキュメントをロードする
直感的には、ロードを try/except でラップし、スローされた例外を失敗として扱いたくなります。しかしここでのその直感は間違っており、それを間違えると、誰かが壊れたファイルを手渡すまでは問題なく見えるビューアが生成されます。Active := True を設定しても、ロードの失敗時に例外は発生しません。PDFium Componentは内部エラーをキャッチし、Active を False のままにするため、ドキュメントが開いたかどうかを知る唯一の正直な方法は、プロパティを設定した後にプロパティを読み返すことです
procedure TFormMain.OpenDocument(const FileName: string);
begin
Pdf.FileName := FileName;
Pdf.Active := True; // never raises; failure leaves Active = False
if not Pdf.Active then
begin
ShowMessage('Could not open ' + FileName);
Exit;
end;
PdfView.PageNumber := 1; // the view tracks its own current page
UpdatePageLabel;
end;2つの点に注意が必要です。1つ目は、PageNumber が両方のオブジェクトに存在し、その2つは独立しているということです。Pdf.PageNumber はドキュメントにおける現在のページの概念です。PdfView.PageNumber はコントロールが実際に表示するページであり、ユーザーをファイル内で移動させるために設定するものです。一方を設定してももう一方は移動しないため、ビューアは常にビューのプロパティを駆動します。2つ目は、1ベースのインデックス作成です。ページは0からではなく1から Pdf.PageCount まで実行されるため、0ベースの配列に慣れている人は注意が必要です
暗号化されたファイルの処理
暗号化されたドキュメントも同じロードパスに組み込まれます。アクティベーションの前にオープンパスワードが設定されている場合、ドキュメントは開くときに復号化されます。パスワードが間違っていたり欠落している場合、破損したファイルの場合とまったく同じように Active は False のままになります。したがって、リカバリは、パスワードの入力を求めてアクティベーションを再試行することです
procedure TFormMain.OpenWithPassword(const FileName: string);
var
Password: string;
begin
Pdf.FileName := FileName;
Pdf.Active := True;
if not Pdf.Active then
begin
if InputQuery('Password required', 'Password:', Password) then
begin
Pdf.Password := Password; // must be set before Active := True
Pdf.Active := True;
end;
if not Pdf.Active then
begin
ShowMessage('Unable to open the document.');
Exit;
end;
end;
PdfView.PageNumber := 1;
end;無効なパスワードと破損したファイルの両方で失敗が静か（エラー表示なし）であるため、Active だけから2つを区別することはできません。実際には、それはビューアとして受け入れられます。ユーザーは正しいパスワードを提供するか、ファイルが開かないことを知るかのどちらかであり、メッセージはどちらの場合も同じ内容になります
ドキュメントのページング
ドキュメントが開いている状態でのナビゲーションは、Pdf.PageCount を境界とする PdfView.PageNumber での算術演算です。唯一の実際の作業はクランプ（範囲制限）です。これにより、ボタンがページを範囲外に押し出すことはなくなり、最初と最後のボタンはファイルの末尾で無効のままになります
procedure TFormMain.GoToPage(NewPage: Integer);
begin
if not Pdf.Active then
Exit;
if NewPage < 1 then
NewPage := 1
else if NewPage > Pdf.PageCount then
NewPage := Pdf.PageCount;
PdfView.PageNumber := NewPage;
UpdatePageLabel;
end;
// the four navigation buttons reduce to one call each
procedure TFormMain.FirstClick(Sender: TObject); begin GoToPage(1); end;
procedure TFormMain.PrevClick(Sender: TObject); begin GoToPage(PdfView.PageNumber - 1); end;
procedure TFormMain.NextClick(Sender: TObject); begin GoToPage(PdfView.PageNumber + 1); end;
procedure TFormMain.LastClick(Sender: TObject); begin GoToPage(Pdf.PageCount); end;「Nページに移動」のテキストボックスは、解析された整数から供給される同じ GoToPage の呼び出しであり、クランプはユーザーが10ページのファイルに9999と入力した場合をカバーします。読み取り値がビューに表示されるものと同期しなくなることが決してないように、「12ページ中3ページ」を書き込む単一の場所として UpdatePageLabel を保持します
ズーム：明示的なパーセンテージとフィットモード
TPdfView のズームには相互作用する2つの種類があり、その相互作用を理解することが、行儀の良いズームコントロールとユーザーと戦うズームコントロールの違いとなります。直接的なルートは Zoom プロパティであり、100が実際のサイズを意味するパーセンテージです。もう1つのルートは FitMode です。これは、ズームを計算し、ウィンドウのサイズが変更されたときに再計算を続けるようにビューに指示します
// fixed magnifications
PdfView.Zoom := 100; // actual size
PdfView.Zoom := 50; // half
PdfView.Zoom := 200; // double
// let the view size the page to the window, and keep it sized on resize
PdfView.FitMode := pfmFitWidth; // page width fills the control
PdfView.FitMode := pfmFitPage; // whole page visible
PdfView.FitMode := pfmActualSize; // 1:1 with the document's pointsここで人々がつまずく部分があります。Zoom を直接割り当てると、FitMode が pfmNone にリセットされます。これは正しい動作であり、バグではありません。ユーザーが正確に150%を選択した瞬間、2つのリクエストが競合するため、ビューはもはや「幅に合わせる」を優先することはできません。UIへの影響として、ズームインボタンとページに合わせるボタンは相互に排他的な状態になり、ツールバーはアクティブなモードを視覚的にわかるようにする必要があります。ユーザーが「ページに合わせる」をクリックした場合は FitMode を設定し、数値のズームをクリックした場合は Zoom を設定して、フィットモードを自動的にクリアさせます
現在のフィット率でズームスライダーにシードを提供するためなどにフィット値を自分で計算したい場合、ページごとのヘルパーはモードを変更せずに数値を提供します。PageWidthZoom[N]、PageZoom[N]、および ActualSizeZoom[N] は、ページNを幅に合わせる、全体に合わせる、または実際のサイズでレンダリングするパーセンテージを返します
// seed a zoom readout from the fit-to-width value of the current page
var
FitPercent: Double;
begin
FitPercent := PdfView.PageWidthZoom[PdfView.PageNumber];
ZoomEdit.Text := Format('%.0f%%', [FitPercent]);
end;完成したビューアが実際に必要とするもの
上記のビューアは数十行ですが、ドキュメントワークフローに必要な作業（ファイルを開く、不正なファイルを生き残る、ページを表示する、ページ間を移動する、手動またはフィットで倍率を変更する）をすでに実行しています。PDFiumは難しい部分を静かに実行します。埋め込まれたフォントが解決され、注釈とフォームフィールドがドキュメントで配置された場所に描画されます。また、表示されるページはChromeユーザーが見るものと一致します。どちらも同じエンジンが描画しているためです
このベースから、追加は構造的というよりも漸進的です。テキストの選択と検索は、PDFiumがすでに構築しているのと同じテキストレイヤーから読み取ります。Pdf.Title や Pdf.Author などのメタデータは、プロパティを1つ読み取るだけで済みます。回転とグレースケールは、ページをビットマップに描画するときに渡すレンダリングオプションです。これらのどれも、ドキュメントオブジェクト、ビュー、およびそれらを接続するロードしてナビゲートするフローである、ここにある根幹を変更するものではありません。その根幹を正しく設定すれば、残りは装飾です
全体で使用されている TPdf および TPdfView コンポーネントは、DelphiおよびC++Builder用の PDFium Component の一部であり、製品ページに完全なビューアのリファレンスが掲載されています