B4J Question OkHttpUtils in Server handler.

DonManfred

Expert

Licensed User

Longtime User

• Oct 28, 2021

• #2

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

 

Upvote 0

jahswant

Well-Known Member

Licensed User

Longtime User

• Oct 28, 2021

• #3

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

 

Upvote 0

Erel

B4X founder

Staff member

Licensed User

Longtime User

• Oct 29, 2021

• #4

Are you using the same Java version?

 

Upvote 0

jahswant

Well-Known Member

Licensed User

Longtime User

• Oct 29, 2021

• #5

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

 

Upvote 0

Erel

B4X founder

Staff member

Licensed User

Longtime User

• Oct 29, 2021

• #6

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

 

Upvote 0

jahswant

Well-Known Member

Licensed User

Longtime User

• Oct 29, 2021

• #7

Erel said:

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

Click to expand...

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.

 

Upvote 0

Erel

B4X founder

Staff member

Licensed User

Longtime User

• Oct 29, 2021

• #8

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

 

Upvote 0

Erel

B4X founder

Staff member

Licensed User

Longtime User

• Oct 31, 2021

• #9

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:

B4X:

    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

 

Upvote 0