Android Question Parallel HttpJob requests

[GaNdAlF89]

Hi, I have this class:

[CODE lang="b4x" title="HttpTask"]Sub Class_Globals

Dim ModuleCallback As Object
Dim SocketEvent As String

Dim HJRequest As HttpJob

End Sub

Public Sub Initialize (mCallback As Object, sEvent As String)

ModuleCallback = mCallback
SocketEvent = sEvent

HJRequest.Initialize("",Me)

End Sub

Public Sub ExecuteRemoteQuery (RemoteQuery As String, TaskId As Int)

Dim RemoteQueryStr As String = "cmd=" & RemoteQuery & "&version=" & Starter.VersionNumber

HJRequest.PostBytes(Starter.ServerAddress & "/" & Starter.RemoteQueryScript,RemoteQueryStr.GetBytes("UTF8"))
HJRequest.GetRequest.Timeout = Starter.TimeoutOffline

Wait For (HJRequest) JobDone (HJResponse As HttpJob)

Dim Success As Boolean = HJResponse.Success
If (Success = True) Then

Dim ResponseData As String = HJResponse.GetString2("UTF8")

CallSubDelayed3(ModuleCallback,SocketEvent & "_ResponseSuccess",ResponseData,TaskId)

Else

Dim Response As OkHttpResponse = HJResponse.Response

CallSubDelayed3(ModuleCallback,SocketEvent & "_ResponseError",Response,TaskId)

Response.Release

End If

HJResponse.Release
HJRequest.Release

End Sub[/CODE]

Everything works perfectly. But if there are many parallel request, like:

[CODE lang="b4x" title="Activity sub"]Sub GetDataFromServer

If (Condition1) Then

Dim HT As HttpTask
HT.Initialize(Me,"CRSocket")
HT.ExecuteRemoteQuery("...params...",48)

End If

If (Condition2) Then

Dim HT As HttpTask
HT.Initialize(Me,"MBSocket")
HT.ExecuteRemoteQuery("...params...",50)

End If

If (Condition3) Then

Dim HT As HttpTask
HT.Initialize(Me,"TPSocket")
HT.ExecuteRemoteQuery("...params...",54)

End If

End Sub[/CODE]

I obtain this error:

ResponseError - Reason: java.net.SocketTimeoutException

How can I solve this, avoiding making requests one after the other? Thanks

 

[DonManfred]

How can I solve this, avoiding making requests one after the other?

[B4X] OkHttpUtils2 with Wait For

Downloading resources is simpler with the new Resumable Subs feature. Using Wait For we can wait for the JobDone event in the same sub that started the download. No longer is it needed to have a single sub that handles all requests results. Simplest example: Dim j As HttpJob j.Initialize(""...

www.b4x.com

 

[GaNdAlF89]

[B4X] OkHttpUtils2 with Wait For

Downloading resources is simpler with the new Resumable Subs feature. Using Wait For we can wait for the JobDone event in the same sub that started the download. No longer is it needed to have a single sub that handles all requests results. Simplest example: Dim j As HttpJob j.Initialize(""...

www.b4x.com

Thank for reply.
I know, but my question is:
why can't I send multiple httpjob requests at the same time (with different objects, obviously), and I have to wait the completion of a request to execute the next? (as was the case with old HttpRequest)

 

[Erel]

You can of course send requests in parallel.

This class doesn't do anything useful. It just has several bugs and makes things more complicated.
Simply use HttpJob directly as explained in the tutorial linked above.

 

[GaNdAlF89]

This class doesn't do anything useful. It just has several bugs and makes things more complicated.

can I know why and where? Thanks

 

[Erel]

Once you understand how to work with Wait For, you will see that this class only makes things more complicated. Correcting the bugs in this code will not help in any way.

 

[GaNdAlF89]

Once you understand how to work with Wait For, you will see that this class only makes things more complicated. Correcting the bugs in this code will not help in any way.

I made this class as a requests handler to aggregate them in all activities, in order to avoid writing almost the same code in all places.
Since the code in this class is almost identical to what I should write in all places (apart from the initialization), I would like to understand the reason why it is more complicated, and where bugs are inside it. Thank you for all

 

[Hamied Abou Hulaikah]

I think the problem is in httpjob referencing, you should try using object array, so all your requests will work in parallel.
Try like this "Not tested"

Sub Globals
   
    Dim HJRequest() As HttpJob
   
End Sub

'Each request has unique httpjob object, note TaskId also should be unique
Public Sub ParallelRequest (RemoteQuery As String, TaskId As Int)
    Dim RemoteQueryStr As String = "cmd=" & RemoteQuery & "&version=" & Starter.VersionNumber
    HJRequest(TaskId).Initialize("",Me)
    HJRequest(TaskId).PostBytes("url",RemoteQueryStr.GetBytes("UTF8"))
    Wait For (HJRequest(TaskId)) JobDone (HJResponse As HttpJob)
    Dim Success As Boolean = HJResponse.Success
    If Success Then
        Dim ResponseData As String = HJResponse.GetString2("UTF8")
        'do what you want ...
    End If
    HJResponse.Release
    HJRequest(TaskId).Release  
End Sub

 

[GaNdAlF89]

I think the problem is in httpjob referencing, you should try using object array, so all your requests will work in parallel.
Try like this "Not tested"

Sub Globals
  
    Dim HJRequest() As HttpJob
  
End Sub

'Each request has unique httpjob object, note TaskId also should be unique
Public Sub ParallelRequest (RemoteQuery As String, TaskId As Int)
    Dim RemoteQueryStr As String = "cmd=" & RemoteQuery & "&version=" & Starter.VersionNumber
    HJRequest(TaskId).Initialize("",Me)
    HJRequest(TaskId).PostBytes("url",RemoteQueryStr.GetBytes("UTF8"))
    Wait For (HJRequest(TaskId)) JobDone (HJResponse As HttpJob)
    Dim Success As Boolean = HJResponse.Success
    If Success Then
        Dim ResponseData As String = HJResponse.GetString2("UTF8")
        'do what you want ...
    End If
    HJResponse.Release
    HJRequest(TaskId).Release 
End Sub

Thank you! I will try...