I have send a private build to test via email.
edit: For others reading this.
In the next release of the control the change needed in the code above looks like this
IOW, the line that starts with Document.CurrentBrowser is replaced with the line starting with Document.BrowserDispatch
Edit2: Originally the property exposing the IDispatch pointer was named "Dispatch" but there was a name clash when using Delphi, so the new property name eventually is IDispatchPointer.
--
Wil
edit: For others reading this.
In the next release of the control the change needed in the code above looks like this
Code:
Private Sub EdgeWebBrowser_OnExecuteScript(ByVal HResult As Long, ByVal JsonObject As String)
Dim Json As String
' Use the Document json decode function to make the result more readable
Document.BrowserDispatch (EdgeWebBrowser.IDispatchPointer)
Json = Document.DecodeJsonObjectString(JsonObject)
If Json <> "" Then
MsgBox Json
End If
End SubIOW, the line that starts with Document.CurrentBrowser is replaced with the line starting with Document.BrowserDispatch
Edit2: Originally the property exposing the IDispatch pointer was named "Dispatch" but there was a name clash when using Delphi, so the new property name eventually is IDispatchPointer.
--
Wil