Sub myHttpClient_ResponseSuccess (Response As HttpResponse, TaskId As Int)
Response.GetAsynchronously("WebserviceResponse", File.OpenOutput(File.DirInternalCache, "WebserviceResponse.xml", False), True, TaskId)
End Sub
Sub WebserviceResponse_StreamFinish (Success As Boolean, TaskId As Int)
If Success = False Then
Msgbox(LastException.Message, "Error")
Return
End If
Log("Success:")
Dim myInputStream As InputStream
myInputStream = File.OpenInput(File.DirInternalCache, "WebserviceResponse.xml")
mySaxParser.Parse(myInputStream, "mySaxParser")
End Sub