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.