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

مشکل در مدیا پلیر


bahman

سوال

دوستان من با کد

	Activity.LoadLayout("1")
Dim l As List
l=File.ListFiles(File.DirRootExternal&"/bhmiiii" )
For i=0 To l.Size-1
Dim n As String
n=l.Get(i)
If n.EndsWith(".amr") Or n.EndsWith(".ogg") Then
ListView1.AddSingleLine(n)
Label=ListView1.SingleLineLayout.Label
Label.TextColor=Colors.black
Label.Typeface=Typeface.LoadFromAssets("yekan.ttf")

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

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

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

البته مدیا پلیری که بتونه این 2 فرمت رو بخونه

----------------------------------------------------

از دیروز باهاش ور میرم نتونستم کلی سورس و اینا هم چک کردم متاسفانه ...

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

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

نتونستم

الان من محتویات فولدر مورد نظرمو رو لیست ویو نشون میدم اما من میخوام رو هر ایتمش که کلیک شد پخش شه

اینجاش موندم ...

 

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

معمولا هم تاپیکام بی نتیجه میمونن :(

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

تو قسمت آیتم کلیک لیست ویوlistview1 .clear رو اضافه کن

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

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

پروژه رو متوقف میکنم و بیخیالش میشم

ولی کاش انجمن مثل سابق بود

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

بحث اینجاست من میتونم فایلای تو پوشه با فرمتی که مد نظرمه بگیرم این فایلا همیشه اسمشون متفاوته !!!

مشکل من پخششون هست

به اسمشون کاری نداره با هر اسمی که تو پوشه مورد نظر باشه نشون میده و فقط رو لیست ویو کلیک میکنی وپخش میشه،دیگه نمیدونم شما با چیش مشکل دارین

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

اقا کل پروژه اینه

یه نرم افزاری ساختم میادفایلایmp3 ogg رو از جاهhی مختلف به اسامی مختلف میگیره میندازه تو پوشه ای به نام bhmiiii

حالا من میخوام کاری کنم که لیست ویو این فایلارو در این 2 فرمت بگیره نشون بده (تا اینجاشو ساده بوذد نوشتم)

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

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

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

سلام

 

واسه پخش فرمت های مختلف

 

این کتابخونه رو دیدید ؟؟

 

https://www.b4x.com/android/forum/threads/vitamiob4a-a-b4a-wrapper-of-the-vitamio-plugin-advanced-videoview-library.19329/

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

سلام

 

واسه پخش فرمت های مختلف

 

این کتابخونه رو دیدید ؟؟

 

https://www.b4x.com/android/forum/threads/vitamiob4a-a-b4a-wrapper-of-the-vitamio-plugin-advanced-videoview-library.19329/

 

از یه طرف اینجا دسترسی دانلود ندارم و ogg نزده تو فرمتاش از یه طرف مشکل رفته رفته حل شد

تونستم لیست فایلارو بگیرم

تونستم mp3 پخش کنم

گفتن با sound pool میشه ogg پخش کرد اومدم استفاده کردم

اما دستور اخر واس پخش که میشه sound.play بیسیک اجازه نمیده و میگه invalid parameter

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

از یه طرف اینجا دسترسی دانلود ندارم و ogg نزده تو فرمتاش از یه طرف مشکل رفته رفته حل شد

تونستم لیست فایلارو بگیرم

تونستم mp3 پخش کنم

گفتن با sound pool میشه ogg پخش کرد اومدم استفاده کردم

اما دستور اخر واس پخش که میشه sound.play بیسیک اجازه نمیده و میگه invalid parameter

 

این کدو امتحان کنید با SoundPool

خوب معلومه ک فقط نوشتید مثلا SoundPool.Play ارور پارامتر میده 

Dim lnt1 As Int
Dim ss As SoundPool
ss.Initialize(1)
lnt1 = ss.Load(File.DirAssets,"music.ogg")
ss.Play(Int1,0,1,1,1,2)
لینک ارسال
به اشتراک گذاری در سایت های دیگر

نشد که نشد

الان اینجا فرمتا تشخیص داده شدن و لیست فایلا گرفته شده

 

تنها مشکلم ارسال به مدیا پلیر جهت پخشه

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

@,

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: false
#End Region

Sub Process_Globals
  Dim ss As MediaPlayer
End Sub

Sub Globals
	Dim pos As Int
	Private ListView1 As ListView
	Private Button1 As Button
	Dim Label As Label
	Dim mediaplayer1 As MediaPlayer
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("1")
Dim l As List
l=File.ListFiles(File.DirRootExternal&"/bhmiiii" )
For i=0 To l.Size-1
Dim n As String
n=l.Get(i)
If n.EndsWith(".amr") Or n.EndsWith(".ogg") Then
ListView1.AddSingleLine(n)
Label=ListView1.SingleLineLayout.Label
Label.TextColor=Colors.black
Label.Typeface=Typeface.LoadFromAssets("yekan.ttf")
mediaplayer1.Initialize()

End If
Next
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub Button1_Click
    ss.Play
 
End Sub

	
 

Sub listview1_ItemClick (Position As Int, Value As Object)
	pos=Position
	mediaplayer1.Load(File.DirRootExternal & "/bhmiiii",Value)
	ListView1.clear
	mediaplayer1.Play

End Sub

کل سورس اینه

اما نمیخونه !!! خطا میده

 

فقط چندتا نکته فایل های توی اون پوشه همش عوض میشن و ثابت نیستن  هم اسمشون و هم ...

اینارو لیست ویو نشون میده

اما پخشش....

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

@,

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: false
#End Region

به جای این:

Sub listview1_ItemClick (Position As Int, Value As Object)
	pos=Position
	mediaplayer1.Load(File.DirRootExternal & "/bhmiiii",Value)
	ListView1.clear
	mediaplayer1.Play

End Sub

از این استفاده کن:

Sub listview1_ItemClick (Position As Int, Value As Object)
ListView1.Enabled=False
ListView1.Visible=False
	pos=Position
	mediaplayer1.Load(File.DirRootExternal & "/khande",Value)
	
	mediaplayer1.Play

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

 

این کدو امتحان کنید با SoundPool

خوب معلومه ک فقط نوشتید مثلا SoundPool.Play ارور پارامتر میده 

Dim lnt1 As Int
Dim ss As SoundPool
ss.Initialize(1)
lnt1 = ss.Load(File.DirAssets,"music.ogg")
ss.Play(Int1,0,1,1,1,2)

استاد خیلی ممنون مشکل کامپایلش حل شد اما پخش نمیکنه صداش نمیاد ولی خطا هم نمیده

واس لیست ویو کلیک زدم

Sub listview1_ItemClick (Position As Int, Value As Object)

seeda.Initialize(1)
lnt1 = seeda.Load(File.DirRootExternal & "/bhiiiii",Value)
seeda.Play(lnt1,0,1,1,1,2)
End Sub

چون فایل مشخصی نیست و همش عوض میشن لیست ویو لود میکنه بعد که زدم باید بخونه

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

استاد خیلی ممنون مشکل کامپایلش حل شد اما پخش نمیکنه صداش نمیاد ولی خطا هم نمیده

واس لیست ویو کلیک زدم

Sub listview1_ItemClick (Position As Int, Value As Object)

seeda.Initialize(1)
lnt1 = seeda.Load(File.DirRootExternal & "/bhiiiii",Value)
seeda.Play(lnt1,0,1,1,1,2)
End Sub
چون فایل مشخصی نیست و همش عوض میشن لیست ویو لود میکنه بعد که زدم باید بخونه

خوب واسه هر ایتم لیست ویو متفاوته صدایی ک پخش میشه دیگه

بیاید با دستور Select Case کار کنید پ به ازای کلیک رو هر ایتم ی صدا پخش کنید

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

دوستان مشکل از فرمت ogg هستش که نمیتونه مدیا پلیر پخشش کنه

راه حلی دارین؟


الان مشکل عدم پخش mp3 حل شد با رفتن به کتابخانه sound pool

 اما به کد

Sub listview1_ItemClick (Position As Int, Value As Object)
	pos=Position
	seda.Load(File.DirRootExternal & "/bhmiiii",Value)
seda.play
End Sub

گیر میده

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

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

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