When Android app post something to the server and waits response it will always get empty response with code written below. I'm clearly doing something wrong, but what?
Android app
Server (Main)
Server (TEST)
Android app
B4X:
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 SubServer (Main)
B4X:
Sub Process_Globals
Public srv As Server
End Sub
Sub AppStart (Args() As String)
srv.Initialize("SRV")
srv.AddHandler("/test", "TEST", False)
srv.Port = 5232
srv.Start
StartMessageLoop
End Sub
'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True
End SubServer (TEST)
B4X:
'Handler class
Sub Class_Globals
End Sub
Public Sub Initialize
End Sub
Sub Handle(req As ServletRequest, resp As ServletResponse)
Wait For (Test1) Complete(Answear As String)
resp.Write(Answear)
End Sub
Sub Test1 As ResumableSub
Sleep(3000)
Return "Response"
End Sub
