Sub Process_Globals
End Sub
Sub Globals
Private http As OkHttpClient
End Sub
Sub Activity_Create(FirstTime As Boolean)
http.Initialize("Http")
End Sub
Sub Activity_Resume
Test
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Test
Sleep(1000)
Dim req As OkHttpRequest
req.InitializePost2("http://192.168.1.4:5232/test","value".GetBytes("UTF8"))
http.Execute(req,Rnd(100,200))
End Sub
Sub Http_ResponseSuccess (Response As OkHttpResponse, TaskId As Int)
Response.GetAsynchronously("Response", _
File.OpenOutput(File.DirInternalCache, "res.dat", False), True, TaskId)
End Sub
Sub Http_ResponseError (Response As OkHttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
Log("Error")
End Sub
Sub Response_StreamFinish (Success As Boolean, TaskId As Int)
Log("Response: " & File.ReadString(File.DirInternalCache, "res.dat"))
File.Delete(File.DirInternalCache, "res.dat")
End Sub