Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
'load the layout to Root
Root.LoadLayout("Consent")
Dim strHtml As String = File.ReadString(File.DirAssets, "privacypolicy.htm")
strHtml = strHtml.Replace("image003.jpg", WebViewAssetFile("image003.jpg"))
strHtml = strHtml.Replace("image001.jpg", WebViewAssetFile("image001.jpg"))
WebView1.LoadHtml(strHtml)
End Sub
Sub WebViewAssetFile (FileName As String) As String
Dim jo As JavaObject
jo.InitializeStatic("anywheresoftware.b4a.objects.streams.File")
If jo.GetField("virtualAssetsFolder") = Null Then
Return "file:///android_asset/" & FileName.ToLowerCase
Else
Return "file://" & File.Combine(jo.GetField("virtualAssetsFolder"), _
jo.RunMethod("getUnpackedVirtualAssetFile", Array As Object(FileName)))
End If
End Sub