TEdgeBrowser in Delphi 12?

[PeterPanino]

Ich habe versucht, in Delphi 12 ein TEdgeBrowser Beispiel zu basteln, das eine lokale HTML-Datei lädt:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Winapi.WebView2, Winapi.ActiveX,
  Vcl.Edge, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    EdgeBrowser1: TEdgeBrowser;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  var sl := TStringList.Create;
  try
    sl.LoadFromFile('C:\DELPHI\_test\Test.html');
    EdgeBrowser1.NavigateToString(sl.Text);
  finally
    sl.Free;
  end;
end;

end.

Die EmbeddedBrowserWebView.dll (119.0.2151.72) habe ich in das Exe-Verzeichnis gelegt. Es wird aber nichts angezeigt, obwohl die HTML-Datei gültig ist.
OS: Windows 10
Edge ist im System installiert und funktioniert ohne Probleme.

Wie kann man das zum Laufen bekommen?

[himitsu]

Werden andere Seiten auch nicht angezeigt?
EdgeBrowser1.Navigate('https://www.delphipraxis.net/214140-tedgebrowser-delphi-12-a.html');


ach ja
EdgeBrowser1.Navigate('file:///c:/DELPHI/_test/Test.html');







PS: TFile.ReadAllText

[Bernhard Geyer]

Ist denn die "Microsoft Edge WebView2-Laufzeit" auf dem Rechner installiert?
Der "Microsoft Edge" kann NICHT in anderen Anwendungen embedded integriert werden.

[mkinzler]

Ist die Erweiterung über GetIt installiert?

[MEissing]

Randbemerkung: Installieren aus GetIt reicht nicht. Die passende DLL muss auch für die eigene Anwendung auffindbar sein (zB in System32 (64 Bit DLL) oder SysWoW64 (32 Bit DLL / ohne neben der EXE)