B4R Question Reading Job.Response value

Hamied Abou Hulaikah · Jun 10, 2021

Hi
I tried many times/approach to read job.response value and compare it, always failed!

Request url that response with 0 or 1 only without any space:

 HttpJob.Initialize("job1")
 HttpJob.Download("url")

Comparison inside select Not work:

Sub JobDone (Job As JobResult)
    If Job.Success Then
        If Job.JobName="job1" Then
            'always job.response=1 or 0
            Select Job.Response
                Case "0".GetBytes
                    Log("0")
                Case "1".GetBytes
                    Log("1")
            End Select
        End If
    End If
End Sub

Comparison inside select Not work:

Sub JobDone (Job As JobResult)
    If Job.Success Then
        If Job.JobName="job1" Then
            'always job.response=1 or 0
            Select Job.Response
                Case "0"
                    Log("0")
                Case "1"
                    Log("1")
            End Select
        End If
    End If
End Sub

Comparison inside select Not work:

Sub JobDone (Job As JobResult)
    If Job.Success Then
        If Job.JobName="job1" Then
            'always job.response=1 or 0
            Select Job.Response
                Case 0
                    Log("0")
                Case 1
                    Log("1")
            End Select
        End If
    End If
End Sub

What is the wrong?

tigrot · Jun 10, 2021

Show job.response value so you can check. Use log(job.response).

Hamied Abou Hulaikah · Jun 10, 2021

Job.response log print 1 or 0 no problem
The problem when you check if it is 1 or 0 programmatically! Not work!!!

tigrot · Jun 10, 2021

Compare with substring:

B4X:

            Dim bc As ByteConverter
            Select bc.SubString2(Job.Response, 0, 1)
                Case "0"
                    Log("0")
                Case "1"
                    Log("1")
            End Select

Hamied Abou Hulaikah · Jun 11, 2021

tigrot said:

Compare with substring:

B4X:

            Dim bc As ByteConverter
            Select bc.SubString2(Job.Response, 0, 1)
                Case "0"
                    Log("0")
                Case "1"
                    Log("1")
            End Select

Not work!
Note: The Job.response.length is 1

Hamied Abou Hulaikah · Jun 11, 2021

I figured out the problem, it is SELECT statement : simply Select/Case not working in B4R, WHY? any explanation.

Working:

Sub JobDone (Job As JobResult)
    If Job.Success Then
        If Job.JobName="job1" Then
            'always job.response=1 or 0
            if Job.Response="0" Then Log("0")
            if Job.Response="1" Then log("1")
        End If
    End If
End Sub

Not working using Select/Case:

Sub JobDone (Job As JobResult)
    If Job.Success Then
        If Job.JobName="job1" Then
            'always job.response=1 or 0
            Select Job.Response
                Case "0"
                    Log("0")
                Case "1"
                    Log("1")
            End Select
        End If
    End If
End Sub

Erel · Jun 13, 2021

You are comparing an array of bytes with a string. These are similar but not identical objects.

Try this:

B4X:

Dim bc As ByteConverter
Dim s As String = bc.StringFromBytes(Job.Response)
Select s
    Case "0"
        Log("Aaa")
    Case "1"
        Log("!11")
End Select

Though your working code is better.

B4R Question Reading Job.Response value

Hamied Abou Hulaikah

Well-Known Member

tigrot

Well-Known Member

Hamied Abou Hulaikah

Well-Known Member

tigrot

Well-Known Member

Hamied Abou Hulaikah

Well-Known Member

Hamied Abou Hulaikah

Well-Known Member

Erel

B4X founder

Similar Threads

B4R Question Reading Job.Response value

Hamied Abou Hulaikah

Well-Known Member

tigrot

Well-Known Member

Hamied Abou Hulaikah

Well-Known Member

tigrot

Well-Known Member

Hamied Abou Hulaikah

Well-Known Member

Hamied Abou Hulaikah

Well-Known Member

Erel

B4X founder

Similar Threads

Privacy & Transparency

Privacy & Transparency