Sub hc3_ResponseSuccess(Response As HttpResponse, TaskId As Int)
Response.GetAsynchronously("GetRSS3", File.OpenOutput(File.DirDefaultExternal, "RSS3.xml", False), True, TaskId)
End Sub
Sub hc3_ResponseError(Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
If Response <> Null Then
Msgbox("Error: " & Response.GetString("UTF8"), "Connection Error")
Response.Release
End If
End Sub
Sub GetRSS3_StreamFinish(Success As Boolean, TaskId As Int)
If Success = False Then
Msgbox(LastException.Message, "Error")
Return
End If
Dim in As InputStream
in = File.OpenInput(File.DirDefaultExternal, "RSS3.xml")
Parser3.Parse(in, "Parser3")
in.Close
Activity.Title = "Bus Schedules: "
ProgressDialogHide
End Sub