ذخیره لیستی از عکس های آنلاین

[qmars 38]

دوستان کسی کتابخونه ای میشناسه که ورودی لیستی از لینک دانلود بگیره و دونه دونه فایل ها رو توی مسیری که ما بهش میدیم با اسمی که ما بهش میدیم ذخیره کنه؟
به جز ftp.download

[mohammad3250 206]

okhttputils میشه که
dim li() as list =job.getstring
و حالا یه حلقه فور

[qmars 38]

سلام
درسته
من لیست رو ایجاد میکنم با مقایسه
یعنی یه لیست url عکس دارم که باید ذخیره بشن
الان میام با گلاید ذخیره میکنم 
 

Sub start_DownloadPic(Downloadlist As List)

	Dim RequestOptions As Hitex_RequestOptions
	counter = 0
	For i = 0 To Downloadlist.Size - 1
		Dim url As String = Downloadlist.Get(i)
		If url.Contains("http") Then
		glide.GetBitmap2("Glide",Tools.Get_Online_PictureName(url),url,RequestOptions.Initialize.CenterInside)
		counter = counter + 1
		End If
	Next
	If counter = 0 Then
		Log("Tamoom bood")
	End If

End Sub
Sub Glide_onGetBitmap (Tag As Object, getBitmap As Bitmap)
	Dim out As OutputStream
	out = File.OpenOutput(Starter.DefualMemory,Tools.OfflinePath & Tag,False)
	getBitmap.WriteToStream(out,100,"JPEG")
	out.Close
	Log(getBitmap)
	Log(Tag)
	counter = counter - 1
	
	If counter = 0 Then 
		Log("tamoom shod")
	End If
End Sub

ولی خوب چون میخوام وقتی دانلود عکس ها تموم شد بره سراغ یه کار دیگه نمیدونم این روش درست کار میکنه یا نه
الان اومدم موقع اضافه کردن آیتم ها به لیست یه شمارنده رو دونه دونه زیاد کردم
بعد موقع دانلود ازش کم کردم
گفتم اگر 0 شد فلان کارو انجام بده
که فک میکنم تئوریش قشنگه ولی عملی قابل اعتماد نیست
 

[mohammad3250 206]

در 1 دقیقه قبل، qmars گفته است :

سلام
درسته
من لیست رو ایجاد میکنم با مقایسه
یعنی یه لیست url عکس دارم که باید ذخیره بشن
الان میام با گلاید ذخیره میکنم 
 

Sub start_DownloadPic(Downloadlist As List)

	Dim RequestOptions As Hitex_RequestOptions
	counter = 0
	For i = 0 To Downloadlist.Size - 1
		Dim url As String = Downloadlist.Get(i)
		If url.Contains("http") Then
		glide.GetBitmap2("Glide",Tools.Get_Online_PictureName(url),url,RequestOptions.Initialize.CenterInside)
		counter = counter + 1
		End If
	Next
	If counter = 0 Then
		Log("Tamoom bood")
	End If

End Sub
Sub Glide_onGetBitmap (Tag As Object, getBitmap As Bitmap)
	Dim out As OutputStream
	out = File.OpenOutput(Starter.DefualMemory,Tools.OfflinePath & Tag,False)
	getBitmap.WriteToStream(out,100,"JPEG")
	out.Close
	Log(getBitmap)
	Log(Tag)
	counter = counter - 1
	
	If counter = 0 Then 
		Log("tamoom shod")
	End If
End Sub

ولی خوب چون میخوام وقتی دانلود عکس ها تموم شد بره سراغ یه کار دیگه نمیدونم این روش درست کار میکنه یا نه
الان اومدم موقع اضافه کردن آیتم ها به لیست یه شمارنده رو دونه دونه زیاد کردم
بعد موقع دانلود ازش کم کردم
گفتم اگر 0 شد فلان کارو انجام بده
که فک میکنم تئوریش قشنگه ولی عملی قابل اعتماد نیست
 

میخوایی لیست عکس هارو سیو کنی یا خود عکس هارو ؟

[qmars 38]

در 1 دقیقه قبل، mohammad3250 گفته است :

میخوایی لیست عکس هارو سیو کنی یا خود عکس هارو ؟

خود عکس هارو با اسمی که خودم میخوام و مسیری که خودم میخوام
میخوام وقتی هم همه ی عکس ها دانلود شد یه کاری انجام بشه

[mohammad3250 206]

من با hitex_volly کار نکردم ولی با okhttp خیلی ساده میتونی انجام بدی که
کل آدرس عکس هارو با php بفرست بعد تو یه لیست ذخیره کن با حلقه فور میتونی ذخیره کنی

این کد با استفاده جیسون

Sub JobDone(job As HttpJob)
  If job.Success Then
 Dim JSON As JSONParser
JSON.Initialize(http.GetString)
Dim li As List = JSON.NextArray
For i = 0 To li.Size -1 then
Dim maps As Map = li.Get(i)
    Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, "filename.dat", False)
    File.Copy2(maps.get("ax"), out)
    out.Close '<------ very important
 next
  Else
    Log("Error: " & job.ErrorMessage)
  End If
  job.Release
End Sub

[qmars 38]

این همه چیو حل میکنه