Sub Globals
Dim hc As HttpClient
Dim req As HttpRequest
Dim WebView1 As WebView
Dim url As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
WebView1.Initialize("wb")
Activity.AddView(WebView1,0,0,100%x,100%y)
hc.InitializeAcceptAll("hc")
url = "http://xxxxx" 'the website of my client
req.InitializeGet(url)
hc.Execute(req, 1)
End Sub
Sub hc_ResponseSuccess(Response As HttpResponse, TaskId As Int)
Dim t As String
t = Response.GetString("UTF8")
WebView1.LoadHtml(t)
Response.Release
End Sub
Sub hc_ResponseError(Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
Log("Error")
Response.Release
End Sub