Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim WebView1 As WebView
Dim WebViewExtras1 As WebViewExtras
Dim WebViewSetting1 As WebViewSettings
Dim WebChromeClient1 As DefaultWebChromeClient '---lib2
Dim rp As RuntimePermissions
End Sub
Sub Activity_Create(FirstTime As Boolean)
WebView1.Initialize("WebView1")
WebView1.JavaScriptEnabled=True
WebChromeClient1.Initialize("test")
WebViewExtras1.Initialize(WebView1) '---lib2
WebViewExtras1.addJavascriptInterface(WebView1, "B4A") ' NOT ESSENTIAL
WebViewExtras1.SetWebChromeClient(WebChromeClient1) '---lib2
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