'Activity module
Sub Activity_Create(FirstTime As Boolean)
Dim req As HttpRequest
Dim hc As HttpClient
hc.Initialize("hc")
req.InitializeGet("http://yr.no/sted/Norge/Oslo/Oslo/Oslo/varsel.xml")
hc.Execute(req,1)
End Sub
Sub hc_ResponseSuccess (Response As HttpResponse, TaskId As Int)
Dim Parser As SaxParser
Dim Result As InputStream
Result = Response.GetInputStream
Log(Result)
Dim buffer(20000) As Byte
Log(Result.ReadBytes(buffer,0,buffer.Length))
' parse the xml file
Parser.Parse(Result, "Parser")
Result.Close
End Sub
Sub Parser_EndElement (Uri As String, Name As String, Attributes As Attributes)
' do stuff
End Sub
Sub Parser_StartElement (Uri As String, Name As String, Attributes As Attributes)
' do stuff
End Sub
Sub hc_ResponseError(Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
' catch error reason
End Sub