Sub Activity_Create(FirstTime As Boolean)
Dim pm As B4XPagesManager
pm.Initialize(Activity)
If FirstTime Then
'CopyGeoidFile
TestLoadHints1
End If
End Sub
Sub TestLoadHints1
Try
Dim hints As JavaObject
hints.InitializeNewInstance("org.geotools.util.factory.Hints", Array As Object())
Log("Hints instance created: " & hints)
Catch
Log("Error: " & LastException.Message)
End Try
End Sub
Sub TestLoadHints2
Try
Dim jClass As JavaObject
jClass.InitializeStatic("java.lang.Class")
Dim hintsClass As JavaObject = jClass.RunMethod("forName", Array("org.geotools.util.factory.Hints"))
Dim hints As JavaObject = hintsClass.RunMethod("newInstance", Null)
Log("Hints instance created: " & hints)
Catch
Log("Error: " & LastException.Message)
End Try
End Sub