پخش اهنگ انلاین

[naser sahami 90]

سلام بر دوستان انجمن من یه مدیا پلیر دارم که از دیتابیس اهنگشا میخونه من وقتی اهنگ ها را افلاین قرار میدهم حجم برنامم بالا میره میخواستم ببینم میشه این اهنگ ها را انلاین پخش کرد در صورت نیازکاربربتونه اون ها را  دانلودشون کنه؟

[mohsen-star 37]

دوستان من اکثر مدیا پلیر این جا را دانلود کردم و متعصفانه تا الان اصلا برنامه انلاین نزدم برا همین نمیدونم چککار باید بکنم تا مدیا حرفه ای درست کنم مثل مدیا گوشی ها با این تفاوت که انلاین باشه و بعد دانلود همیشه تو همون جا(برنامه) افلاین پخش شه.

یعنی چی ؟ الان مشکلی دارید ؟ تو چ چیزی ؟

خودتون فهمیدید چی میخاین ؟

[حاج حسین 2,098]

خب شما یه کار کن 

کنار دکمه های پلیر یه باتن بزار برای دانلود 

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

کلش یه حلقه فور تو رویداد پلی هست

[حاج حسین 2,098]

بفرمایید لقمه حاضر آماده فقط باید بجوید 

اول اینجا برو 

دانلود موسیقی و پخش پس از دانلود ***

 بعد 

اینو ساب گلوبال بنویس 

Dim med As MediaPlayerStream 

بعد تو رویداد پلی 

تا end sub 

 Sub Button1_Click
If File.Exists(File.DirRootExternal & "/MusicB4A", "aa.mp3") = True Then
	 sound.Initialize2("")
	 sound.Load(File.DirRootExternal & "/MusicB4A", "aa.mp3")
	  sound.Play
	Else
	
	ToastMessageShow("فایل دانلود نشده",True)


med.Initialize("med")
med.Load("لینک مستقیم آهنگ")
med_StreamReady
ToastMessageShow("درحال بارگذاری...",True)



	End If


End Sub

Sub med_StreamReady
	med.Play
	ToastMessageShow("درحال پخش...",True)
End Sub
Sub med_StreamError (ErrorCode As String, ExtraData As Int)
	ToastMessageShow("نمیتواند پخش شود",True)
End Sub

امبدوارم تونسته باشه بهت کمک کنم همشهری 

دیگه از این واضحتر نمیتونم توضیح بدم (خدایش هیچی سختی نداره )

[naser sahami 90]

بفرمایید لقمه حاضر آماده فقط باید بجوید 

اول اینجا برو 

دانلود موسیقی و پخش پس از دانلود ***

 بعد 

اینو ساب گلوبال بنویس 

Dim med As MediaPlayerStream 

بعد تو رویداد پلی 

تا end sub 

 Sub Button1_Click
If File.Exists(File.DirRootExternal & "/MusicB4A", "aa.mp3") = True Then
	 sound.Initialize2("")
	 sound.Load(File.DirRootExternal & "/MusicB4A", "aa.mp3")
	  sound.Play
	Else
	
	ToastMessageShow("فایل دانلود نشده",True)


med.Initialize("med")
med.Load("لینک مستقیم آهنگ")
med_StreamReady
ToastMessageShow("درحال بارگذاری...",True)



	End If


End Sub

Sub med_StreamReady
	med.Play
	ToastMessageShow("درحال پخش...",True)
End Sub
Sub med_StreamError (ErrorCode As String, ExtraData As Int)
	ToastMessageShow("نمیتواند پخش شود",True)
End Sub

امبدوارم تونسته باشه بهت کمک کنم همشهری 

دیگه از این واضحتر نمیتونم توضیح بدم (خدایش هیچی سختی نداره )

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

[مجید آرتا 5,875]

سلام

کد رو بنده دانلود نکردم تا از عملکردش بدونم

ببینید ظاهرا این کد میاد چک می کنه موزیک توی مموری موجوده،اگه موجود نبود مستقیما از نت یا هاستتون موزیک رو پخش می کنه.

[Elyas Erfani 3,582]

سلام

دوست عزیز اموزش کامل پخش انلاین اهنگ

پخش و دانلود

دانلود

و ‌.‌‌.. رو در تاپیک زیر قرار دادم ببینید‌ مشکلتون حل میشه

http://answercenter.ir/topic/8975-%D8%A7%D9%85%D9%88%D8%B2%D8%B4-%D8%AA%D8%B5%D9%88%DB%8C%D8%B1%DB%8C-%D8%AF%D8%A7%D9%86%D9%84%D9%88%D8%AF-%D8%A7%D9%87%D9%86%DA%AF-%D9%88-%D9%BE%D8%AE%D8%B4-%D8%A7%D9%86-%D8%AF%D8%B1%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-mediaplayer-streamer/

[Mohsen27 199]

سلام.

از کتابخانه audio استفاده کنید.

http://www.basic4ppc.com/android/help/audio.html#mediaplayerstream

اینم لینکش تو سایت اصلی

mediaplayerstream

موفق باشید

[naser sahami 90]

این که ضبط صداس ببینید من میخوام  انلاین اهنگ از سایتی پخش شه درصورت  نیاز کاربر اونا را دانلود کنه مثلا 10تا اهنگ از سایتی بصورت پشت سر هم  پخش شه بشه جدا گونه دانلودشون کرد

[Mohsen27 199]

ضبط صدا نیست عزیز.

بفرما کدش

Sub Process_Globals
  Dim mp As MediaPlayerStream
End Sub

Sub Globals

End Sub

Sub Activity_Create(FirstTime As Boolean)
  If FirstTime Then
    mp.Initialize("mp")
  End If
  mp.Load("http://www...")
End Sub
Sub mp_StreamReady
  Log("starts playing")
  mp.Play
End Sub
Sub mp_StreamError (ErrorCode As String, ExtraData As Int)
  Log("Error: " & ErrorCode & ", " & ExtraData)
  ToastMessageShow("Error: " & ErrorCode & ", " & ExtraData, True)
End Sub
Sub mp_StreamBuffer(Percentage As Int)
  Log(Percentage)
End Sub 

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

این که ضبط صداس ببینید من میخوام  انلاین اهنگ از سایتی پخش شه درصورت  نیاز کاربر اونا را دانلود کنه مثلا 10تا اهنگ از سایتی بصورت پشت سر هم  پخش شه بشه جدا گونه دانلودشون کرد

سلام.

آقا محسن درست گفت ، با کتابخانه Audio باید انجام بشه ،تو توضیاحت سایت مرجع هستش. شما فقط ضبط صدا رو دیدین.

Sub Globals
Dim med As MediaPlayerStream
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("main")
med.Initialize("med")
med.Load("لینک مستقیم آهنگ")
ToastMessageShow("درحال بارگذاری...",True)

End Sub
Sub med_StreamReady
	med.Play
	ToastMessageShow("درحال پخش...",True)
End Sub
Sub med_StreamError (ErrorCode As String, ExtraData As Int)
	ToastMessageShow("نمیتواند پخش شود",True)
End Sub

[naser sahami 90]

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

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

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

روش دانلود که وجود داره تو سایت.

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

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

[حاج حسین 2,098]

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

اولا اسپم ندید وگرنه نتیجه اش دریافت اخطاره (اونم تو 5دقیقه)

 دوما سوال تاپیک چیز دیگه ای است

سوما یه نمونه سورس هست برای دانلود آهنگ سرچ کن 

چهارما در مورد علاقه مندی مطلب خیله سرچ کن

[naser sahami 90]

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

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

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

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

باید کار بکنید تا دستتون بیاد.

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

[alijenab 12]

سلام دوست عزیز این برنامه فایل صوتی رو دانلود میکنه بعد پخش میکنه یا روی همون هاست پخش میکنه؟

[naser sahami 90]

دوستان من اکثر مدیا پلیر این جا را دانلود کردم و متعصفانه تا الان اصلا برنامه انلاین نزدم برا همین نمیدونم چککار باید بکنم تا مدیا حرفه ای درست کنم مثل مدیا گوشی ها با این تفاوت که انلاین باشه و بعد دانلود همیشه تو همون جا(برنامه) افلاین پخش شه.