رفتن به مطلب
  • 0

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


sadeghkm82

سوال

کسی سورس دانلود و ذخیره کردن یک موزیک و پخش کردن اون رو داره؟

من دانلود کردن و پخش اون رو بلدم ولی ذخیره کردن اون رو یاد ندارم

اگه اموزشش هم باشه عیبی نداره

 

 

 

 

اگه دارید حتما بفرستید به کار دارم 

ممنون

لینک ارسال
به اشتراک گذاری در سایت های دیگر

2 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

سلام

کتابخانه HttpUtils2 تیک بزن

dim ht as HttpJob
متغیر رو تعریف کن

بعد این کدهای پایین رو بزار توی مثلا رویداد دکمه(یا هر جایی که میخوای دانلود شروع بشه)

ht.Initialize("ht",Me)
ht.Download("لینک فایل مورد نظرت رو اینجا بزار")
ProgressDialogShow2("در حال دانلود ...",False)

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

بعد این ساب پاییین رو یجای از اکتیویتی بزار

Sub JobDone (job As HttpJob)
 ProgressDialogHide
 If job.Success Then
   Dim m As InputStream = job.GetInputStream
   Dim n As OutputStream = File.OpenOutput(File.DirRootExternal,"اسمی که میخوای فایل دانلودی به اون اسم ذخیزه بشه",True)
   File.Copy2(m,n)
   ToastMessageShow("دانلود انجام شد",False)
 Else
   ToastMessageShow("دانلود انجام نشد !",False)
 End If
End Sub

وقتی دانلود تموم شد اون رو توی مسیری که دادیم(میتونی مسیر دیگه ای بهش بدی) ذخیره میکنه با اسمی که میخوای فقط اگه بخوای بعدا بصورت آفلاین فایل رو پخش کنی باید مسیر رو یادت باشه و مثلا برای پخش آهنگ , اون مسیر رو بدی که از اونجا پیدا کنه آهنگ رو

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در در 1396/11/07, 12:50:01، shazde گفته است :

سلام

کتابخانه HttpUtils2 تیک بزن

dim ht as HttpJob
متغیر رو تعریف کن

بعد این کدهای پایین رو بزار توی مثلا رویداد دکمه(یا هر جایی که میخوای دانلود شروع بشه)


ht.Initialize("ht",Me)
ht.Download("لینک فایل مورد نظرت رو اینجا بزار")
ProgressDialogShow2("در حال دانلود ...",False)

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

بعد این ساب پاییین رو یجای از اکتیویتی بزار


Sub JobDone (job As HttpJob)
 ProgressDialogHide
 If job.Success Then
   Dim m As InputStream = job.GetInputStream
   Dim n As OutputStream = File.OpenOutput(File.DirRootExternal,"اسمی که میخوای فایل دانلودی به اون اسم ذخیزه بشه",True)
   File.Copy2(m,n)
   ToastMessageShow("دانلود انجام شد",False)
 Else
   ToastMessageShow("دانلود انجام نشد !",False)
 End If
End Sub

وقتی دانلود تموم شد اون رو توی مسیری که دادیم(میتونی مسیر دیگه ای بهش بدی) ذخیره میکنه با اسمی که میخوای فقط اگه بخوای بعدا بصورت آفلاین فایل رو پخش کنی باید مسیر رو یادت باشه و مثلا برای پخش آهنگ , اون مسیر رو بدی که از اونجا پیدا کنه آهنگ رو

ممنون این کتابخانه output strraem (اگه اشتباه تایم کردم ببخشید) رو لطفا بفرستید 

و

برای این که اونو توی یه پروگرس بار قرار بدم باید چی کار کنم

 

موزیک آفلاینو بلدم ولی اینو نه

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...