Workaround for issue #66

salvadordf · Aug 21, 2024 · a369af7 · a369af7
1 parent fcdb780
commit a369af7
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 1 deletion.
diff --git a/demos/Delphi_VCL/WindowlessBrowser/uWindowlessBrowser.pas b/demos/Delphi_VCL/WindowlessBrowser/uWindowlessBrowser.pas
@@ -1,5 +1,7 @@
 unit uWindowlessBrowser;
 
+{$I ..\..\..\source\webview2.inc}
+
 interface
 
 uses
@@ -356,6 +358,7 @@ procedure TMainForm.WVBrowser1InitializationError(Sender: TObject;
 procedure TMainForm.WVBrowser1WebMessageReceived(Sender: TObject;
   const aWebView: ICoreWebView2;
   const aArgs: ICoreWebView2WebMessageReceivedEventArgs);
+{$IFDEF DELPHI26_UP}
 var
   TempArgs   : TCoreWebView2WebMessageReceivedEventArgs;
   TempMsg    : string;
@@ -364,7 +367,11 @@ procedure TMainForm.WVBrowser1WebMessageReceived(Sender: TObject;
   TempPoint  : TPoint;
   TempSize   : TSize;
   TempScale  : single;
+{$ELSE}
+  // TO-DO: Use an alternative way to parse the JSON message in Delphi 10.2.3 Tokio or older
+{$ENDIF}
 begin
+{$IFDEF DELPHI26_UP}
   TempArgs := TCoreWebView2WebMessageReceivedEventArgs.Create(aArgs);
   TempMsg  := TempArgs.WebMessageAsJson;
 
@@ -397,6 +404,9 @@ procedure TMainForm.WVBrowser1WebMessageReceived(Sender: TObject;
 
   TempArgs.Free;
   TempObject.Free;
+{$ELSE}
+  // TO-DO: Use an alternative way to parse the JSON message in Delphi 10.2.3 Tokio or older
+{$ENDIF}
 end;
 
 procedure TMainForm.Timer1Timer(Sender: TObject);

diff --git a/update_WebView4Delphi.json b/update_WebView4Delphi.json
@@ -2,7 +2,7 @@
   "UpdateLazPackages" : [
     {
       "ForceNotify" : true,
-      "InternalVersion" : 160,
+      "InternalVersion" : 161,
       "Name" : "webview4delphi.lpk",
       "Version" : "1.0.2651.64"
     }