'Activity module
Sub Process_Globals
End Sub
Sub Globals
Dim etNumber As EditText
etNumber.Initialize("etNumber")
Dim cmdSubmit As Button
cmdSubmit.Initialize("cmdSubmit")
cmdSubmit.Text = "Submit"
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.AddView(etNumber, 10, 10, 100%x-20,100)
Activity.AddView(cmdSubmit, 10, 110, 100%x-20,100)
End Sub
Sub cmdSubmit_Click
Dim jobPost As HttpJob
jobPost.Initialize("JobPostName",Me)
jobPost.PostFile("http://website/b4a/upload.php",File.DirRootExternal,"1.zip")
End Sub
Sub JobDone (Job As HttpJob)
Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
If Job.Success = True Then
Select Job.JobName
Case "JobPostName"
ToastMessageShow("Success!", True)
End Select
Else
Log("Error: " & Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub