'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