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

[hunter0010 62]

سلام دوستان

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

 

[alirezakazemizaroomi 437]

سلام

کد دانلود:

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

[hunter0010 62]

 

سلام

کد دانلود:

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 کار نمیکنه(قسمت پخش انلاین)

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

[مهدی ایزدی 9,203]

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

بعدش :

Dim mp As MediaPlayerStream

mp.Initialize("mp")

برای پخش هم :

mp.Load("لینک موزیک")

[alirezakazemizaroomi 437]

 

 

سلام

کد دانلود:

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 هم کار میکنه

[hunter0010 62]

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

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

[پژمان نیکروان 6,055]

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

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

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

اینم هست....

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/