Sub Process_Globals
Dim hc As OkHttpClient
End Sub
Sub Globals
Private EditText1 As EditText
Dim OPS As OutputStream
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
hc.Initialize("HC")
End Sub
Sub Response_StreamFinish(Success As Boolean,TaskId As Int)
EditText1.Text = BytesToString(OPS.ToBytesArray, 0, OPS.ToBytesArray.Length, "UTF-8")
If EditText1.Text = "" Then EditText1.Text = "<none>"
End Sub
Private Sub HC_ResponseSuccess (Response As OkHttpResponse, TaskId As Int)
OPS.InitializeToBytesArray(0)
Response.GetAsynchronously("Response", OPS, True, TaskId)
End Sub
Sub Button1_Click
Dim hr As OkHttpRequest
hr.InitializeGet("http://marlar.dk/cookie.php")
hc.Execute(hr,1)
End Sub
Sub Clear
hc.Initialize("HC")
End Sub