Download2 syntax array

m643 · May 7, 2013

Hi all,

I don't understand exactly how I can read the array values in the jobdone.

In a loop I pass the image link and the array values like this

B4X:

Dim ImageJob As HttpJob
ImageJob.Initialize("ImageJob", Me)
ImageJob.Download2(m.Get("thumbnail"), Array As String(m.Get("title"), m.Get("id")))

For example I want to display the m.Get("title") in a msgbox in the jobdone? How can I do that because msgbox(m.Get("title"),m.Get("title")) isn't working.

Thanks

Erel · May 8, 2013

Where have you filled this map?

m643 · May 8, 2013

This map is filled by an ExecuteRemoteQuery.

B4X:

Sub JobDone(Job As HttpJob)
   If Job.Success Then
   Dim res As String
      res = Job.GetString
      Log("Response from server: " & res)
      Dim parser As JSONParser
      parser.Initialize(res)
      Select Job.JobName
         Case SP_LIST
            Dim LIST1 As List      
            LIST1 = parser.NextArray 'returns a list with maps
            For i = 0 To LIST1 .Size - 1
               Dim m As Map
               m = LIST1 .Get(i)
                                        Dim ImageJob As HttpJob
                                        ImageJob.Initialize("ImageJob", Me)
                                        ImageJob.Download2(m.Get("thumbnail"),Array As String(m.Get("title"), m.Get("id")))

Erel · May 9, 2013

I think that I understand.

There are several ways to do it. You can modify HttpJob and add a Tag field of type Object. This will allow you to add any data you need to the Job and later retrieve it.

m643 · May 12, 2013

Hi Erel,

Thank you for your reply.
Can you give me an example how to add a tag field of type object. Sorry i'm a beginner and I don't know what you exactly mean.

Erel · May 13, 2013

The HttpUtils2 library included in v2.70 already includes a Tag property. You can remove HttpUtils2Service and HttpJob and instead check HttpUtils2 library.

ibra939 · Feb 20, 2015

m643 said:

This map is filled by an ExecuteRemoteQuery.

B4X:

Sub JobDone(Job As HttpJob)
   If Job.Success Then
   Dim res As String
      res = Job.GetString
      Log("Response from server: " & res)
      Dim parser As JSONParser
      parser.Initialize(res)
      Select Job.JobName
         Case SP_LIST
            Dim LIST1 As List     
            LIST1 = parser.NextArray 'returns a list with maps
            For i = 0 To LIST1 .Size - 1
               Dim m As Map
               m = LIST1 .Get(i)
                                        Dim ImageJob As HttpJob
                                        ImageJob.Initialize("ImageJob", Me)
                                        ImageJob.Download2(m.Get("thumbnail"),Array As String(m.Get("title"), m.Get("id")))

great simple array to do for ur image or mp3 music ?

Download2 syntax array

m643

Member

Erel

B4X founder

m643

Member

Erel

B4X founder

m643

Member

Erel

B4X founder

ibra939

Active Member

Similar Threads

Download2 syntax array

m643

Member

Erel

B4X founder

m643

Member

Erel

B4X founder

m643

Member

Erel

B4X founder

ibra939

Active Member

Similar Threads

Privacy & Transparency

Privacy & Transparency