B4J Question HttpJob - problem with request/response

[DarkoT]

Hello, I'm asking for help.
I created a WebApi server that responds to calls and returns appropriate results (I'm using a WEBAPI server template created by Aeric). Everything works fine and without problems, except for one thing. When my WebServices should call another WebServer and I want to initialize an HTTP Job, the system no longer returns any response to me. The function is executed correctly, without errors - to the end - but the system does not return any text or string... I can't find the error...

[CODE lang="b4x" title="Example" highlight="46,47"]
Sub Handle(req As ServletRequest, resp As ServletResponse)
Request = req
Response = resp
HRM.Initialize

' Key confirmation
If Main.API_KEY_ENABLED = True Then
Dim apiKey As String = req.GetHeader("x-api-key")

If apiKey <> Main.API_KEY Then
HRM.ResponseCode = 401
HRM.ResponseError = "Wrong api key"
HRM.ResponseString = "API key is not valid"
HRM.ResponseMessage = "API key is not valid"
HRM.ContentType = ""
Dim lstNo As List
lstNo.Initialize
HRM.ResponseData = lstNo
Utility.ReturnHttpResponse(HRM, Response)
Return
End If

End If

' checking allowed method
If req.Method <> "POST" Then
HRM.ResponseCode = 405
HRM.ResponseError = "Method Not Allowed"
Utility.ReturnHttpResponse(HRM, Response)
Return
End If

Dim ApiRequest As String = Request.RequestURI
ApiRequest = ApiRequest.SubString2(ApiRequest.LastIndexOf("/") + 1 , ApiRequest.Length)
ApiRequest = ApiRequest.ToLowerCase

Dim lstOptEcho As List
lstOptEcho.Initialize

' subhandlers
Select ApiRequest.ToLowerCase
Case "hallo"
EchoRequest

Case "test"
TestRequest

Case "sendorder"
Try
...[/CODE]

SubRutine for simple echo...

[CODE lang="b4x" title="Sub" highlight="4"]Private Sub TestRequest()

' HERE IS A PROBLEM; IF I DEFINE HTTPJOB, system lose response
Dim j As HttpJob
j.Initialize("j", Me)
j.Download("https://www.google.com")
Wait For (j) JobDone (j As HttpJob)
j.Release

Response.ContentType = "text/plain"
Response.Status = 200
Response.Write("SUCCESS")
Log("Response sent successfully")


End Sub
[/CODE]

Can somebody help me to figure out what is a problem?

Best regards, DaT

 

[aeric]

my WebServices should call another WebServer and I want to initialize an HTTP Job

Take a look at this:

[server] jOkHttpUtils2 - server version

OkHttpUtils2 methods are designed to be called on the main thread. This is the case in all platforms and configurations, except of B4J server solutions. Starting from jOkHttpUtils2 v2.95 it is possible to make it thread safe. This is done by following these steps: 1. Add the SERVER conditional...

www.b4x.com

 

[Magma]

Take a look at this:

[server] jOkHttpUtils2 - server version

OkHttpUtils2 methods are designed to be called on the main thread. This is the case in all platforms and configurations, except of B4J server solutions. Starting from jOkHttpUtils2 v2.95 it is possible to make it thread safe. This is done by following these steps: 1. Add the SERVER conditional...

www.b4x.com

Though that was needing only the following...

Sub Handle(req As ServletRequest, resp As ServletResponse)
   Download(resp)
   StartMessageLoop '<---
End Sub

Sub Download (resp As ServletResponse)
   Dim j As HttpJob
   j.Initialize("", Me)
   j.Download("https://www.example.com")
   Wait For (j) JobDone(j As HttpJob)
   If j.Success Then
     resp.Write(j.GetString)
   End If
   j.Release
   StopMessageLoop '<----
End Sub

That because webpages working asychronous...

What extra gives if use all the things in url ?
I didn't understand welll

 

[DarkoT]

Though that was needing only the following...

Sub Handle(req As ServletRequest, resp As ServletResponse)
   Download(resp)
   StartMessageLoop '<---
End Sub

Sub Download (resp As ServletResponse)
   Dim j As HttpJob
   j.Initialize("", Me)
   j.Download("https://www.example.com")
   Wait For (j) JobDone(j As HttpJob)
   If j.Success Then
     resp.Write(j.GetString)
   End If
   j.Release
   StopMessageLoop '<----
End Sub

That because webpages working asychronous...

What extra gives if use all the things in url ?
I didn't understand welll

Magma, Tnx...

This is solution!!!!

p.s. You desarve a biiiiig cafffeeeeee...

Br, DaT

 

[DarkoT]

Take a look at this:

[server] jOkHttpUtils2 - server version

OkHttpUtils2 methods are designed to be called on the main thread. This is the case in all platforms and configurations, except of B4J server solutions. Starting from jOkHttpUtils2 v2.95 it is possible to make it thread safe. This is done by following these steps: 1. Add the SERVER conditional...

www.b4x.com

Yes! this was basicaly solution - with Magmas explanation... Tnx guys...

 

[Magma]

One minute...

Ofcourse ... i am sure that all neeed...

 

[Magma]

But as I said - yes my apps are working too...

but i am sure there is a reason that all these need... @aeric tell us, why? - because i ve read Erel's post and i didn;t understand where jbuilder... and other things (SERVER at conditional) need...

do you know ? - is there a concurrency problem ?

 

[aeric]

What extra gives if use all the things in url ?
I didn't understand welll

Do you want to start a new thread for your question?

 

[aeric]

do you know ? - is there a concurrency problem ?

Honestly, I haven't have a chance to implement this.
My understanding is it may related to multi-thread.
One thing to find out is try to run in release mode. Because if you run in debug, it is using a single thread.

 

[aeric]

I was quickly replying the post.
I think the following code is more relevant as explained by Magma.

Resumable Subs (wait for / sleep) in server handlers

Resumable subs can only work when there is a message queue. By default, server handlers end when the Handle sub is completed. They do not create a message loop. If you want to wait for an event then you need to call StartMessageLoop and later StopMessageLoop. Example of handler that downloads...

www.b4x.com