مشکل هنگام نمایش پنجره share و Activity_Pause

[HS71 78]

سلام،

مشکلی که هست هنگام استفاده از share کردنه، و اگه دکمه شیر رو بزنیم و آهنگ در حال پخش باشه اکتیویتی توقف میکنه و پروگرس بار هم از کار میفته و تو هر نقطه ای که باشه همونجا ثابت میمونه!

بعدش در ساب اکتیویتی پوز هم نوشتم:

	If mplayer.IsPlaying = True Then
		ProgressBar1.Progress = SeekBar1.Value 

اما باز هم ثابت میمونه... میخوام هنگام شیر کردن پراگرس بار به کارش ادامه بده در واقع هیچی استاپ نشه در اکتیویتی.

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

و همینطور اگه پنجره شیر کردن باز باشه و آهنگ تموم بشه دکمه پخش همچنان انیمیشن داره تا هنگامی که پنجره شیر رو ببندیم. (اینم یه مشکل دیگش)

جالبه وقتی از msgbox برای تست استفاده کردم هنگامی که جعبه پیغام نمایش داده میشه و آهنگ تموم بشه انیمیشن هم متوقف میشه، اما اگه پنجره شیر فعال باشه آهنگ تموم بشه انیمیشن داره همچنان تا هنگامی که 

Activity_Resume کنم.....

با تشکر.

 

[محمدرضا شاهپیری 5,579]

دوست عزیز شما باید پخش آهنگ رو توی سرویس انجام بدین 

شما وقتی دکمه شیر رو میزنین اکتیویتی به حالت pause میره طبیعیه که آهنگ و هرچی ویو هست استاپ میشه عملکردشون

 

[HS71 78]

در 34 دقیقه قبل، محمدرضا شاهپیری گفته است :

دوست عزیز شما باید پخش آهنگ رو توی سرویس انجام بدین 

شما وقتی دکمه شیر رو میزنین اکتیویتی به حالت pause میره طبیعیه که آهنگ و هرچی ویو هست استاپ میشه عملکردشون

 

پخش آهنگ که استاپ نمیشه و تا انتها میره، فقط ویو ها.....

قبلا هم زیاد در مورد سرویس و آهنگ جستجو شده... اما متاسفانه نتونستم پیاده کنم اگه لطف کنید کدهای اصلی رو میزارم بگید لطفا دقیقا کدها باید کجا باشه

با تشکر،

کدهای اصلیه که مربوط به پخشه،

اکتیویتی:

Sub Process_Globals
	Dim mplayer As MediaPlayer
	Dim time As Timer
End Sub

Sub Activity_Create(FirstTime As Boolean)	
	Activity.LoadLayout("scroll")
	mplayer.Initialize2("mp")
	For i = 0 To curs.RowCount -1
		butplay.Tag = curs.GetInt("id")
		butplay.Text = curs.GetString("mufile")
	Next	
End Sub

Sub Activity_Resume
	If mplayer.IsPlaying = False Then
		For i=0 To lis.Size -1
			Dim b As Button = lis.Get(i)
			If b.TextColor = Colors.Blue Then
			b.TextColor = Colors.Black
			End If
			animation.Stop(b)
		Next
		animation.Stop(b)
		ProgressBar1.SetLayout(1%x,2.3%y,98%x,1.7%y)
	End If	
End Sub

Sub Activity_Pause (UserClosed As Boolean)
				StartService(serv)............................سرویس
	If mplayer.IsPlaying = True Then
		ProgressBar1.Progress = SeekBar1.Value		
	Else If mplayer.IsPlaying = False Then
		For i=0 To lis.Size -1
			Dim b As Button = lis.Get(i)
			If b.TextColor = Colors.Blue Then
				b.TextColor = Colors.Black
			End If
			animation.Stop(b)
		Next
		animation.Stop(b)
	End If
End Sub

Sub butplay_Click
	Dim b As Button = Sender
	If b.TextColor = Colors.Black Then	
		mplayer.Load(File.DirAssets,"folder/"&b.Text&".mp3")
		mplayer.Play
	Else
		time.Enabled = False
		mplayer.Stop
		animation.Stop(b)			
	End If	
End Sub

Sub SeekBar_ValueChanged (Value As Int, UserChanged As Boolean)
	ProgressBar.Progress = SeekBar.Value
End Sub

Sub mp_Complete
	For i=0 To lis.Size -1
		Dim b As Button = lis.Get(i)
		If b.TextColor = Colors.Blue Then
			b.TextColor = Colors.Black
		End If
		animation.Stop(b)
	Next
	ProgressBar1.SetLayout(1%x,2.3%y,98%x,1.7%y)
	SeekBar1.Value = 0
	time.Enabled = False
End Sub

 

سرویس:

 

#Region  Service Attributes 
	#StartAtBoot: False	
#End Region

Sub Process_Globals
	Dim mplayer As MediaPlayer
End Sub

Sub Service_Create
	
End Sub

Sub Service_Start (StartingIntent As Intent)
	
End Sub

Sub Service_Destroy

End Sub

 

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

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

تاپیک های سوال در مورد سرویس هم اکثرا به نتیجه درست نرسیدن!

لطفا اگه ممکنه عنایت بفرمایید و با توضیح بگید چیکار باید انجام بدیم با استفاده از کدها.

[محمدرضا شاهپیری 5,579]

چشم یه آموزش در این خصوص درست میکنم تا دوستان همه استفاده کنن چون مبحث مهمی هم هست و یه خورده کار میبره