اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

 برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


sadeghkm82

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

3 ارسال در این موضوع قرار دارد

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

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

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

 

 

 

 

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

ممنون

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


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

سلام

کتابخانه 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 (اگه اشتباه تایم کردم ببخشید) رو لطفا بفرستید 

و

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

 

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

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


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

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری