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

[bahman 165]

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

	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 فرمت رو بخونه

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

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

[bahman 165]

کسی نیس اینجا یه سر بزنه؟

[bahman 165]

دوستان 4 روزه درگیر اینم هیشکی ازینجا رد هم نمیشه یعنی؟

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

http://answercenter.ir/topic/3498-%DA%AF%D8%B1%D9%81%D8%AA%D9%86-%D9%81%D8%A7%DB%8C%D9%84-%D9%87%D8%A7-%D8%A8%D9%87-%D8%B5%D9%88%D8%B1%D8%AA-%D9%84%DB%8C%D8%B3%D8%AA/

 

http://answercenter.ir/topic/3528-%DA%AF%D8%B1%D9%81%D8%AA%D9%86-%D9%84%DB%8C%D8%B3%D8%AA%DB%8C-%D8%A7%D8%B2-%D8%B9%DA%A9%D8%B3-%D9%88-%D9%86%D9%85%D8%A7%DB%8C%D8%B4-%D8%AF%D8%B1-%D8%A7%D8%B3%DA%A9%D8%B1%D9%88%D9%84-%D9%88%DB%8C%D9%88/

[bahman 165]

[bahman 165]

نتونستم

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

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

 

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

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

[alirezakazemizaroomi 437]

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

[bahman 165]

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

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

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

[alirezakazemizaroomi 437]

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

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

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

[bahman 165]

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

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

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

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

[bahman 165]

http://answercenter.ir/topic/3498-%DA%AF%D8%B1%D9%81%D8%AA%D9%86-%D9%81%D8%A7%DB%8C%D9%84-%D9%87%D8%A7-%D8%A8%D9%87-%D8%B5%D9%88%D8%B1%D8%AA-%D9%84%DB%8C%D8%B3%D8%AA/

 

http://answercenter.ir/topic/3528-%DA%AF%D8%B1%D9%81%D8%AA%D9%86-%D9%84%DB%8C%D8%B3%D8%AA%DB%8C-%D8%A7%D8%B2-%D8%B9%DA%A9%D8%B3-%D9%88-%D9%86%D9%85%D8%A7%DB%8C%D8%B4-%D8%AF%D8%B1-%D8%A7%D8%B3%DA%A9%D8%B1%D9%88%D9%84-%D9%88%DB%8C%D9%88/

 

 

استاد واس گرفتن و نمایشش مشکلی نیست

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

[Elyas Erfani 3,582]

سلام

 

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

 

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

 

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

[bahman 165]

سلام

 

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

 

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

 

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

[Elyas Erfani 3,582]

از یه طرف اینجا دسترسی دانلود ندارم و 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)

[bahman 165]

نشد که نشد

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

 

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

[bahman 165]

@,

#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

کل سورس اینه

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

 

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

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

اما پخشش....

[alirezakazemizaroomi 437]

@,

#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

[bahman 165]

 

این کدو امتحان کنید با 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

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

[bahman 165]

هنوز چشم به راه یه کمک .......

[Elyas Erfani 3,582]

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

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

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 کار کنید پ به ازای کلیک رو هر ایتم ی صدا پخش کنید

[bahman 165]

دوستان مشکل از فرمت 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

گیر میده