Einzelnen Beitrag anzeigen

marcos

Registriert seit: 6. Mai 2006
50 Beiträge
 
#1

PDF in TWebBrowser - Absturz beim Schliessen der Form

  Alt 2. Okt 2010, 14:01
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:
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.
  Mit Zitat antworten Zitat