Sub Class_Globals
Dim mysaxparser As SaxParser
Private Myreturndata As String
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
End Sub
Sub getXMLreply As String
Dim JOBgetmydata As HttpJob
Dim myURL As String= "http://192.168.1.80/web/about"
JOBgetmydata.Initialize("JOBgetmydata", Me)
JOBgetmydata.Username="myusername"
JOBgetmydata.Password="mypassword"
JOBgetmydata.Download(myURL)
'return Myreturndata 'does not work - sub is not being used again
End Sub
Sub JobDone (Job As HttpJob)
Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
If Job.Success = True Then
Select Job.JobName
Case "JOBgetmydata"
Try
mysaxparser.Initialize
Dim result_data As InputStream
result_data = Job.GetInputStream
mysaxparser.Parse(result_data, "mysaxparser")
Catch
'do something different
End Try
Return Myreturndata '??? how to return data to the method(sub) getXMLreply
End Select
Else
Log("Error: " & Job.ErrorMessage)
End If
Job.Release
Log("job was released")
End Sub
Sub mysaxparser_EndElement (Uri As String, Name As String, Text As StringBuilder)
If mysaxparser.Parents.IndexOf("about") > - 1 Then
If Name = "service" Then
Myreturndata = Text.ToString
If Myreturndata.Length = 0 Then
Myreturndata = "No data"
End If
End If
End If
End Sub