Dim st() As String = Array As String(Utils.Tr("ut_124"),Utils.Tr("ut_125"), Utils.Tr("ut_122"))
Dim img() As String = Array As String("map.jpg","mapdz.png","map2.png")
For i = 0 To st.Length-1
'other stuff
Dim imv As JSTouchImageView
imv.Initialize
p.AddView(imv,0,0,VP.Width,VP.Height)
imv.ScaleType = imv.SCALE_TYPE_FIT_CENTER
imv.Tag = i
If File.Exists(File.DirInternal,img(i)) Then
imv.ImageBitmap = LoadBitmap(File.DirInternal,img(i))
pb.RemoveView
Else
DownloadImage(i, pb, img(i))
End If
'other stuff
next
'...
end sub
Sub DownloadImage (ind As Int, pb As ProgressBar, name As String)
Dim Job As HttpJob
Job.Initialize(name,Me)
Job.Tag = Array(ind,pb)
Job.Download("mysite"&name)
End Sub
Sub JobDone (job As HttpJob)
If job.Success Then
Dim ar() As Object = job.Tag
Dim ind As Int = ar(0)
Dim pb As ProgressBar = ar(1)
pb.RemoveView
Dim out As OutputStream = File.OpenOutput(File.DirInternal,job.JobName,False)
File.Copy2(job.GetInputStream, out)
out.Close '<------ very important
RefreshZoomImage(ind,job.GetBitmap)
End If
End Sub
Sub RefreshZoomImage (ind As Int,bitm As Bitmap)
Dim p As Panel = PC.GetPageObject(ind)
Dim imv As JSTouchImageView
imv.Initialize
p.AddView(imv,0,0,VP.Width,VP.Height)
imv.ScaleType = imv.SCALE_TYPE_FIT_CENTER
imv.ImageBitmap = bitm
End Sub
