Hallo,

eine PDF-Datei in einem TWebBrowser anzuzeigen ist an sich ganz einfach.
Ich habe leider damit ein Problem. Wenn ich nach der Anzeige die Form (das Programm) schliesse, dann bekomme ich die Meldung:
"Project ... faulted with message: 'system exception (code 0xe06d7363) at 0x76e3b727'"
Hat jemand eine Idee was ist hier falsch?

Gruß
marcos

Meine Umgebung: Delphi 2010; Win7/64

Testprogramm:

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls;

type
  TForm1 = class(TForm)
    pbOpenFile: TButton;
    pbCloseFile: TButton;
    WebBrowser1: TWebBrowser;
    procedure pbCloseFileClick(Sender: TObject);
    procedure pbOpenFileClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.pbCloseFileClick(Sender: TObject);
begin
   WebBrowser1.Navigate('about:blank');
end;

procedure TForm1.pbOpenFileClick(Sender: TObject);
begin
   WebBrowser1.Navigate('file:///' +'c:\temp\myTest.pdf');
end;

end.

Zitat von marcos:

Meine Umgebung: Delphi 2010; Win7/64

Und welche Acrobat-Version? Bei dieser Windows-Version wird nur ein voll gepatchter Acrobat 9 funktionsfähig sein.

Acrobat 9.3.4 - "keine neue Updates verfügbar".

marcos

So dunkel kann ich mich erinnern, daß ich das auch mal gehabt hab: ich glaub, Du mußt vor dem Beenden zu 'about:blank' navigieren, so daß sich das Reader Plugin entladen kann.

Grüße,
Uli

@Uli: er navigiert ja schon auf "about:blank"

Das alleine hilft aber nicht. Es gibt einen Fehler im Acrobat, der Adobe schon lange bekannt ist und der beim Beenden manchmal eine Zugriffsverletzung verursacht.

Um das zu vermeiden sollte man zuerst auf "about:blank" gehen und auch wirklich warten bis diese Seite komplett geladen ist. Danach CoFreeUnusedLibraries aufrufen.

@Daniela: nur wenn der TE den Button drückt

Daß der Fehler Adobe bekannt ist, wußte ich nicht. Danke für den Tip mit CoFreeUnusedLibraries. Werd ich demnächst mal einbauen und ausprobieren.


Grüße,
Uli

Evtl. den Browser noch freigeben beim Beenden.

markieren

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Hide;
  WebBrowser1.Navigate('about:blank');
  while WebBrowser1.Busy do
      Application.ProcessMessages;

  WebBrowser1.Free;
  CoFreeUnusedLibraries; // Unit ActiveX
end;

Daniela,

"ten points" , damit funktioniert, danke.

Gruß
marcos