B4J Question OkHttpUtils in Server handler.

[jahswant]

Do I need something specia to make HTTP requests in a server handler ? I'm getting an error code ResponseError. Reason: Unauthorized, Response: when in server while this code works very well in a B4XPage Application.

I even followed this tutorial https://www.b4x.com/android/forum/threads/server-jokhttputils2-server-version.124350/ always get error code ResponseError. Reason: Unauthorized, Response: when in server handler.

 

[DonManfred]

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

 

[jahswant]

I handle very well the request but still doesn’t work !

 

[Erel]

Are you using the same Java version?

 

[jahswant]

Yes. It’s the same java version on the 2 apps !

 

[Erel]

It doesn't matter whether it is a server app or not. Maybe you added HU2_ACCEPTALL to the other app?

 

[jahswant]

It doesn't matter whether it is a server app or not. Maybe you added HU2_ACCEPTALL to the other app?

I’m not using any build configuration in any of the apps. I will zip the working project and send it to you because it contains my credentials. Then you’ll see yourself.

 

[Erel]

Send me both projects. If the projects are large then create small projects with only this feature.

 

[Erel]

1. Don't forget to configure server mode: https://www.b4x.com/android/forum/threads/okhttputils-in-server-handler.135544/
2. Don't forget to release jobs.

I see the issue you describe. It looks like the first request fails for some reason.
Implement a retry mechanism:

    Dim Success As Boolean =  False
    For retries = 1 To 5
        Dim j As HttpJob
        j.Initialize("",Me)
      '''
        wait for (j) JobDone(job As HttpJob)
        Success = Job.Success
        j.Release
        If Success Then
            Exit
        Else
            Sleep(500)
        End If
    Next
    Log("RequestToPay: " & Success)
    Return Success