Italian Webview

'Activity module
Sub Process_Globals

End Sub

Sub Globals
    Dim Button1 As Button
    Dim EditText1 As EditText
    Dim b4a As String
    b4a = "http://www.b4x.com"

End Sub

Sub Activity_Create(FirstTime As Boolean)
   
Activity.LoadLayout("latuaLayaut")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub JobDone (Job As String)
 Dim s As String
 If HttpUtils.IsSuccess(b4a) Then
 s = HttpUtils.GetString(b4a)
 Log("Start code:" & s & "End code")
EditText1.text=s
 End If
 End Sub

Sub Button1_Click
 HttpUtils.CallbackActivity = "Main" 'Current activity name.
 HttpUtils.CallbackJobDoneSub = "JobDone"
 HttpUtils.Download("Job1", b4a)
End Sub