iOS Question httpJob

[alizeti]

This code is not working unless I put a break point.
Any idea?

Dim job As HttpJob
   job.Initialize("", Me)
  
   'check result
   currentState = MANUAL_MODE
   If state == 1 Then
       'not activate, so need to activate
       job.PostString("https://api.particle.io/v1/devices/" & deviceName & "/zoneCtrlId", "access_token=" & accessToken & "&params=" & controlPin & "," & ON)
       manControlFlag = True
   Else If state == 0 Then
       'not activate, so need to activate
       job.PostString("https://api.particle.io/v1/devices/" & deviceName & "/zoneCtrlId", "access_token=" & accessToken & "&params=" & controlPin & "," & OFF)
       manControlFlag = False
   End If
  
  
   Wait For (job) JobDone(job As HttpJob)
   If job.Success = True Then
       Log(job.GetString)
       cloudRx = job.GetString
       updateState
       Log("result from Post is : " & result)
   Else
       Log("job failed")
   End If
  
   job.Release
End Sub

 

[Erel]

Please reproduce it in a small project and upload the project.

 

[OliverA]

Are you sure state (the variable) is always a 1 or 0? If it is not, then you hit the Wait For without having started a job, at which point the Wait For will wait forever.

 

[alizeti]

Please reproduce it in a small project and upload the project.

I would like to do it, but I can't. There is some information that I can't share since it's some keys for cloud processing.

 

[alizeti]

Are you sure state (the variable) is always a 1 or 0? If it is not, then you hit the Wait For without having started a job, at which point the Wait For will wait forever.

Yes, since, the minute I put I break point, it works

 

[Erel]

Which version of B4i are you using?

Hard to say much without running the code.

 

[alizeti]

Version 5

 

[alizeti]

'global
 Dim job As HttpJob
 jobPost.Initialize("jobPost", Me)

Private Sub manualControl (zone As String, controlPin As String, state As Int)
  
 
   'check result
   currentState = MANUAL_MODE
   If state == 1 Then
       'not activate, so need to activate
       jobPost.PostString("https://api.particle.io/v1/devices/" & deviceName & "/zoneCtrlId", "access_token=" & accessToken & "&params=" & controlPin & "," & ON)
       manControlFlag = True
   Else If state == 0 Then
       'not activate, so need to activate
       jobPost.PostString("https://api.particle.io/v1/devices/" & deviceName & "/zoneCtrlId", "access_token=" & accessToken & "&params=" & controlPin & "," & OFF)
       manControlFlag = False
   End If

End Sub

Sub JobDone (Job As HttpJob)
    Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
    
    If Job.Success = True Then
        Select Job.JobName
            Case "jobGet"
                Log(Job.GetString)
                cloudRx = Job.GetString
            Case "jobPost"
                Log(Job.GetString)
                cloudRx = Job.GetString
                'could check for error code to see if command was successfull
        End Select
        
        updateState
    Else
        Log("Error: " & Job.ErrorMessage)
        'mess'messagePToastMessageShow("Error: " & Job.ErrorMessage, True)
    End If
    Job.Release
End Sub

Which version of B4i are you using?

Hard to say much without running the code.

If I used the jobDone as as Sub function for both global httpJob object, it works perfectly. But if I try the way you guys suggest, it does not.
That what I found weird.

 

[Erel]

HttpJob should never be a global variable. Always create a new HttpJob inside the sub.

 

[alizeti]

I just noticed that the job.download() works find, but the job.postString() is not working properly.

All the examples with the jobDOne routine inside the sub is always with the job.download() and never with the job.postString().

Is it possible that the job.download() waits for a response and not job.postString()?

 

[Erel]

Is it possible that the job.download() waits for a response and not job.postString()?

No. Maybe the server you are communicating with never returns a response and keeps the connection open.