دانلود از لینک داخل دیتابیس

[علی علایی 161]

موضوعات مشابه نگاه کردم ولی چیزی دستگیرم نشد 

ببنید من با دیتابیس لیست موارد رو میارم و تو صفحه بعدش میخام عمل دانلود انجام بشه 

از لارج دانلود استفاده میکنم 

نمونه ای که ازش دارم فقط یه دانلود داره که از یک رشته است 

اما اینجا من 

طبق تصویر یه  لیست ویو  توصفحه  بعدی میخام دانلود کنم 

 

کدهای من مربوط به دانلود 

Sub btndownload_Click


If File.Exists(File.DirRootExternal & "/Ahang", cur2.GetString("name")&".mp3") = True Then 

	
	Else
	 

Dim dd As DownloadData
	dd.url = cur2.GetString("link")
	
dd.EventName = "dd"
	
dd.Target = Me
	CallSubDelayed2(DownloadService, "StartDownload", dd)

End Sub



Sub dd_Complete(Job As HttpJob)
	Log("Job completed: " & Job.Success)


Dim o As OutputStream
   
 o = File.OpenOutput(File.DirRootExternal & "/Ahang", cur2.GetString("name")&".mp3" , False)
  
 File.Copy2(Job.GetInputStream, o)
  
 o.Close
 
	

Job.Release


End Sub

ممنون میشم راهنمایی بفرمایید 

[علی علایی 161]

دوستان سوال تا این حد سخت بود؟؟!!

جزییات تو پست اول هست 

اگر لازمه بگید سورس بزارم 

[Nemesis 1,846]

من اصلا متوجه مشکلت نشدم

توضیح بده

[علی علایی 161]

دوستان با آریادانلود تا حدی درست شد 

یعنی عمل دانلود انجام میشه ولی انگاری آخری رو دانلود میکنه 

اینم کدهای دانلود 

If File.Exists(File.DirRootExternal & "/zaker", cur2.GetString("name")&".mp4") = True Then 
	 ToastMessageShow("فایل دانلود شده و در مسیر zaker قرار دارد",True)
	 Else
	 araia.StartDownload(Main.cur1.GetString("link"),File.DirRootExternal & "/zaker", cur2.GetString("name")&".mp4")
	

 

ببیند طبق تصویر به هر دانلود نام خودش داده ولی  پخش که میکنی انگاری فقط آخریو دانلود کرده 

اگر لازمه بگید سورس بزارم 

[Nemesis 1,846]

این کارو با تصویر کردم ولی فایل نه

سورستو بذار ببینم چیه داستانت

[علی علایی 161]

این کارو با تصویر کردم ولی فایل نه

سورستو بذار ببینم چیه داستانت

 

نمونه سورسمو پ خ شد(بنا به دلایلی)

[علی علایی 161]

تست میکنم خبرشو میدم.

منتظرم جوابم هستم

[علی علایی 161]

up

[علی علایی 161]

دوستان کسی نظری نداره 

خدایش اگر کارم گیر نبود زود تاپیک بالا نمی آوردم 

چه کنم که گیر کردم 

[علی علایی 161]

up 

[fun_code 222]

up

سلام

 

بنده تنها کمکی که میتونم به شما بکنم ارسال کتابخانه های دانلود به همراه مثال است.

http://s6.picofile.com/file/8236197784/help.rar.html

 

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

[sajadakbari 163]

سلام

عزیز الان مشکل دقیقا کجاست؟؟

کجا رو مشکل داری؟

[علی علایی 161]

 شرمنده یادم مشکلو بگم

با کد بالا فورس کلوز میده 

یه حرکتی باید تو File.Exists و File.OpenOutput 

باید بزنم که کار کنه فقط نمیدونم چه حرکتی 

[علی علایی 161]

up

[sajadakbari 163]

تست میکنم خبرشو میدم.