Einzelnen Beitrag anzeigen

PeterPanino

Registriert seit: 4. Sep 2004
1.465 Beiträge
 
Delphi 10.4 Sydney
 
#1

TEdgeBrowser in Delphi 12?

  Alt 23. Nov 2023, 00:46
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?
Geändert von PeterPanino, damit der Platz auf dem Bildschirm nicht so leer aussieht.
  Mit Zitat antworten Zitat