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

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


hunter0010

سوال

سلام دوستان

لطفا راهنماییم کنید که چه طور میشه موزیک رو به صورت انلاین پخش کرد وبا کدی دیگه دانلود کرد؟؟؟

 

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

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

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

سلام

کد دانلود:


Sub btn1_click

	job1.Initialize("job1",Me)
	job1.Download("http://hw6.asset.aparat.com/aparat-video/532692b33ab2cbebaf5f4176e983eb8d1714807__96026.mp4")
end sub




Sub JobDone (job As HttpJob)

    If job.Success=True Then
If job.JobName = "job1" Then
ToastMessageShow("فایل دانلود و ذخیره شد",True)
End If
End If

 end sub

کد ‍پخش آنلاین:



Sub btdown_Click

 Dim vw As VideoView
vw.Initialize("vw")
	Activity.AddView(vw,0,0,100%x,Activity.Width)
vw.LoadVideo("http",http://hw6.asset.aparat.com/aparat-video/532692b33ab2cbebaf5f4176e983eb8d1714807__96026.mp4)
	ToastMessageShow("درحال بارگزاری فیلم",True)
	vw.Play
end sub







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

 

سلام

کد دانلود:


Sub btn1_click

	job1.Initialize("job1",Me)
	job1.Download("http://hw6.asset.aparat.com/aparat-video/532692b33ab2cbebaf5f4176e983eb8d1714807__96026.mp4")
end sub




Sub JobDone (job As HttpJob)

    If job.Success=True Then
If job.JobName = "job1" Then
ToastMessageShow("فایل دانلود و ذخیره شد",True)
End If
End If

 end sub

کد ‍پخش آنلاین:



Sub btdown_Click

 Dim vw As VideoView
vw.Initialize("vw")
	Activity.AddView(vw,0,0,100%x,Activity.Width)
vw.LoadVideo("http",http://hw6.asset.aparat.com/aparat-video/532692b33ab2cbebaf5f4176e983eb8d1714807__96026.mp4)
	ToastMessageShow("درحال بارگزاری فیلم",True)
	vw.Play
end sub

سلام 

این کد برای mp4 کار میکنه و برای mp3 کار نمیکنه(قسمت پخش انلاین)

لطفا راهنماییم کنید.

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

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

بعدش :

Dim mp As MediaPlayerStream
mp.Initialize("mp")

برای پخش هم :

mp.Load("لینک موزیک")
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

 

سلام

کد دانلود:


Sub btn1_click

	job1.Initialize("job1",Me)
	job1.Download("http://hw6.asset.aparat.com/aparat-video/532692b33ab2cbebaf5f4176e983eb8d1714807__96026.mp4")
end sub




Sub JobDone (job As HttpJob)

    If job.Success=True Then
If job.JobName = "job1" Then
ToastMessageShow("فایل دانلود و ذخیره شد",True)
End If
End If

 end sub

کد ‍پخش آنلاین:



Sub btdown_Click

 Dim vw As VideoView
vw.Initialize("vw")
	Activity.AddView(vw,0,0,100%x,Activity.Width)
vw.LoadVideo("http",http://hw6.asset.aparat.com/aparat-video/532692b33ab2cbebaf5f4176e983eb8d1714807__96026.mp4)
	ToastMessageShow("درحال بارگزاری فیلم",True)
	vw.Play
end sub

سلام 

این کد برای mp4 کار میکنه و برای mp3 کار نمیکنه(قسمت پخش انلاین)

لطفا راهنماییم کنید.

 

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

درضمن کدی که من گفتم برا mp3 هم کار میکنه

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

کدهای بالا کار نکردن

کسی دیگه بلد نیست؟؟؟

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

کدهای بالا کار نکردن

کسی دیگه بلد نیست؟؟؟

کدهایی که دوستان دادن درسته دیگه عزیز چطور کار نکردن؟ :@

اینم هست....

http://answercenter.ir/topic/8443-%D9%BE%D8%AE%D8%B4-%D8%A7%D9%87%D9%86%DA%AF-%D8%A7%D9%86%D9%84%D8%A7%DB%8C%D9%86/

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

بایگانی شده

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

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

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