ساخت برنامه موزیک

[hassan543 2]

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

اما مشکل دارم  می خوام یه قسمت برای پخش انلاین اهنگ بزارم یه قسمت هم دانلود  وmysql را چه جوری به برنامه وصل کنم از طریق سرور مطلب اپدیت شود

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

سلام.

عزیز چرا تو بخش توسعه دهندگان تاپیک زدید؟

منتقل شد.

سوالاتون راجع به جاوا هست یا بیسیک4اندروید؟

برای مطلب گذاشتن از طریق سرور باید از دیتابیس آنلاین استفاده کنید که فقط کافیه سرچ کنید "دیتابیس آنلاین" ، آموزش های رایگان و غیررایگانش موجوده.

و برای پخش آنلاین آهنگ هم باید لینک مستقیم مورد نظر رو از بذارید تو دیتابیس و ازاونجا فراخوانی کنید که بازهم آموزش پخش آنلاین موجوده...

دانلود هم همینطور...

[dostmobile 329]

ساخت برنامه موزیک آنلاین ساده ترین کاره

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

تمام

بنظر من دیتابیس انلاین از افلاین اسونتره

[hassan543 2]

لطف می کنید سورسشو قرار بدید

[hassan543 2]

up

[dostmobile 329]

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

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

اگه سورس اماده میخواین که باید سفارش بدین و  حدود 400 میگیرن تهیه میکنن

درسته آسونه اما وقت گیره

[hassan543 2]

الان من وصل کنم شما می تونید اموزش نحوه پخش انلاین اهنگ بهم بگید

[arash127 488]

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

[hassan543 2]

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

بابت سورس تشکر

لطف می کنید کتابخانه MediaPlayerStreamقرار بدید

[arash127 488]

 

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

بابت سورس تشکر

لطف می کنید کتابخانه MediaPlayerStreamقرار بدید

 

پیشفرض وجود داره داخل b4a. اگه اشتباه نکنم audio

[hassan543 2]

از طریق بانک وصل کردش چه جوریه

[hassan543 2]

موقعی که اجراش می کنم برنامه errorمی ده

[dostmobile 329]

لینک مستقیم بزارید

 

این قسمت

 

 

 mp.Load("http://www...")

[hassan543 2]

بازم ارور می ده

  mp.Load("http://s4.topseda.ir/95/Music/1/18/Saeed%20Arab%20-%20Tafre%20%5b128%5d.mp3")

[hassan543 2]

دوستان درست شد