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

[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]

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

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

فرمایش شما متینه استاد اما بحث اینجاست که ما نه اسم فایلامون ثابته و نه فرمتشون تو کتابخانه مدیا پلیر mp3 هارو تنها با دستور sound.play روی هر ایتم که کلیک میشه میتونه بخونه اما ogg نمیگیرهبحث اصلی اینه که ما فایلامون مرتب حذف میشن یا افزوده میشن و نه اسمشون ثابته و نه فرمتشون

[bahman 165]

دوستان هیچ سورس و سمپلی برا این مورد ندارن؟

 داره 10 روز میشه تاپیک زدم .......

[bahman 165]

seda.play

@,

 

البته تو کتابخونه soundpool این رو اضافه میکنم خطا میده

اینجا میخوام بفرستمش برای پخش

[alirezakazemizaroomi 437]

سلام

من با کدهای زیر فایلای ویدویی یاصوتیم رو تو VideoView  نمایش میدم:

Sub Process_Globals


End Sub

Sub Globals

    Dim vw As VideoView
	Private ListView1 As ListView
	Dim pos As Int
	Dim po As Int
	Dim ring As RingtoneManager
	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("lay1")
	Activity.Color=Colors.Transparent
	vw.Initialize("vw")
	Activity.AddView(vw,0,0,100%x,20%y)
    Dim l As List
	l=File.ListFiles(File.DirRootExternal&"/zaker" )
	For i=0 To l.Size-1
    Dim n As String
	n=l.Get(i)
	ListView1.AddSingleLine(n)
	Next
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub listview1_ItemClick (Position As Int, Value As Object)

	pos=Position
	vw.LoadVideo(File.DirRootExternal & "/zaker",Value)
    vw.Play
	
End Sub

[bahman 165]

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

[bahman 165]

  داداش شما راه دیگه ای نداری؟@zaker

[alirezakazemizaroomi 437]

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

من این خط کدتو کامنت کردم کار کرد نمیدونم چرا برا شما کار نمیکنه:

If n.EndsWith(".amr") Or n.EndsWith(".ogg") Then

[bahman 165]

 

من این خط کدتو کامنت کردم کار کرد نمیدونم چرا برا شما کار نمیکنه:

If n.EndsWith(".amr") Or n.EndsWith(".ogg") Then

 

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

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