Android Question Call other activity when Job process

Irwan Putra said:

Process Job

Click to expand...

Brandsum said:

What do you mean by Process Job? Does it mean HTTP job?

Click to expand...

Irwan Putra said:

Than for reply Brandsum,

Yes Http Job. Thanks before

Click to expand...

Public Sub LoadData() As ResumableSub
    Dim j As HttpJob
    Dim Data() As Byte
    
    j.Initialize("", Me)
    j.Download("URL")
    Wait For (j) JobDone(j As HttpJob)
    If j.Success Then
        Data = j.GetString.GetBytes("UTF8")
        If Not(IsPaused(Main)) Then CallSubDelayed2(Main,"ProcessData",Data)
    End If
    j.Release
    Return j.Success
End Sub

Brandsum said:

As @DonManfred said, move that job to service and after the job is done send the data back to activity for processing. Like this,

B4X:

Public Sub LoadData() As ResumableSub
    Dim j As HttpJob
    Dim Data() As Byte
   
    j.Initialize("", Me)
    j.Download("URL")
    Wait For (j) JobDone(j As HttpJob)
    If j.Success Then
        Data = j.GetString.GetBytes("UTF8")
        If Not(IsPaused(Main)) Then CallSubDelayed2(Main,"ProcessData",Data)
    End If
    j.Release
    Return j.Success
End Sub

Click to expand...

Brandsum said:

As @DonManfred said, move that job to service and after the job is done send the data back to activity for processing. Like this,

B4X:

Public Sub LoadData() As ResumableSub
    Dim j As HttpJob
    Dim Data() As Byte
   
    j.Initialize("", Me)
    j.Download("URL")
    Wait For (j) JobDone(j As HttpJob)
    If j.Success Then
        Data = j.GetString.GetBytes("UTF8")
        If Not(IsPaused(Main)) Then CallSubDelayed2(Main,"ProcessData",Data)
    End If
    j.Release
    Return j.Success
End Sub

Click to expand...

Irwan Putra said:

Can you show me a little example?

Click to expand...

Public Sub ProcessData(data() As Byte) As ResumableSub
    Dim StringData As String = BytesToString(data,0,data.Length,"UTF-8")
    Log(StringData)
End Sub

'if you are downloading json data from httpjob then use this
Public Sub ProcessData(data() As Byte) As ResumableSub
    Dim StringData As String = BytesToString(data,0,data.Length,"UTF-8")
    Dim json As JSONParser
    json.Initialize(StringData)
    Dim OriginalData As List = json.NextArray
    
    Log(OriginalData)
End Sub

Brandsum said:

B4X:

Public Sub ProcessData(data() As Byte) As ResumableSub
    Dim StringData As String = BytesToString(data,0,data.Length,"UTF-8")
    Log(StringData)
End Sub

'if you are downloading json data from httpjob then use this
Public Sub ProcessData(data() As Byte) As ResumableSub
    Dim StringData As String = BytesToString(data,0,data.Length,"UTF-8")
    Dim json As JSONParser
    json.Initialize(StringData)
    Dim OriginalData As List = json.NextArray
   
    Log(OriginalData)
End Sub

Click to expand...