مشکل در فراخوانی صدا با تغییر فرمت

[mohamad9204 19]

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

آقا من میخوام چندتا صوت آفلاین رو فراخونی کنم دو تا مشکل دارم

1-وقتی با فرمت(mp3)کار میکنم فایل بخش میشه اما وقتی که با فرمت مورد نیازم(wma)کار میکنم خطای زیر رو میده

 

2-وقتی که وسط بخش بر رو stopمیزنم بعدش هم فایل رو دوباره play میکنم از اول شروع میشه

Sub Process_Globals
Dim SQL As SQL
Dim timer1 As Timer
End Sub

Sub Globals
    Dim cr As Cursor
	Dim i As Int:i=0
	Private lblword As Label
	Private imgnex As ImageView
    Dim MediaPlayer1 As MediaPlayer
	Private btnsot As Button
	Dim barPosition As SeekBar
	Dim barVolume As SeekBar
	Dim lblPosition As Label
	Dim Looping As ToggleButton
	Private imgback As ImageView
	Private imgpause As ImageView
	Private imgplay As ImageView
	Private imgstop As ImageView

End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("dors_soty")
	If File.Exists(File.DirInternal,"Textonee.db")=False Then
	File.Copy(File.DirAssets,"Textonee.db",File.DirInternal,"Textonee.db")
	End If
SQL.Initialize(File.DirInternal,"Textonee.db",False)
timer1.Initialize("timer1", 1000)

Try
cr=SQL.ExecQuery("SELECT*FROM sqldataa")
cr.Position=i
lblword.Text=cr.GetString("sot")
Catch
End Try

	MediaPlayer1.Initialize( )
		MediaPlayer1.Load(File.DirAssets, lblword.Text)
	
End Sub

Sub imgnex_Click
imgpause.Visible=False
imgplay.Visible=True
If MediaPlayer1.IsPlaying Then
MediaPlayer1.stop
End If
i=i+1
Try
cr=SQL.ExecQuery("SELECT*FROM sqldataa")
cr.Position=i
lblword.Text=cr.GetString("sot")
Catch
End Try

End Sub
Sub imgback_Click
imgpause.Visible=False
imgplay.Visible=True
	If MediaPlayer1.IsPlaying Then
MediaPlayer1.stop
End If
i=i-1
Try
cr=SQL.ExecQuery("SELECT*FROM sqldataa")
cr.Position=i
lblword.Text=cr.GetString("sot")
Catch
End Try
End Sub

Sub imgplay_Click
MediaPlayer1.Initialize2("")
MediaPlayer1.Load(File.DirAssets, lblword.Text)
MediaPlayer1.play
imgpause.Visible=True
imgplay.Visible=False
End Sub

Sub Activity_Resume
	timer1.Enabled = True
	timer1_Tick
End Sub

Sub Activity_Pause (UserClosed As Boolean)
	If MediaPlayer1.IsPlaying Then MediaPlayer1.Pause
	timer1.Enabled = False
End Sub

Sub timer1_Tick
	If MediaPlayer1.IsPlaying Then
		barPosition.Value = MediaPlayer1.Position / MediaPlayer1.Duration * 100
		lblPosition.Text = "Position: " & ConvertToTimeFormat(MediaPlayer1.Position) & _
			" (" & ConvertToTimeFormat(MediaPlayer1.Duration) & ")"
	End If
End Sub
Sub ConvertToTimeFormat(ms As Int) As String
	Dim seconds, minutes As Int
	seconds = Round(ms / 1000)
	minutes = Floor(seconds / 60)
	seconds = seconds Mod 60
	Return NumberFormat(minutes, 1, 0) & ":" & NumberFormat(seconds, 2, 0) 'ex: 3:05
End Sub

Sub barVolume_ValueChanged (Value As Int, UserChanged As Boolean)
	MediaPlayer1.SetVolume(barVolume.Value / 100, barVolume.Value / 100)
End Sub

Sub barPosition_ValueChanged (Value As Int, UserChanged As Boolean)
	If UserChanged = False Then Return
	MediaPlayer1.Position = Value / 100 * MediaPlayer1.Duration
	If MediaPlayer1.IsPlaying = False Then 'in halat zamani etefagh miofte k music b akhar reside v karbar neshangaro b aval montaghel mikone
		MediaPlayer1.Play
	End If
	timer1_Tick 
End Sub

Sub Looping_CheckedChange(Checked As Boolean)
	MediaPlayer1.Looping = Checked
End Sub


Sub imgstop_Click
	MediaPlayer1.Stop
		imgpause.Visible=False
imgplay.Visible=True
End Sub

Sub imgpause_Click
	MediaPlayer1.Pause
	imgpause.Visible=False
imgplay.Visible=True
End Sub

[mohamad9204 19]

آقا کسی اینو بلده

[mohamad9204 19]

اقایون به هر دری زدم نشد فقط هم باید با فرمتwmaباشه

[حاج حسین 2,098]

(MediaPlayer1.Load(File.DirAssets,(.wma

 

 

 این فراخوانی آهنگت که کامل نیست اخوی 

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

[ebham 232]

1 - برای کم حجم شدن اهنگ یا صدا و پخش شدن توی همه گوشی ها  بدون مشکل فایل ها رو به فرمت ogg. تبدیل کنید  نرم افزارش به صورت رایگان در همه سایت ها موجوده 

 

2 - اکثر مدیا پلیرها چیزی به اسم stop ندارن در دوحالت stop و pause .. از pause استفاده میشه که قابلیت ادامه داشته باشه شما هم از pause استفاده کنید که بعد از play ادامه صدا پخش بشه 

 

3 - توصیه میکنم فایل ها ی صدا رو توی اکت مورد نظر فراخونی نکنید و از code module استفده کنید -- اونجا همه صدا ها  رو دسته بندی   کنید و در هر اکت  فقط ساب مورد نظر رو فراخونی کنید 

این کار باعث سرعت بهتر -- عمل کرد روان  تر و اصولی تره -- البته و صد البته  ارور %0 

 

موفق و پیروز باشی 

 

ملاحظه -  وقتی از مشکلی اسکرین شات میگیرد حتما از خورجی  دیباگر استفاده کنید نه رلیز -- در رلیز وقتی مشکلی پیش بیاد کد خط جاوا رو ارور میده و دقیق نمیشه فهمید مشکل از کجاست ولی وقتی با دیباگر خروجی بگیرد  کد خط  بیسیک رو میده با کمی توضیح که بهتر میشه برای رفعش کار کرد 

[alidownload 12]

سلام 

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

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

خب ببین برای مشکل اول من اومدم 

تویActivity_Create

اون media player1

رو بنویسی

media player1.initialize

کنی بعدش

توی

بنویس

Sub imgplay_Click

mediaplayer1.Stop

(  " media player1.Load(File.DirAssets,".wav

 

    media player1.Play

 

 

End Sub

 

 

 

داداش سوال دومتو نمی دونم اتفاقا سوال خودم هم هست

[mohamad9204 19]

اقا اینجا رو خطا میده منظورتون برای ویرایش همینجا بود

Sub imgplay_Click
("")MediaPlayer1.Initialize2
MediaPlayer1.Stop
(MediaPlayer1.Load(File.DirAssets,(.wma
MediaPlayer1.play
imgpause.Visible=True
imgplay.Visible=False
End Sub

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