Display an Image from a server

Sub Globals
   Dim ImageView1 As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("1")
   Dim job As HttpJob
   job.Initialize("image", Me)
   job.Download("http://ciginfo.alwaysdata.net/img_sites/Img1.jpg")
End Sub

Sub JobDone(Job As HttpJob)
   If Job.Success Then
      ImageView1.SetBackgroundImage(Job.GetBitmap)
   End If
   Job.Release
End Sub

Sub Process_Globals
   Private bmp As Bitmap
End Sub

Sub Globals
   Dim ImageView1 As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("1")
 If bmp.IsInitialized = False Then
   Dim job As HttpJob
   job.Initialize("image", Me)
   job.Download("http://ciginfo.alwaysdata.net/img_sites/Img1.jpg")
End If
End Sub

Sub JobDone(Job As HttpJob)
   If Job.Success Then
      bmp = Job.GetBitmap
      ImageView1.SetBackgroundImage(bmp)
   End If
   Job.Release
End Sub

Sub Activity_Resume
   If bmp.IsInitialized Then ImageView1.Bitmap = bmp
End Sub