Envision Image Library は使いやすいのですが、デモの作りと同じようにプログラムを書いたら、PDF 書き出しが非常に遅く、使えないことがわかりました。

あまりにも遅いのでドキュメントを確認してみると、遅いから推奨しないと書いてありました(^^;

せっかくなので、遅かったコードと速いコードの2種類を載せておきます。

■遅いコード

procedure TForm1.ToolButton1Click(Sender: TObject);
var
  i: Integer;
  FrameCount: Integer;
  SaveFileName: String;
begin
  if OpenDialog1.Execute then begin
    FrameCount := ImageScrollBox1.ImageCountFromFile(OpenDialog1.FileName);
    SaveFileName := ChangeFileExt(OpenDialog1.FileName, ‘.pdf’);

    ImageScrollBox1.LoadFromFile(OpenDialog1.FileName, 1);
    ImageScrollBox1.SaveToFile(SaveFileName);

    for i := 2 to FrameCount do begin
      ImageScrollBox1.LoadFromFile(OpenDialog1.FileName, i);
      ImageScrollBox1.AppendToFile(SaveFileName);
    end;
  end;
end;

フレームの数だけ AppendToFile を繰り返しています。
最初に PDF ファイルを作成するときだけは、SaveToFile です。
この方法では、AppendToFile の度に PDF の解析やらなんやら処理が必要で、枚数に二次関数的に比例して、操作が遅くなります。

■速いコード

function TForm1.GetGraphicMethod(const ImageNo: Integer;  var FreeGraphic: Boolean): TGraphic;
begin
  ImageScrollBox1.LoadFromFile(OpenDialog1.FileName, ImageNo);
  Result := ImageScrollBox1.Graphic as TGraphic;
end;

procedure TForm2.ToolButton4Click(Sender: TObject);
var
  FrameCount: Integer;
  SaveFileName: String;
  Graphic: TPdfGraphic;
  Stream: TFileStream;
begin
  if OpenDialog1.Execute then begin
    FrameCount := ImageScrollBox1.ImageCountFromFile(OpenDialog1.FileName);

    SaveFileName := ChangeFileExt(OpenDialog1.FileName, ‘.pdf’);

    Graphic := TPdfGraphic.Create;
    Stream := TFileStream.Create(SaveFileName, fmCreate);

    Graphic.MultiSaveToStream(Stream, FrameCount, GetGraphicMethod);

    Stream.Free;
    Graphic.Free;
  end;
end;

コールバック関数 GetGraphicMethod() を利用し、MultiSaveToStream を利用したコードです。
コールバック関数では、追加したい画像情報が渡されますので、引数を利用して TGraphic オブジェクトを返すことになります。

コードの視認性を良くするために、例外処理は省いています。
RAD Studio 2007 に、Trial 版のパッケージ(バージョン 2.52)を追加した状態での確認です。