Sub Globals
Dim WebView1 As WebView
Dim WebViewExtras1 As WebViewExtras
Dim WebViewSetting1 As WebViewSettings
Dim WebChromeClient1 As DefaultWebChromeClient
Dim rp As RuntimePermissions
End Sub
Sub Activity_Create(FirstTime As Boolean)
WebView1.Initialize("WebView1")
WebView1.JavaScriptEnabled=True
WebChromeClient1.Initialize("test")
WebViewExtras1.Initialize(WebView1)
WebViewExtras1.addJavascriptInterface(WebView1, "B4A")
WebViewExtras1.SetWebChromeClient(WebChromeClient1)
WebViewSetting1.setDatabaseEnabled(WebView1, True)
WebViewSetting1.setAppCacheEnabled(WebView1,True)
WebViewSetting1.setDOMStorageEnabled(WebView1,True)
WebViewSetting1.setGeolocationEnabled(WebView1,True)
WebViewSetting1.setJavaScriptCanOpenWindowsAutomatically(WebView1,True)
WebViewSetting1.setLoadWithOverviewMode(WebView1,True)
WebViewSetting1.setDatabasePath(WebView1,"")
WebViewSetting1.setAllowFileAccess(WebView1,True)
rp.CheckAndRequest(rp.PERMISSION_CAMERA)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
rp.CheckAndRequest(rp.PERMISSION_RECORD_AUDIO)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Dim client As JavaObject
client.InitializeNewInstance(Application.PackageName & ".main$MyChromeClient", Null)
Dim jo As JavaObject = WebView1
jo.RunMethod("setWebChromeClient", Array(client))
WebView1.LoadUrl("https://pellegrino.vendingmanager.it/mobile/scattofoto2.php")
End If
End If
Activity.AddView(WebView1, 0, 0, 100%x, 100%y)
Activity.AddMenuItem("TEST","testmenu")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
#if Java
import android.webkit.*;
public static class MyChromeClient extends WebChromeClient {
@Override
public void onPermissionRequest(PermissionRequest request) {
request.grant(request.getResources());
}
}
#End If