-------
Dim infoMessage As HttpJob
infoMessage.Initialize("infoMessage", Me)
infoMessage.Download2(Main.httpStr & "message.php", Array As String("id", s))
---------
Sub JobDone(Job As HttpJob)
If Job.Success = True Then
Select Job.JobName
Case "infoMessage"
Dim s As String = Job.GetString
If s = "1" Then <-- not working, return 1
ToastMessageShow("this code block", False)
Else If s = "2" Then <-- not working, return 2
ToastMessageShow("this 2.code block", False)
End If
End Select
Job.Release
End If
Can not read the string data.
please help me.
Dim infoMessage As HttpJob
infoMessage.Initialize("infoMessage", Me)
infoMessage.Download2(Main.httpStr & "message.php", Array As String("id", s))
---------
Sub JobDone(Job As HttpJob)
If Job.Success = True Then
Select Job.JobName
Case "infoMessage"
Dim s As String = Job.GetString
If s = "1" Then <-- not working, return 1
ToastMessageShow("this code block", False)
Else If s = "2" Then <-- not working, return 2
ToastMessageShow("this 2.code block", False)
End If
End Select
Job.Release
End If
Can not read the string data.
please help me.