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...

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 
            ...

SubRutine for simple echo...

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

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