مشکل با دانلود عکس

[bahman2012 13]

مشکل با دانلود عکس

سلام دوستان

من از دیتابیس آنلاین استفاده میکنم واز طریق کتابخانه HttpJob و از طریق این دستور پایین اومدم کل دیتابیس رو با qury فراخوانی کردم

Sub RemoteQuery(Query As String, JobName As String) 
Dim job As HttpJob
job.Initialize(JobName, Me)
job.PostString("http://ta******an.ir/galleryphp.php", Query)
End Sub



Sub RemoteAx(url_url As String)
   Dim job As HttpJob
   job.Initialize(JobName, Me)
   job.Download("url_url")

End Sub

و از طریق دستور پایین هم اومدم اون رو به لیست و بعد map تبدیل کردم حالا مشکل اینجاست که تو حلقه for ادرس عکس رو مثلا http://****.ir/a.jpg رو دریافت کردم ولی ازین به بعد رو نمیدونم چطوز باس به image view دستور Job.GetBitmap رو بدم

Sub JobDone(Job As HttpJob) If Job.Success Then
Select Job.JobName
Case GALLERY_LIST
Dim res As String
res = Job.GetString
Dim parser As JSONParser
parser.Initialize(res)
Dim GALLERY As List
GALLERY = parser.NextArray //returns a list with maps
For i = 0 To GALLERY.Size - 1
Dim m As Map 
m = GALLERY.Get(i)
url=m.Get("url") 
RemoteAx(url) 'اینجا وارد ساب مورد نظر میشه به بهش میگه اینو دانلود کن اما بعد نمیره که عکسو نشون بده ،، میره حلقه for رو تکمیل کنه
Next
End Select
Else
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub

[حاج حسین 2,098]

تو سایت دانلود عکسو سرچ کردی

[bahman2012 13]

بله میدونم باس چیکار کرد اما مشکل اینجاست که من تو jobDone یه حلقه ساختم که تو اون حلقه مقدار url میگیره و نیاز به JobDone دیکست که آدرس عکس .....(لطفا به کد ها دقت کنید متوجه میشید

[حاج حسین 2,098]

تو سایت اصلی این چندتا رو دیدم

ببین چه جوره به کارت میاد من دارم میرم بیرون خودم تست نکردم(سیستمم رو هواس)

یکی دیگه هم هست کتابخانه پیکاسا خیلی عالیه که متاسفانه باید اونجا اکانت داشته باشی

ولی یه نفرو میشناسم که بتونه دانلود کنه بهش میسپارم دانلود کنه به دستم رسید در اختیارتان میزارم

لینک

ImageDownloader2.zip

ImageDownloader_2.zip

FlickrViewer.zip

[bahman2012 13]

لطفا به دستورات دقت کنید-----مکشل چیزه دیگشت*همینه*

[bahman2012 13]

کسی نیست کمک کنه؟