TAcroPDF在调整窗体大小后失去分辨率

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  PDF: TDebenuPDFLibraryDLL0915;
begin
  PDF := TDebenuPDFLibraryDLL0915.Create('DebenuPDFLibraryDLL0915.dll');
  try
    PDF.UnlockKey(Key);

    PDF.SelectPage(1);
    PDF.SetPageSize('a4');
    PDF.AddImageFromFile('c:\Tool\Picture.jpg', 0);
    PDF.DrawImage(0,842,595,842);
    PDF.SaveToFile('C:\Tool\Test.pdf');

    AcroPDF.LoadFile('C:\Tool\Test.pdf');
  finally
    PDF.Free;
  end;
end;

软件：Win7 64,Delphi XE5

Answer 1

我建议不要同时使用ACROPDF库（我假设您--导入active x控件--创建一个_tlb单元--创建一个可视化组件）

你遇到的问题和我遇到的问题一模一样，再加上我发现的几个问题：

>

如果adobe启动了新版本的READER（他们经常这样做），您将需要更新您的组件（通过更新您的READER、导入active X控件和重新创建组件）。如果您不这样做，而试图打开一个更高版本的.pdf文件，您将会得到一个COM异常。

有限向后兼容性

我建议你打个电话

ShellExecute(Handle, nil, PChar("c:\MyPDF.PDF"), nil,  nil, SW_SHOWNORMAL);

并且让Windows调用默认的PDF编辑器（可能是Adobe Reader)，让默认的应用程序来完成工作。