TEdgeBrowser Verwendung

[tomkupitz]

siehe Anhang...

ohne DLL (TWebBrowser) und mit DLL (TEdgeBrowser)

Das TWebBrowser Problem tritt auf mehreren Rechnern mit Win11 Pro auf.

Das ist mein Quelltext:

Delphi-Quellcode:

  if FileExists(AddBackSlash(ExtractFilePath(Application.Exename))+'WebView2Loader.dll') then
  begin
    FWebBrowser1:=TEdgeBrowser.Create(nil);
    FWebBrowser1.SetParentComponent(ParentControl);
    FWebBrowser1.Align:=alClient;

    FWebBrowser1.Navigate(FileName);
  end
  else
  begin
    FWebBrowser2:=TWebBrowser.Create(nil);
    FWebBrowser2.SetParentComponent(ParentControl);
    FWebBrowser2.Align:=alClient;

    FWebBrowser2.RegisterAsBrowser:=True;
    FWebBrowser2.SelectedEngine:=EdgeIfAvailable; //EdgeOnly; //IEOnly;
    FWebBrowser2.Silent:=True;

    i:=navNoHistory or navNoReadFromCache or navNoWriteToCache;

    s:=FileName;

    FWebBrowser2.Navigate(s, i);
  end;