Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
Try
Dim job As HttpJob
job.Initialize("", Me)
job.Download("http://test-b4i.ddns.net")
Wait For (job) JobDone (job As HttpJob)
If job.Success Then
Dim Data As String = job.GetString
WebView1.LoadHtml(Data)
Else
Dim Error As String = job.ErrorMessage
WebView1.LoadHtml(Error)
End If
Catch
Log(LastException.Message)
End Try
job.Release
End Sub
Sub WebView1_PageFinished (Success As Boolean, Url As String)
Log($"${Url} : ${Success}"$)
End Sub