Download image

'Activity module
Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.
   
End Sub

Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.

   'Create a ListViewData object 
   Type ListViewData (FirstRow As String, SecondRow As String, ANum As String, Photo As Bitmap)
   
   Dim lvPets As ListView
   Dim pnlPets As Panel
   
   Dim abmpurl As String
   Dim abmp As Bitmap
   
End Sub

Sub Activity_Create(FirstTime As Boolean)
   HttpUtils.CallbackActivity = "actPets" 'Current activity name.
    HttpUtils.CallbackJobDoneSub = "JobDone"'"GetPageFromPetango"
   HttpUtils.CallbackUrlDoneSub = "URLDone"
   
   lvPets.Initialize("View")
   Activity.LoadLayout("actPets.bal")
   
   pnlPets.Visible = True
   ProgressDialogShow("Loading please wait...")
   HttpUtils.Download("GetPageFromPetango", Main.AnimalURL)
   
   pnlBottom = 0
   svAnimals.Color = Colors.Black
   
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub lvPets_ItemClick (Position As Int, Value As Object)
   Dim lvd As ListViewData
   lvd = value
   Msgbox(lvd.ANum, "AHS")
End Sub

Sub UrlDone(Url As String)
   Log(Url & " done")
End Sub

Sub JobDone (Job As String)
   Select Job
      Case "GetPageFromPetango"
         ParsePetangoPage
      Case "GetAnimalPhoto"
         If HttpUtils.IsSuccess(abmpurl) Then 
            abmp = HttpUtils.GetBitmap(abmpurl)
         End If
   End Select
   HttpUtils.Complete = False
End Sub

Sub GetPageFromPetango(pg As String)
   Dim s As String
   Do Until HttpUtils.IsSuccess(pg) = False
      Log("Still Waiting...")
      DoEvents
   Loop
   If HttpUtils.IsSuccess(pg) Then
      s = HttpUtils.GetString(pg)
   End If
   ParsePetangoPage'(s)
End Sub
Sub ParsePetangoPage
' The below is a table row, from the returned page that contains animal information
'
'   <tr>
'   <td class="list-item">
'   <div class="list-animal-photo-block">
'   <a href="wsAdoptableAnimalDetails.aspx?id=13381783&css=http://petango.com/WebServices/adoptablesearch/css/styles.css" ><img class="list-animal-photo" src="http://www.petango.com/sms/photos/592/dfb2d260-2629-4cca-a67c-646812063375_TN1.jpg" alt="Photo"></a>
'   </div>
'   <div class="list-animal-info-block">
'   <div class="list-animal-name"><a href="wsAdoptableAnimalDetails.aspx?id=13381783&css=http://petango.com/WebServices/adoptablesearch/css/styles.css" >Cardamon</a></div>
'   <div class="list-animal-id">13381783</div>
'   <div class="list-anima-species">Cat</div>
'   <div class="list-animal-sexSN">Female/Spayed</div>
'   <div class="list-animal-breed">Domestic Shorthair/Mix</div>
'   <div class="list-animal-age">2 years 4 months</div>
'   <div class="hidden">Cat Condo</div>
'   </div>
'   </td>

   Dim link As String
   Dim APhoto As ImageView
   Dim wvAnimalPhotoTh As WebView
   Dim AName As String
   Dim ANumber As String
   Dim ADesc As String
   Dim ASex As String
   Dim AAge As String
   Dim ABreed As String
   
   Dim jName As String
   Dim jNumber As String
   Dim jSex As String
   Dim jAge As String
   Dim jBreed As String
   
   'Dim APhoto As Bitmap
   Dim APhotoLink As String

   'Create a TestReader to parse the file
   Dim txtrdr As TextReader
   txtrdr.Initialize(HttpUtils.GetInputStream(Main.AnimalURL))
   
   Dim line As String
   line = txtrdr.ReadLine
   Do While line <> Null
      Dim lvd As ListViewData
      lvd.Initialize
      Dim b As Bitmap
      'Animal Photo
      If line.Contains("img class=") Then
         line = line.SubString(line.IndexOf("w"))
         line = "<a href=" & QUOTE & "http://www.petango.com/webservices/adoptablesearch/" & line
         line = line.SubString2(line.IndexOf("src="), line.IndexOf("alt="))
         line = line.SubString(line.IndexOf(QUOTE & "h"))
         line = line.SubString2(line.IndexOf("http"),line.Length-1)
         line = line.Replace(QUOTE, "")
         abmpurl = line
         HttpUtils.Download("GetAnimalPhoto", abmpurl)
      End If
      'Animal Name
      If line.Contains("list-animal-name") Then
         line = line.SubString(line.IndexOf("w"))
         line = "<a href=" & QUOTE & "http://www.petango.com/webservices/adoptablesearch/" & line
         AName = line
         jName = AName.SubString2(AName.IndexOf(">")+1, AName.IndexOf("</"))
      End If
      'Animal ID
      If line.Contains("list-animal-id") Then
         ANumber = line
         ANumber = ANumber.SubString2(ANumber.IndexOf(">")+1, ANumber.IndexOf("</"))
      End If
      'Animal Sex
      If line.Contains("list-animal-sexSN") Then
         ASex = line
         ASex = ASex.SubString2(ASex.IndexOf(">")+1, ASex.IndexOf("</"))
      End If
      'Animal Age
      If line.Contains("list-animal-age") Then
         AAge = line
         AAge = AAge.SubString2(AAge.IndexOf(">")+1, AAge.IndexOf("</"))
      End If
      'Animal Breed
      If line.Contains("list-animal-breed") Then
         ABreed = line
         ABreed = ABreed.SubString2(ABreed.IndexOf(">")+1, ABreed.IndexOf("</"))
      End If
      'End of this animal's table row
      If line = "</td>" Then
         lvd.FirstRow = jName
         lvd.SecondRow = AAge & " " & ASex
         lvd.ANum = ANumber
         lvd.Photo = abmp
         lvPets.AddTwoLinesAndBitmap2(lvd.FirstRow, lvd.SecondRow, lvd.Photo, lvd)
      Else
         'Don't do anything
      End If
      line = txtrdr.ReadLine
   Loop
   txtrdr.Close
   ProgressDialogHide
End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
   Select Case KeyCode
      Case KeyCodes.KEYCODE_BACK
         Main.AnimalURL = ""
   End Select
End Sub