Android Question Parallel HttpJob requests

[GaNdAlF89]

Hi, I have this class:

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

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

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

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