B4R Question Reading Job.Response value

[Hamied Abou Hulaikah]

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

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

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

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

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]

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

 

[Hamied Abou Hulaikah]

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

 

[tigrot]

Compare with substring:

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

 

[Hamied Abou Hulaikah]

Compare with substring:

            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]

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

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

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]

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

Try this:

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.