علت ارور'unable to create service' چیه؟

[طاها 480]

سلام دوستان. بعد از کلی تلاش تونستم مشکل برنامه مو پیدا کنم. کسی میتونه بگه علتش چیه؟

 

(عکس پیوسته)

[bahman22 0]

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

من دقیقا همین مشکل رو دارم و همین خطا برای من هم رخ میده.!!!!

برنامه درست کار میکنه ولی موقعی که برنامه رو کامل می بندم بعد چند لحظه برای دوبار این ارور رو میده.

 

این هم از کد سرویس من

Sub Process_Globals
	Dim pn As PNBroadcastReceiver
	Dim n As Notification
	Dim time As String
	Dim smb1 As SMB
End Sub

Sub Service_Create
	pn.Initialize("pn")
	pn.AddAction("android.intent.action.TIME_TICK")
	pn.RegisterReceiver
End Sub

Sub Service_Start (StartingIntent As Intent)
	StartServiceAt("", DateTime.Now + 60000*4,True)
	
End Sub
Sub pn_OnReceive(Action As String,keys() As String,Data As Object)
	
	Dim t As tabdilAdadBeEn
	t.Initialize
	
	If Action="android.intent.action.TIME_TICK" Then
		
		Dim time2 As String=DateTime.Time(DateTime.Now)
		time2=time2.SubString2(0,5)
		time2=t.Tabdil(time2)
		time=time.SubString2(0,5)
		time=t.Tabdil(time)
		
		Log(time &" * * * "&time2)
		If time=time2  Then
			n.Initialize
			n.Icon="icon"
			n.OnGoingEvent=True
			n.AutoCancel=True
			n.SetInfo("Download Piping Database","Plaese Wait ...","")
			n.Notify(1)
			
			Try
				smb1.Initialize("smb1")
				smb1.SetCredentials("sheikhi.b","sb1204","tjgen.local")
				smb1.DownloadFile("smb://tjgen.local;sheikhi.b:@192.168.0.12/Piping DB/","Pipingdb.db",File.DirDefaultExternal,"Pipingdb.db")
			Catch
				n.SetInfo("Download Piping Database","Not Access to Local Server !!!","")
				n.Notify(1)
			End Try
			
			
			time=DateTime.Time(DateTime.Now+60000*2)
		Else
				'Log(time&"|"&time2&" && "&date&"|"&date2)
		End If
			
			
		
	End If
End Sub

Sub smb1_DownloadCompleted (Url As String, RemoteFile As String, Success As Boolean)
	If Success = True Then 
		n.SetInfo("Download Piping Database","Download Complete","") 
		n.Notify(1) 
  	Else
		n.SetInfo("Download Piping Database","Err: Server Not Accessible","")
		n.Notify(1)
 	End If

End Sub

Sub Service_Destroy
	StartService("")
End Sub

[طاها 480]

up

[پژمان نیکروان 6,055]

سلام

در سرویس استارتر که واسه خود بیسیک بود پیشفرض ، تغییری ایجاد کردی؟

عجیبه خطاش ...

[پژمان نیکروان 6,055]

طهه جان. خطای Unable To Create Service زمانی رخ میده که موقع اجرای سرویس قسمتی از کدهات ایراد داشته باشن.

به فرض من اگه تو رویداد Create_Service سرویسم یه کدی بنویسم که ایراد داشته باشه برنامه فورس کلوز میشه و این خطا رو میده. حالا دقیقا جزئیات خطا رو نگفته که کجاست مشکل...

شما بیا با اون گوشیه دیباگ کن ببین از کدوم خطه و یا کدهاتو قرار بده ببینیم ما...(قسمت ServiceCreate)

[طاها 480]

طهه جان. خطای Unable To Create Service زمانی رخ میده که موقع اجرای سرویس قسمتی از کدهات ایراد داشته باشن.

به فرض من اگه تو رویداد Create_Service سرویسم یه کدی بنویسم که ایراد داشته باشه برنامه فورس کلوز میشه و این خطا رو میده. حالا دقیقا جزئیات خطا رو نگفته که کجاست مشکل...

شما بیا با اون گوشیه دیباگ کن ببین از کدوم خطه و یا کدهاتو قرار بده ببینیم ما...(قسمت ServiceCreate)

پژمان جان. من سرویس رو به تنهایی توی یه پروژه دیگه تست کردم و کامل جواب داد بدون ارور. اما تو برنامه که میارمش ارور میده.

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

سلام

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