Sub Activity_Create
...
Dim job As HttpJob
job.Initialize("j", Me)
job.Download("http://g3dsoftware.ddns.net:8080/neater/fastfoodnumber.txt")
End Sub
Sub JobDone(job As HttpJob)
If job.Success Then
Dim out As OutputStream = File.OpenOutput(File.DirInternal, "ffnumeroderestaurantes.txt", False)
File.Copy2(job.GetInputStream, out)
out.Close '<------ very important
Dim im(File.ReadString(File.DirInternal,"ffnumeroderestaurantes.txt")+1) As ImageView
Starter.immax=File.ReadString(File.DirInternal,"ffnumeroderestaurantes.txt")
For i = 2 To File.ReadString(File.DirInternal,"ffnumeroderestaurantes.txt")
im(i).Initialize("im")
im(i).Bitmap= bmp
im(i).Tag = "http://g3dsoftware.ddns.net:8080/neater/fastfood"&i&".png"
If i=2 Then
scrollviewff.Panel.AddView(im(i),2%x,30%y,47%x,47%x)
else If i Mod 2 == 0 Then
scrollviewff.Panel.AddView(im(i),2%x,im(i-2).Top+47%x + 2%y,47%x,47%x)
Else
scrollviewff.Panel.AddView(im(i),51%x,im(i-1).Top,47%x,47%X)
End If
im(i).Gravity = Gravity.FILL
Dim links As Map 'is the map neccessary now ?? .. or just pass im(i).Tag value ?
links.Initialize
links.Put(im(i), "http://g3dsoftware.ddns.net:8080/neater/fastfood"&i&".png")
CallSubDelayed2(ImageDownloader, "Download", links)
scrollviewff.Panel.Height= ivff1.Height+filterbanner.Height +(im(i).Height *i/2)
Next
Else
Log("Error: " & job.ErrorMessage)
ToastMessageShow("No se pudo conectar con el servidor. Intenta mas tarde",True)
timer1.Enabled=False
End If
job.Release
End Sub