Spanish [ENTENDIDO] Wait For

Sub DownloadTwoLinks
   Dim j As HttpJob
   j.Initialize("", Me) 'name is empty as it is no longer needed
   j.Download("https://www.google.com")
   Wait For (j) JobDone(j As HttpJob)
   If j.Success Then
     Log(j.GetString)
   End If
   j.Release
   'second request
   Dim j As HttpJob 'redim and initialize
   j.Initialize("", Me)
   j.Download("https://www.duckduckgo.com")
   Wait For (j) JobDone(j As HttpJob)
   If j.Success Then
     Log(j.GetString)
   End If
   j.Release
End Sub

Sub Activity_Create(FirstTime As Boolean)
   DownloadMany(Array("http://www.google.com", "http://duckduckgo.com", "http://bing.com"))
End Sub

Sub DownloadMany (links As List)
   For Each link As String In links
     Dim j As HttpJob
     j.Initialize("", Me) 'name is empty as it is no longer needed
     j.Download(link)
     Wait For (j) JobDone(j As HttpJob)
     If j.Success Then
       Log("Current link: " & link)
       Log(j.GetString)
     End If
     j.Release
   Next
End Sub

Dim i as int
i = 0
log(i)
i = 1
log(i)

Dim i as int
for i = 0 to 1
  log(i)
next

Sub CargarPaises As ResumableSub'Devolvemos true o false si se han leído correctamente los países
   'Tu código para cargar los países

  If SeHanCargadoOk Then
     return True
  else
      return False
  end if
End Sub

Sub CargarDepartamentos (pais as String) as ResumableSub
  'Tu código para cargar los departamentos
  If SeHanCargadoOk Then
     return True
  else
      return False
  end if
End Sub


Sub CargarMunicipios (departamento as string) as ResumableSub 'Puedes devolver true o false si se cargan bien, o devolver la lista de municipios
'Cargas los municipios

   .....
  If SeHanCargadoOk Then
      ListaMuncipios = MunicipiosCargados
     return True
  else
      return False
  end if
End Sub

'Código principal
'Mostrar por ejemplo un  B4XLoadingIndicator
Wait For (CargarPaises) Complete (SuccessPaises as Boolean) 'SuccessPaises sería True o False según lo que devuelva Cargar Países
If SuccessPaises Then
  Wait For (CargarDepartamentos (paisLeído)) Complete (SuccessDepartamentos as Boolean)
    If SuccessDepartamentos Then
        Wait for (CargarMunicipios(departamentoLeído)) Complete (SuccessMunicipios as Boolean)
         if SuccessMunicipios Then
             Log("Se han cargado correctamente")
         else
             Log("No se han cargado los municipios")
          end if
    else
        Log("No se han cargado los departamentos")
    end if
Else
  Log("No se han podido cargarlos países")
End If
'Ocultar tu  B4XLoadingIndicator
end Sub

Sub DownloadImage(Link As String, iv As ImageView)
   Dim job As HttpJob
   job.Initialize("", Me) 'note that the name parameter is no longer needed.
   job.Download(Link)
   Wait For JobDone(job As HttpJob)
   If job.Success Then
     iv.SetImage (job.GetBitmap) 'replace with iv.Bitmap = job.GetBitmap in B4A / B4i
   End If
   job.Release
End Sub

DownloadImage("https://www.b4x.com/images3/android.png", ImageView1)
DownloadImage("https://www.b4x.com/images3/apple.png", ImageView2)

'Good example. Use.
Sub DownloadImage(Link As String, iv As ImageView)
   Dim job As HttpJob
   job.Initialize("", Me) 'note that the name parameter is no longer needed.
   job.Download(Link)
   Wait For (job) JobDone(job As HttpJob)
   If job.Success Then
     iv.SetImage (job.GetBitmap) 'replace with iv.Bitmap = job.GetBitmap in B4A / B4i
   End If
   job.Release
End Sub