Question

我在Delphi XE中使用 IPreviewHandler 界面来查看Adobe PDF文件列表。除了当第一个视图关闭（界面被破坏）时，一切都有效，大约有20秒的延迟。所有后续观点在没有这种延迟的情当然，直到我重新启动应用程序。

有没有人经历过这种奇怪的行为？这可能是什么原因？

该问题可与另一台计算机上的其他开发人员重现。操作系统是Windows 7旗舰版，Adobe Reader XI是v11.0.3。

CLSID = '{DC6EFB56-9CFA-464D-8880-44885D7DC193}'。代码段：

TqdPreviewControl = class(TCustomControl)
  private
    FResult   : HRESULT;
    FFileName : string;
    FLastError: string;
    FComPreviewHandler : IPreviewHandler;
    function IsOk(Ret : HRESULT) : boolean;
    function UpdatePreviewSize :boolean;
    class function GetCLSIDForFileName(AFileName: string): string; static;
    function PreviewFile :boolean;
    procedure SetFileName(const Value: string);
  protected
    procedure Resize; override;
  public
    constructor Create(AOwner :TComponent); override;
    destructor Destroy; override;
    property FileName: string read FFileName write SetFileName;
    property LastError: string read FLastError;
  end;

destructor TqdPreviewControl.Destroy;
begin
  if FComPreviewHandler <> nil then
    FComPreviewHandler.Unload;   // this helps to reduce first delay to 5 sec
  FComPreviewHandler := nil;     //! only on first destroy spends here 20 sec
  inherited Destroy;
end;

function TqdPreviewControl.PreviewFile :boolean;
var
  ACLSID: string;
  AGUID: TGUID;
  AInit: IInitializeWithStream;
  AFile: PWideChar;
  StreamAdapter : IStream;
  Stream : TMemoryStream;
  Size : TRect;
begin
  Result := false;
  FLastError := '';
  ACLSID := GetCLSIDForFileName(FFileName);
  if (ACLSID = '') then begin
    FLastError := 'No CLSID';
    Exit;
  end;

  AGUID := StringToGUID(ACLSID);
  FComPreviewHandler := CreateComObject(AGUID) as IPreviewHandler;
  if (FComPreviewHandler = nil) then
  begin
    FLastError := 'No Handler';
    Exit;
  end;

  AInit := FComPreviewHandler as IInitializeWithStream;
  Stream := TMemoryStream.Create;
  Stream.LoadFromFile(FFileName);
  StreamAdapter := TStreamAdapter.Create(Stream, soOwned);
  FResult := AInit.Initialize(StreamAdapter as IStream, STGM_READ);
  StreamAdapter := nil;

  Size := Rect(0, 0, Width, Height);
  if not IsOk(FComPreviewHandler.SetWindow(Handle, Size)) then
    Exit;
  if not UpdatePreviewSize then
    Exit;

  if IsOk(FComPreviewHandler.DoPreview) then
    Result := true;
end;

更新：找到了一个有用的方法 - 卸载，这可以将延迟从20秒减少到5秒。

更新：进一步按摩已将Application.ProcessMessages放入析构函数中，这允许拥有的表单无延迟地关闭，但延迟将转移到冻结5秒的父表单。在视觉上仍然比在半更新状态下看到关闭视图稍微好一些。

更新：使用Foxit预览处理程序确认延迟确实是Adobe和Adobe的工件与所有的Delphi代码无关

Adobe PDF预览处理程序延迟

0 个答案: