TSampleHostObjectClass.CallCallbackAsynchronously has an access violation when it calls Param1.Invoke with an empty GUID

Please, change

procedure OutputDebugMessage(const aMessage : string);
begin
  {$IFDEF DEBUG}
  OutputDebugString({$IFNDEF DELPHI16_UP}PAnsiChar{$ELSE}PWideChar{$ENDIF}(aMessage + #0));
  {$ENDIF}
end;

to

procedure OutputDebugMessage(const aMessage : string);
begin
  {$IFDEF DEBUG}
  OutputDebugString({$IFNDEF DELPHI14_UP}PAnsiChar{$ELSE}PWideChar{$ENDIF}(aMessage + #0));
  {$ENDIF}
end;

in file uWVMiscFunctions ?

The documentation talks about chromium, so it seems reasonable to assume OSX / Linux are supported, but the details are all windows/edge based. So it would be good to clear about which OSs are known to be supported, which are known not to be possible, and which are possible

SimpleBrowser.zip

Compiled the tabsheetbrowser demo, using Lazarus 2.2 64-bit, running on Windows 11 Version 22H2.
The supported WebView2Loader.dll version was the one that was included in this repository. Am I missing something? The readme file stated that if Windows 10/11 we already have the green version.

Please add support for TPopupMenu.

in AMEdgeBrowser i use a workaround by javascript

https://github.com/amancini/AMEdgeBrowser/blob/main/Src/AMEdgeBrowser.pas

best regards

How can i get console.log messages?

MacOS support in WebView2 is being tracked here.

WebView4Delphi will support MacOS as soon as WebView2 works on that platform.

Hello,

I got the exception "Property PixelsPerInch does not exists" when run the Tabbed Browser Demo.
It's when create the BrowserFrame.
I use Delphi 10.1 Berlin.

How to fix that?

procedure TMiniBrowserFrm.WVBrowser1AfterCreated(Sender: TObject);
begin
// We need to a filter to enable the TWVBrowser.OnWebResourceRequested event
WVBrowser1.AddWebResourceRequestedFilter('*', COREWEBVIEW2_WEB_RESOURCE_CONTEXT_ALL);

end;
procedure TMiniBrowserFrm.WVBrowser1WebResourceResponseReceived(
Sender: TObject; const aWebView: ICoreWebView2;
const aArgs: ICoreWebView2WebResourceResponseReceivedEventArgs);
var
TempArgs : TCoreWebView2WebResourceResponseReceivedEventArgs;
TempResponse : TCoreWebView2WebResourceResponseView;
uriP: PWideChar;
uri: string;
begin
TempArgs := TCoreWebView2WebResourceResponseReceivedEventArgs.Create(aArgs);
TempResponse := TCoreWebView2WebResourceResponseView.Create(TempArgs.Response);
TempArgs.Request.Get_uri(uriP);
uri := uriP;
if not uri.Contains('getrealposlist') then Exit;
Memo1.Lines.Add( DateTimeToStr(Now)+ ':' + uriP);
//TempResponse.GetContent();

end;

WVBrowser1WebResourceResponseViewGetContentCompleted event not emited.

The caret in the address box disappears when the user changes the active tab.
The address box has the focus and the user can type but there's no caret.
If the user shows the system menu then the caret shows again.

Hello.
I encountered an issue using the custom right-click menu callback event "ContextMenuRequested" in Lazarus.
When setting the menu item to select an event proxy object, it causes the browser object (WVBrowser1) address to become invalid.
critical code:
Current browser object:
TempMenuItem.AddCustomItemSelectedEvent(WVBrowser1);

Temporary copy:
TempMenuItem.AddCustomItemSelectedEvent(WVBrowser2);

Operation steps:
After the program runs.

1. In the browser window, right-click the mouse and the menu will pop up correctly. Execute correctly.
2. Click on the window (TButton) to trigger an event. Execute correctly. (Switchable window, uncertain when this issue will occur)
3. In the browser window, right-click the mouse and it does not execute correctly. The window appears unresponsive and freezes.

The reproduction method of this problem can be repeatedly found by right clicking on the browser window, clicking a button, or switching windows

The current temporary solution is to create another TWVBrowser object and only handle the Custom Item Selected event.

Code change from CookieManager example

procedure TMainForm.WVBrowser1ContextMenuRequested(Sender: TObject; const aWebView: ICoreWebView2; const aArgs: ICoreWebView2ContextMenuRequestedEventArgs);
var
  TempArgs: TCoreWebView2ContextMenuRequestedEventArgs;
  TempCollection: TCoreWebView2ContextMenuItemCollection;
  TempMenuItemItf: ICoreWebView2ContextMenuItem;
  TempMenuItem: TCoreWebView2ContextMenuItem;
begin
  TempArgs := TCoreWebView2ContextMenuRequestedEventArgs.Create(aArgs);
  TempCollection := TCoreWebView2ContextMenuItemCollection.Create(TempArgs.MenuItems);
  TempMenuItem := nil;

  try
    TempCollection.RemoveAllMenuItems;

    if WVBrowser1.CoreWebView2Environment.CreateContextMenuItem('Exit', nil, COREWEBVIEW2_CONTEXT_MENU_ITEM_KIND_COMMAND, TempMenuItemItf) then
    try
      TempMenuItem := TCoreWebView2ContextMenuItem.Create(TempMenuItemItf);
      FExitCommandID := TempMenuItem.CommandId;
      TempMenuItem.AddCustomItemSelectedEvent(WVBrowser1);// Replace temporary resolution code here
      TempCollection.InsertValueAtIndex(0, TempMenuItemItf);
    finally
      FreeAndNil(TempMenuItem);
    end;
  finally
    FreeAndNil(TempCollection);
    FreeAndNil(TempArgs);
  end;
end;

procedure TMainForm.WVBrowser1CustomItemSelected(Sender: TObject; const aMenuItem: ICoreWebView2ContextMenuItem);
var
  TempMenuItem: TCoreWebView2ContextMenuItem;
begin
  TempMenuItem := TCoreWebView2ContextMenuItem.Create(aMenuItem);

  if (TempMenuItem.CommandId = FExitCommandID) then
    PostMessage(Handle, WM_CLOSE, 0, 0);
  FreeAndNil(TempMenuItem);
end;

First run display window:

No feedback from the window after right clicking:

The window is stuck:

@salvadordf
Hello, I am the author of the energy open source framework and previously wrapped a set of underlying libraries in Golang using Lazarus CEF4Delphi.
Now I have also used Golang to encapsulate a complete set of dynamic link libraries based on Lazarus WebView4Delphi.
I have a question, I in the class: "TWVBrowserBase, TCoreWebView2," function "AddHostObjectToScript, AddHostObjectToScriptWithOrigins"
The parameter "object_: OleVariant" in these functions.
At this point I am not familiar with the "OleVariant" type and do not know how to use such a parameter passed in a dynamic library.
Can you give me some suggestions for reference?
I call this dynamic library API in Golang.
Can I create a generic class wrapper "OleVariant "type in Lazarus to use? Can you give me some hints.

Thank you very much.

this line can run in delphi well,but in Lazarus, it crashed, it seems can't call TAutoObjectFactory.Create in the EXE project?
TAutoObjectFactory.Create(ComServer, TMainHostObject, Class_SampleHostObjectClass,
ciMultiInstance, tmApartment);

Some Delphi installations seem to have problems locating the ToolsAPI.pas unit or the designide.dcp file and it's not possible to build the project.

Delphi should have the following files and directories :

• C:\Program Files (x86)\Embarcadero\Studio\ xx.xx \source\ToolsAPI : ToolsAPI.pas should be in this directory.
• C:\Program Files (x86)\Embarcadero\Studio\ xx.xx \lib\win32\release : designide.dcp should be in this directory.

Delphi should have this entry in the library path for Windows 32-bit :
$(BDSLIB)\$(Platform)\release

The browsing path should have this entry for Windows 32-bit and Windows 64-bit :
$(BDS)\source\ToolsAPI

On initialization of my DLL create the GlobalWebView2Loader and start it.
Now I want to make some forms that should show the content of an URL. I did it like your SimpleBrowser example. When I open it and wait, eveything goes fine. When I move it during of creating/navigate the process stucks and no event (ControllerCompleted nor AfterCreated) got invoked. Now nothing helps excepts restarting the whole application.
When I open one form und then open an other form and move the first one over the second one while the second one is waiting on the next event after CreatingBrowser the process got stuck. Nothing helps excepts restarting the whole application...
Sometime I got the InitializationError: The parent windows was destroyes before the controller creation was finished. What should I do when the forms closes und the creation was not finished?

Do you know what I'm doing wrong or are that limitations of the WebView2?

D10.2.3
On the tabbed Demo no pixel per inch for my Delphi
I took off the property by hand from DFM's

Furthermore on windowlessbrowser demo
on line 237 WVBrowser1.CreateWindowlessBrowser(FWVDirectCompositionHost.Handle)
and

Result := CreateWindowlessBrowser(aHandle, GlobalWebView2Loader.Environment)
I traced it to this point Result := FCoreWebView2Environment.BaseIntf

I recently made use of your project to replace the TWebBrowser with the Edge engine. Thank you for open sourcing this project.

When it came time to deploying, I discovered that despite the fact that my application is for the VCL, I now need to deploy the FMX BPL (~12Mb) because the run-time package includes the FMX browser and related classes. I have removed those references and compiled a different run-time package, but as a result, it makes it hard to manage your repo as a Git sub-module and keep everything up to date.

Would you please separate the run-time package into one for the VCL and one for FMX and have the Design-time package use both of them?

I was wondering if it would be not too hard to make this project compatible with Delphi 7 ?

The latest WebView2 update seems to cause a crash when the application has CEF and WebView2 browsers in the same form.

Also reported in the CefSharp project and CEF4Delphi project.

Dear salvadordf，Sorry to bother you again, but it seems that I cannot receive activation emails after registering in forum 'briskbard.com'.

When I click on a webpage button, it triggers the submit event，then a .csv file will be directly opened in the pop-up ChildForm. However, I hope to implement downloading the file instead of directly opening it in the browser. How can I modify the code to achieve the desired result?
Thank you！！！

Hello,

if you change the parent of the form that hosts the WVBroser, you go to create an inconsistency in the CoreWebView2Controller interface which is invisible and without parent.

i also tried re-assigning the parentWindow and resetting the visibility but it doesn't work.

I think it's a Microsoft bug, do you know any workarounds?

you can easily reproduce the problem through the tabbedBrowser demo unit that I modified and attached

best regards
TabbedBrowserChange.zip

Hi.
How to get html source code?

I use WebView4Delphi VCL.

When I run and terminated my application on debug mode, the application has leaked memory.

Memory leak description follows:

--------------------------------2024/4/23 12:47:46--------------------------------
A memory block has been leaked. The size is: 52

This block was allocated by thread 0x6B28, and the stack trace (return addresses) at the time was:
63727E [System.pas][System][@getmem$qqri][4949]
638B43 [System.pas][System][TObject.NewInstance][18306]
639242 [System.pas][System][@ClassCreate$qqrpvzc][19635]
88D0EA [uWVCoreWebView2Profile.pas][uWVCoreWebView2Profile][TCoreWebView2Profile.Create]
8874E1 [uWVCoreWebView2.pas][uWVCoreWebView2][TCoreWebView2.GetProfile][2344]
895A45 [uWVBrowserBase.pas][uWVBrowserBase][TWVBrowserBase.ControllerCompletedHandler_Invoke][4073]
872437 [uWVCoreWebView2Delegates.pas][uWVCoreWebView2Delegates][TCoreWebView2CreateCoreWebView2ControllerCompletedHandler.Invoke][1570]
679E2BC3 [Unknown function at ??0IDataFieldVisitor@telemetry_client@@QAE@ABV01@@z]
679D8EEF [Unknown function at ??0IDataFieldVisitor@telemetry_client@@QAE@ABV01@@z]
679DF454 [Unknown function at ??0IDataFieldVisitor@telemetry_client@@QAE@ABV01@@z]
6798B2E5 [Unknown function at OQS_SIG_verify]

The block is currently used for an object of class: TCoreWebView2Profile

The allocation number is: 8394

Current memory dump of 256 bytes starting at pointer address 7F36B7C0:
38 C9 88 00 00 C5 82 31 00 C5 82 31 00 C5 82 31 00 C5 82 31 00 C5 82 31 00 C5 82 31 00 C5 82 31
00 C5 82 31 14 00 00 00 00 00 00 00 00 00 00 00 5D CF 06 7A 80 80 80 80 00 00 00 00 41 C6 36 7F
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 B8 1C 00 00 ED 72 63 00 CB DC 63 00 9E 57 6B 00
83 5A 72 00 C3 5D 6B 00 80 F8 69 00 F3 F9 69 00 D7 FA 69 00 B7 D8 69 00 25 51 6B 00 D0 D8 69 00
28 6B 00 00 28 6B 00 00 9A 72 63 00 8C DF 63 00 18 C4 63 00 94 D8 64 00 A9 D8 64 00 25 8D 63 00
5A 8B 63 00 8D 92 63 00 F0 D4 69 00 57 8C 63 00 ED 83 6B 00 28 00 00 00 00 00 00 00 7D 52 1D 88
90 EC BB 00 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80
80 80 80 80 80 80 80 80 82 AD E2 77 80 80 80 80 80 80 80 80 80 80 80 80 00 00 00 00 81 86 36 7F
8 . . 1 . 1 . 1 . 1 . 1 . 1 . 1
. 1 . . . . . . . . . . . . ] . z . . . . A 6 �
. . . . . . . . . . . . . . . . . . . r c . c . W k .
Z r . ] k . i . i . i . i . % Q k . i .
( k . . ( k . . r c . c . . c . d . d . % c .
Z c . c . i . W c . k . ( . . . . . . . } R .
.
w . . . . 6 �

--------------------------------2024/4/23 12:47:46--------------------------------
This application has leaked memory. The small block leaks are (excluding expected leaks registered by pointer):

37 - 52 bytes: TCoreWebView2Profile x 1

Note: Memory leak detail is logged to a text file in the same folder as this application. To disable this memory leak check, undefine "EnableMemoryLeakReporting".

UserAgent is not changed if i open link that has target='_blank'

P.S. target = 'blank' works correctly.

As requested in a FB thread, some initial XE4 compilation error reports:

• UnixToDateTime takes only one parameter and doesn't support the AReturnUTC parameter in XE4.
• ISO8601ToDate was not introduced since XE6.

I'll report more once once I can get these fixed.

TCoreWebView2.RemoveAllEvents has an access violation when it tries to call FBaseIntf5.remove_ClientCertificateRequested.
That call is disabled at this moment.

How do I interact with the web page?
Can you make a demo?
I have a page with a button
put some text pressing the button get response

"OnAccelerationKeyPressed" event doesn't trigger when Search dialog window (Ctrl+F) was activated. Can i handle all acceleration keys except Ctrl+F?

Hi,

I used the code of SimpleBrowser Demo (runs fine) and expand to a kind of SimpleTabbedBrowser (because the TabbedBrowser Demo is much complicate for my little project - I only need the view...).

But now nothing is rendering.

What's wrong?

TestWebView.zip

Would you consider a synchronous capture method (as well as a synchronous script execution too) ? This could be done by introducing a TEvent and a timeout in a method which could be named TWVBrowserBase.CapturePreviewSync.
Let me know if you need some code to illustrate this request.

Hello,

when I try to use your implementation with Thinfinity (https://www.cybelesoft.com/thinfinity/virtualui/),
I get the error message: error code 0x80070005 ... any idea where to look ?

Nils

I found probably a problem in MiniBrowser demo.

In the WVBrowser1WebResourceResponseViewGetContentCompleted procedure,
there is this line
TempOLEStream.Read(FResourceContents, TempOLEStream.Size);

This give me access violation. It should not read but write content.

(btw. thanks for Delphi 7 support)

Hello,

Thanks for your work. You are amazing.

please add some useful function:

SelectAll

  WVBrowser1.CoreWebView2.BaseIntf.ExecuteScript('this.document.execCommand("SelectAll", true);',ICoreWebView2ExecuteScriptCompletedHandler(
    function (errorCode: HResult; resultObjectAsJson: PWideChar): HResult stdcall
    begin
      Result := S_OK;
    end))

CopySelected

WVBrowser1.CoreWebView2.BaseIntf.ExecuteScript('this.document.execCommand("copy");',ICoreWebView2ExecuteScriptCompletedHandler(
  function (errorCode: HResult; resultObjectAsJson: PWideChar): HResult stdcall
  begin
    Result := S_OK;
  end))

ClearSelection

    WVBrowser1.CoreWebView2.BaseIntf.ExecuteScript('window.getSelection().removeAllRanges();',
              ICoreWebView2ExecuteScriptCompletedHandler(
      function (errorCode: HResult; resultObjectAsJson: PWideChar): HResult stdcall
      begin
        Result := S_OK;
      end));

FindText

Procedure FindText(Const aText:String;aCaseSensitive, aBackwards, aWrapAround,
            aWholeWord, aSearchInFrames:Boolean);
begin
   if not WVBrowser1.Initialized then exit;
  
   WVBrowser1.CoreWebView2.BaseIntf.ExecuteScript(PWideChar(Format('window.find("%s",%s,%s,%s,%s,%s,false)',[
                    aText,
                    BoolToStr(aCaseSensitive,true).ToLower,
                    BoolToStr(aBackwards,true).ToLower,
                    BoolToStr(aWrapAround,true).ToLower,
                    BoolToStr(aWholeWord,true).ToLower,
                    BoolToStr(aSearchInFrames,true).ToLower
                    ])),
              ICoreWebView2ExecuteScriptCompletedHandler(
      function (errorCode: HResult; resultObjectAsJson: PWideChar): HResult stdcall
      begin
        Result := S_OK;
      end));

this function is call by event onFind of standard TFindDialog

procedure TFormBrowserEDGE.FindDialog1Find(Sender: TObject);
begin
  inherited;
  FindText(FindDialog1.FindText,
    frMatchCase in FindDialog1.Options,
    not (frDown in FindDialog1.Options),
    true,//??
    frWholeWord  in FindDialog1.Options,
    True//??
    )
end;

SaveToFile

Get HTML Source and SaveToFile

end;

Best regards
Alessandro Mancini

TSampleHostObjectClass.CallCallbackAsynchronously has an access violation error when it calls Param1.Invoke with a TGUID.Empty parameter.

Linux support in WebView2 is being tracked here.

WebView4Delphi will support Linux as soon as WebView2 works on that platform.

如果不设置DefaultScriptDialogsEnabled:=false，OnScriptDialogOpening事件似乎不起作用,但是在uWVBrowser中没有这个属性，是否需要单独加上这个属性？谢谢！

Hi, this is a great job you did! Is there a way to capture the console.log in a similar way to CEF4Delphi? Thank you.

I'm working on a Delphi legacy project that's in Delphi 2005. We want to move to web which would work much better than the client server application we're currently only. Long story short, we're wanting to create a form with an embedded browser that we can use as were replace different parts of the application. So I am not sure if this issue is specific to Delphi 2005 or not.

If I put a TWVBrowser on a form and hook it up to a TWVWindowParent on a Form. I do all the initialization etc. Anyhow I'm able to pull up web pages no problem.

The problem comes with ShowModal. Ideally I start the navigation then call show modal so there is a little less evident delay loading the page. If I use Form.Show this all works great, however when I use ShowModal which I often will need to do, The handles are all released and new handles are issued. The actual browsers parent becomes invalid. I've looked for a way to reassign the parent but haven't had much luck. Is there a way to reassign the parent in the event that the handle for the TWVWindowParent is release and renewed? Let me know if you want a demo project.

The latest WebView2Loader.dll has a new GetAvailableCoreWebView2BrowserVersionStringWithOptions function with similar results to GetAvailableCoreWebView2BrowserVersionString but it's not implemented by the internal loader.

The internal loader is a translation of the OpenWebView2Loader project and it's based in the DRT.WIN.WebView2Loader.pas unit from the DRT project.

In WebView2 1.0.1414, new APIs have been added to control the printing process.
I can't find those functions in the *.pas files.

Could it be possible to add them?

Reference: https://learn.microsoft.com/en-us/microsoft-edge/webview2/release-notes?tabs=dotnetcsharp#101414-prerelease

If you write a site just xxxxx.com it does not do anything
I have to add HTTP:// not like chrome and others

The focus is not handled correctly in SimpleFMXBrowser and we can see two blinking carets some times : one in the address box and another in the search box.

Well great job
How about making https://github.com/mikelustosa/Projeto-TInject
with your WebView?

code:
WVBrowser1.AddWebResourceRequestedFilterWithRequestSourceKinds('', COREWEBVIEW2_WEB_RESOURCE_CONTEXT_IMAGE, COREWEBVIEW2_WEB_RESOURCE_REQUEST_SOURCE_KINDS_ALL);
WVBrowser1.AddWebResourceRequestedFilterWithRequestSourceKinds('', COREWEBVIEW2_WEB_RESOURCE_CONTEXT_MEDIA, COREWEBVIEW2_WEB_RESOURCE_REQUEST_SOURCE_KINDS_ALL);
but WebResourceRequested event can not get the url if this url open in iframe,why?

When turning on 150% blooming on a 4K screen, the rendering page will pop out of the Tabsheet border
My Exe Project Manifest Set:
DPI Awareness: GDI Scaling
Execution Level: As Invoker

Delphi Ver: XE 10.4.3
Under other circumstances, it is normal

在4K屏幕下并开启150%绽放时,渲染页会跳出Tabsheet的边框,其它情况下正常.

Update to Microsoft.Web.WebView2 1.0.1901.177

Repository: https://www.nuget.org/packages/Microsoft.Web.WebView2

Direct Download Link: https://www.nuget.org/api/v2/package/Microsoft.Web.WebView2/1.0.1901.177

Filename of NuGet-package: microsoft.web.webview2.1.0.1901.177.nupkg

Open the downloaded package with 7-Zip else use WinArchiver, the .nupkg file extension carries an archive that is ZIP-2.0 archive.

The "Windowless mode" is implemented in the browser component but it's necessary to create a demo.