Hi,
i want to download multiple images from url with httpjob so my problem is that ,i downloaded only one image in loop, Any help or suggestion is appriciated My code is
Sub ListviewSub_cat_ItemClick (Position As Int, Value As Object)
Dim SubCat_id As Int
Dim jsonstring As String
'Cat_id = listview_category.GetItem(Position)
SubCat_id = listSub_cat_id.Get(Position)
job3.Initialize("job3",Me)
'jsonstring = "http://siliconsoftwares.in/store/storeproductjson.php?cat_id=223&format=json"
jsonstring = "http://siliconsoftwares.in/store/storeproductjson.php?cat_id=97&format='json'"
job3.PostString(jsonstring, " ")
End Sub
Sub JobDone (job As HttpJob)
If job.Success = True Then
If job.JobName = "Job1" Then
FillSimpleData(job.GetString)
LblAllCatogry.Visible = True
LblsubCatagory.Visible = False
svProduct.Visible = False
PnlLogo.Visible = False
LblProducts.Visible = False
End If
If job.JobName = "job2" Then
listview_category.visible=False
FillSub_catid(job.GetString)
LblAllCatogry.Visible = False
LblsubCatagory.Visible = True
ListviewSub_cat.Visible = True
svProduct.Visible = False
PnlLogo.Visible = False
LblProducts.Visible = False
End If
If job.JobName = "job3" Then
LblAllCatogry.Visible = False
ListviewSub_cat.Visible = False
FillstoreProduct(job.GetString)
LblsubCatagory.Visible = False
btnaddtocart.Visible = True
svProduct.Visible = True
PnlLogo.Visible = True
LblProducts.Visible = True
BtnSearch.Visible = False
EdttxtSearchbox.Visible = False
End If
If job.JobName = "job5" Then
' job.Download(bmImageUrl)
Dim imageProduct As ImageView
imageProduct.Initialize("imageProduct")
Dim imagetop As Int
imagetop = 1
svProduct.Panel.AddView(imageProduct,5%x,imagetop* 1.5%y,30%x,21.3%y)
imageProduct.SetBackgroundImage(job.GetBitmap)
imagetop = imagetop +1
End If
End If
job.Release
End Sub
Sub FillstoreProduct(TempResultstringP)
Dim Productid_start As Int
Dim Productname_start As Int
Dim productPrice_start As Int
Dim productModel_start As Int
Dim ProductQuantity_start As Int
Dim tempstringP As String
Dim index_counterP As Int
Dim Complete_endP As Int
Dim Pic_start As Int
Dim Productid_db As String
Dim ProductName_db As String
Dim ProductPrice_db As String
Dim ProductModel_db As String
Dim ProductQuantity_db As String
Dim ImageStrng As String
Dim StringUtl As StringUtils
Dim bmImage As Bitmap
Dim ProductInputstream As InputStream
myJson.Initialize(TempResultstringP)
first_map.Initialize
first_map = myJson.NextObject
tempstringP = first_map.Get("items")
index_counterP=0
Dim i As Int
i = 0
Log("tempstring")
Log(tempstringP)
Do While index_counterP<>(-1)
Dim labelProductname As Label
labelProductname.Initialize("labelProductname")
labelProductname.TextColor = Colors.RGB(0,104,139)
Dim job5 As HttpJob
Dim lblProdctPrice As Label
lblProdctPrice.Initialize("lblProdctPrice")
lblProdctPrice.TextColor = Colors.Black
Dim lblProdctModel As Label
lblProdctModel.Initialize("lblProdctModel")
lblProdctModel.TextColor = Colors.Black
Dim bgImageview As String
Dim bmImageview As Bitmap
Dim pnlProduct As Panel
pnlProduct.Initialize("pnlProduct")
pnlProduct.Color = Colors.Transparent
Dim imageProduct As ImageView
imageProduct.Initialize("imageProduct")
Dim LblPrice As Label
LblPrice.Initialize("LblPrice")
LblPrice.TextColor = Colors.Black
Dim LblModel As Label
LblModel.Initialize("LblModel")
LblModel.TextColor = Colors.Black
Dim PnlLine As Panel
PnlLine.Initialize("PnlLine")
Dim bgPnlLine As String
Dim bmPnlLine As Bitmap
bgPnlLine = "line.jpg"
bmPnlLine.Initialize(File.DirAssets,bgPnlLine)
index_counterP = Complete_endP
Complete_endP =tempstringP.IndexOf2("}",index_counterP+1)
Productid_start = tempstringP.IndexOf2("products_id",index_counterP)
Productname_start = tempstringP.IndexOf2("products_name",index_counter P)
productPrice_start = tempstringP.IndexOf2("products_price",index_counte rP)
productModel_start = tempstringP.IndexOf2("products_model",index_counte rP)
ProductQuantity_start = tempstringP.IndexOf2("products_quantity",index_cou nterP)
Pic_start = tempstringP.IndexOf2("products_image",index_counte rP)
Productid_db = tempstringP.SubString2(Productid_start+12,Complete _endP)
ProductName_db = tempstringP.SubString2(Productname_start+14,Produc tid_start-2)
ProductPrice_db = tempstringP.SubString2(productPrice_start+15,Produ ctname_start-2)
ProductModel_db = tempstringP.SubString2(productModel_start+15,produ ctPrice_start-2)
' ImageByte = StringUtl.DecodeBase64(tempstringP.SubString2(Pic_ start+19,ProductQuantity_start-2))
' ProductInputstream.InitializeFromBytesArray(ImageB yte,0,ImageByte.Length)
' bMImage.Initialize2(ProductInputstream)
' ProductInputstream.Close
bgImageview = tempstringP.SubString2(Pic_start +15,ProductQuantity_start-2)
' Dim InputStream1 As InputStream
' InputStream1 = job5.GetInputStream
' Dim OutputStream1 As OutputStream
' OutputStream1.InitializeToBytesArray(1000)
' File.Copy2(InputStream1, OutputStream1)
' Dim Buffer() As Byte 'declares an empty array
' Buffer = OutputStream1.ToBytesArray
'
'
' Dim input As InputStream
' input.InitializeFromBytesArray(Buffer,0,Buffer.Len gth)
' Dim BiMap As Bitmap
' BiMap.Initialize2(input)
' input.Close
'
'imageProduct.SetBackgroundImage(job5.GetBitmap)
'bgImageview = "sample_image-1.png"
'bmImageview.Initialize(File.DirAssets,bgImageview )
labelProductname.Text = ProductName_db
ProductName = labelProductname.Text
lblProdctPrice.Text = ProductPrice_db
lblProdctPrice.TextColor = Colors.Red
ProductPrice = lblProdctPrice.Text
LblPrice.Text = "Price:"
svProduct.Panel.AddView(pnlProduct,0%x,i*25%y,90%x ,30%y)
pnlProduct.AddView(PnlLine,0%x,90%y,100%x,3%y)
PnlLine.SetBackgroundImage(bmPnlLine)
pnlProduct.AddView(imageProduct,5%x,1.5%y,30%x,21. 3%y)
pnlProduct.AddView(labelProductname,50%x,5%y,70%x, 7%y)
pnlProduct.AddView(LblPrice,50%x,13%y,15%x,5%y)
pnlProduct.AddView(lblProdctPrice,62%x,13%y,25%x,5 %y)
i = i + 1
index_counterP = Complete_endP
index_counterP = tempstringP.IndexOf2("}",index_counterP+1)
job5.Initialize("job5",Me)
job5.Download(bgImageview)
'
Loop
End Sub
i want to download multiple images from url with httpjob so my problem is that ,i downloaded only one image in loop, Any help or suggestion is appriciated My code is
Sub ListviewSub_cat_ItemClick (Position As Int, Value As Object)
Dim SubCat_id As Int
Dim jsonstring As String
'Cat_id = listview_category.GetItem(Position)
SubCat_id = listSub_cat_id.Get(Position)
job3.Initialize("job3",Me)
'jsonstring = "http://siliconsoftwares.in/store/storeproductjson.php?cat_id=223&format=json"
jsonstring = "http://siliconsoftwares.in/store/storeproductjson.php?cat_id=97&format='json'"
job3.PostString(jsonstring, " ")
End Sub
Sub JobDone (job As HttpJob)
If job.Success = True Then
If job.JobName = "Job1" Then
FillSimpleData(job.GetString)
LblAllCatogry.Visible = True
LblsubCatagory.Visible = False
svProduct.Visible = False
PnlLogo.Visible = False
LblProducts.Visible = False
End If
If job.JobName = "job2" Then
listview_category.visible=False
FillSub_catid(job.GetString)
LblAllCatogry.Visible = False
LblsubCatagory.Visible = True
ListviewSub_cat.Visible = True
svProduct.Visible = False
PnlLogo.Visible = False
LblProducts.Visible = False
End If
If job.JobName = "job3" Then
LblAllCatogry.Visible = False
ListviewSub_cat.Visible = False
FillstoreProduct(job.GetString)
LblsubCatagory.Visible = False
btnaddtocart.Visible = True
svProduct.Visible = True
PnlLogo.Visible = True
LblProducts.Visible = True
BtnSearch.Visible = False
EdttxtSearchbox.Visible = False
End If
If job.JobName = "job5" Then
' job.Download(bmImageUrl)
Dim imageProduct As ImageView
imageProduct.Initialize("imageProduct")
Dim imagetop As Int
imagetop = 1
svProduct.Panel.AddView(imageProduct,5%x,imagetop* 1.5%y,30%x,21.3%y)
imageProduct.SetBackgroundImage(job.GetBitmap)
imagetop = imagetop +1
End If
End If
job.Release
End Sub
Sub FillstoreProduct(TempResultstringP)
Dim Productid_start As Int
Dim Productname_start As Int
Dim productPrice_start As Int
Dim productModel_start As Int
Dim ProductQuantity_start As Int
Dim tempstringP As String
Dim index_counterP As Int
Dim Complete_endP As Int
Dim Pic_start As Int
Dim Productid_db As String
Dim ProductName_db As String
Dim ProductPrice_db As String
Dim ProductModel_db As String
Dim ProductQuantity_db As String
Dim ImageStrng As String
Dim StringUtl As StringUtils
Dim bmImage As Bitmap
Dim ProductInputstream As InputStream
myJson.Initialize(TempResultstringP)
first_map.Initialize
first_map = myJson.NextObject
tempstringP = first_map.Get("items")
index_counterP=0
Dim i As Int
i = 0
Log("tempstring")
Log(tempstringP)
Do While index_counterP<>(-1)
Dim labelProductname As Label
labelProductname.Initialize("labelProductname")
labelProductname.TextColor = Colors.RGB(0,104,139)
Dim job5 As HttpJob
Dim lblProdctPrice As Label
lblProdctPrice.Initialize("lblProdctPrice")
lblProdctPrice.TextColor = Colors.Black
Dim lblProdctModel As Label
lblProdctModel.Initialize("lblProdctModel")
lblProdctModel.TextColor = Colors.Black
Dim bgImageview As String
Dim bmImageview As Bitmap
Dim pnlProduct As Panel
pnlProduct.Initialize("pnlProduct")
pnlProduct.Color = Colors.Transparent
Dim imageProduct As ImageView
imageProduct.Initialize("imageProduct")
Dim LblPrice As Label
LblPrice.Initialize("LblPrice")
LblPrice.TextColor = Colors.Black
Dim LblModel As Label
LblModel.Initialize("LblModel")
LblModel.TextColor = Colors.Black
Dim PnlLine As Panel
PnlLine.Initialize("PnlLine")
Dim bgPnlLine As String
Dim bmPnlLine As Bitmap
bgPnlLine = "line.jpg"
bmPnlLine.Initialize(File.DirAssets,bgPnlLine)
index_counterP = Complete_endP
Complete_endP =tempstringP.IndexOf2("}",index_counterP+1)
Productid_start = tempstringP.IndexOf2("products_id",index_counterP)
Productname_start = tempstringP.IndexOf2("products_name",index_counter P)
productPrice_start = tempstringP.IndexOf2("products_price",index_counte rP)
productModel_start = tempstringP.IndexOf2("products_model",index_counte rP)
ProductQuantity_start = tempstringP.IndexOf2("products_quantity",index_cou nterP)
Pic_start = tempstringP.IndexOf2("products_image",index_counte rP)
Productid_db = tempstringP.SubString2(Productid_start+12,Complete _endP)
ProductName_db = tempstringP.SubString2(Productname_start+14,Produc tid_start-2)
ProductPrice_db = tempstringP.SubString2(productPrice_start+15,Produ ctname_start-2)
ProductModel_db = tempstringP.SubString2(productModel_start+15,produ ctPrice_start-2)
' ImageByte = StringUtl.DecodeBase64(tempstringP.SubString2(Pic_ start+19,ProductQuantity_start-2))
' ProductInputstream.InitializeFromBytesArray(ImageB yte,0,ImageByte.Length)
' bMImage.Initialize2(ProductInputstream)
' ProductInputstream.Close
bgImageview = tempstringP.SubString2(Pic_start +15,ProductQuantity_start-2)
' Dim InputStream1 As InputStream
' InputStream1 = job5.GetInputStream
' Dim OutputStream1 As OutputStream
' OutputStream1.InitializeToBytesArray(1000)
' File.Copy2(InputStream1, OutputStream1)
' Dim Buffer() As Byte 'declares an empty array
' Buffer = OutputStream1.ToBytesArray
'
'
' Dim input As InputStream
' input.InitializeFromBytesArray(Buffer,0,Buffer.Len gth)
' Dim BiMap As Bitmap
' BiMap.Initialize2(input)
' input.Close
'
'imageProduct.SetBackgroundImage(job5.GetBitmap)
'bgImageview = "sample_image-1.png"
'bmImageview.Initialize(File.DirAssets,bgImageview )
labelProductname.Text = ProductName_db
ProductName = labelProductname.Text
lblProdctPrice.Text = ProductPrice_db
lblProdctPrice.TextColor = Colors.Red
ProductPrice = lblProdctPrice.Text
LblPrice.Text = "Price:"
svProduct.Panel.AddView(pnlProduct,0%x,i*25%y,90%x ,30%y)
pnlProduct.AddView(PnlLine,0%x,90%y,100%x,3%y)
PnlLine.SetBackgroundImage(bmPnlLine)
pnlProduct.AddView(imageProduct,5%x,1.5%y,30%x,21. 3%y)
pnlProduct.AddView(labelProductname,50%x,5%y,70%x, 7%y)
pnlProduct.AddView(LblPrice,50%x,13%y,15%x,5%y)
pnlProduct.AddView(lblProdctPrice,62%x,13%y,25%x,5 %y)
i = i + 1
index_counterP = Complete_endP
index_counterP = tempstringP.IndexOf2("}",index_counterP+1)
job5.Initialize("job5",Me)
job5.Download(bgImageview)
'
Loop
End Sub
