Dim fara As Farakhani
Dim p As MediaPlayer
Private btn1 As Button
Private listahang As ListView
Dim ht As HttpJob
Dim rowCount As Int
Dim ht2 As HttpJob
Private Button1 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("listahang")
fara.initialize("db.db","tbl_music",True)
fara.SingleLineTitr(listahang,"name_music","id")
p.Initialize2("p")
If File.Exists(File.DirInternal,"db.db") = False Then
File.copy(File.DirAssets,"db.db",File.DirInternal,"db.db")
End If
If sql.IsInitialized = False Then
sql.Initialize(File.DirInternal,"db.db",True)
End If
showlist
ht.Initialize("job1",Me)
ht2.Initialize("job2",Me)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
p.Pause
End Sub
Sub listahang_ItemClick (Position As Int, Value As Object)
Dim name_file As String
name_file = fara.FarakhaniString("id",Value,"name_file")
p.Load(File.DirAssets,name_file)
p.Play
End Sub
Sub Button1_Click
p.Pause
End Sub
الان من دیتابیس انلاینمو راه انداختم
میخوام کاربر وقتی روی اهنگ کلیک میکنه اهنگ دانلود بشه وقتی p as mediaplayerstream میزارم نمیزاره که کد (p.Load(File.DirAssets,name_file رو بنویسم و کلا ارور میده اما در حالت p as mediaplayer هیچ اروری نیست الان من میخوام که تو دیتبیسم لینک دانلود اهنگو بدم و بعدش پخش بشه
سوال
Cna 5
سلام دوستان من یه کد نوشتم که اینه
الان من دیتابیس انلاینمو راه انداختممیخوام کاربر وقتی روی اهنگ کلیک میکنه اهنگ دانلود بشه وقتی p as mediaplayerstream میزارم نمیزاره که کد (p.Load(File.DirAssets,name_file رو بنویسم و کلا ارور میده اما در حالت p as mediaplayer هیچ اروری نیست الان من میخوام که تو دیتبیسم لینک دانلود اهنگو بدم و بعدش پخش بشه
ممنون میشم کمک کنید
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.