qmars 38 ارسال شده در 25 شهریور، ۱۳۹۷ اشتراک گذاری ارسال شده در 25 شهریور، ۱۳۹۷ دوستان کسی کتابخونه ای میشناسه که ورودی لیستی از لینک دانلود بگیره و دونه دونه فایل ها رو توی مسیری که ما بهش میدیم با اسمی که ما بهش میدیم ذخیره کنه؟ به جز ftp.download لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
mohammad3250 206 ارسال شده در 25 شهریور، ۱۳۹۷ اشتراک گذاری ارسال شده در 25 شهریور، ۱۳۹۷ okhttputils میشه که dim li() as list =job.getstring و حالا یه حلقه فور لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
qmars 38 ارسال شده در 25 شهریور، ۱۳۹۷ سازنده اشتراک گذاری ارسال شده در 25 شهریور، ۱۳۹۷ سلام درسته من لیست رو ایجاد میکنم با مقایسه یعنی یه لیست 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 ارسال شده در 25 شهریور، ۱۳۹۷ اشتراک گذاری ارسال شده در 25 شهریور، ۱۳۹۷ در 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 ارسال شده در 25 شهریور، ۱۳۹۷ سازنده اشتراک گذاری ارسال شده در 25 شهریور، ۱۳۹۷ در 1 دقیقه قبل، mohammad3250 گفته است : میخوایی لیست عکس هارو سیو کنی یا خود عکس هارو ؟ خود عکس هارو با اسمی که خودم میخوام و مسیری که خودم میخوام میخوام وقتی هم همه ی عکس ها دانلود شد یه کاری انجام بشه لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
mohammad3250 206 ارسال شده در 25 شهریور، ۱۳۹۷ اشتراک گذاری ارسال شده در 25 شهریور، ۱۳۹۷ من با 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 ارسال شده در 25 شهریور، ۱۳۹۷ سازنده اشتراک گذاری ارسال شده در 25 شهریور، ۱۳۹۷ این همه چیو حل میکنه لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
سوال
qmars 38
دوستان کسی کتابخونه ای میشناسه که ورودی لیستی از لینک دانلود بگیره و دونه دونه فایل ها رو توی مسیری که ما بهش میدیم با اسمی که ما بهش میدیم ذخیره کنه؟
به جز ftp.download
لینک ارسال
به اشتراک گذاری در سایت های دیگر
6 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.