Sub Globals
Private WebView1 As WebView
' from lib: WebViewExtras2 and WebViewSettings
Private WebViewEx As WebViewExtras
Private WebViewClient As DefaultWebViewClient
' from lib: UltimateWebView2
Private WebViewAssetLoader1 As WebViewAssetLoader
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout")
' Prepare Views
WebViewAssetLoader1.Initialize(Application.PackageName)
WebViewEx.Initialize(WebView1)
WebViewClient.Initialize("WebViewClient")
WebViewEx.SetWebViewClient(WebViewClient)
WebViewEx.JavaScriptEnabled=True
' Copy test data
File.MakeDir(File.DirInternal, "images")
File.Copy(File.DirAssets, "test.html", File.DirInternal, "test.html")
File.Copy(File.DirAssets, "test.jpg", File.Combine(File.DirInternal, "images"), "test.jpg")
End Sub
Private Sub WebViewClient_ShouldInterceptRequest(Url As String) As WebResourceResponse
Log("URL: " & Url)
Dim Response As WebResourceResponse
Dim ResponseReceived As WebResourceResponse
Try
ResponseReceived = WebViewAssetLoader1.ShouldInterceptRequest(Url)
If Not(ResponseReceived = Null) And ResponseReceived.IsInitialized Then
Response.Initialize(ResponseReceived.GetMimeType, ResponseReceived.GetEncoding, ResponseReceived.GetData)
Return Response
End If
Catch
' In case the URL fails to load, we receive an exception here
Log("URL not found: " & Url)
End Try
Return Null
End Sub