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.