رفتن به مطلب
  • 0

مشکل با job done


babi.jonz

سوال

سلام

من وقتی اطلاعات رو به دیتابیس انلاین میفرستم وقتی تو جاب دان میگم که if sucses بیا برو اکتیویتی فلان میره اون اکتیویتی و دوباره برمیگرده تو اکتیویتی که همون جاب دان اونجا بود

مشکل از کجاست؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

12 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

در 12 ساعت قبل، babi.jonz گفته است :

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

قربون شکل ماهت برم شما مگه پیام siavash رو ندیدید ؟

بهتون گفته لطفا کدتون رو بزارید تا بررسی کنیم دیگه

نمیشه که توی هوا حدس زد چرا برمیگرده به اکتیویتی قبلی :||:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام 

دوست عزیز لطفا کد هاتونو قرار بدید تا بررسی کنیم ما که علم غیب نداریم بفهمیم مشکل از جداست

لینک ارسال
به اشتراک گذاری در سایت های دیگر

#Region  Activity Attributes 
#FullScreen: False 
#IncludeTitle: True
#End Region

Sub Process_Globals
End Sub

Sub Globals
Dim asp As AriaSharedPreferences
Private Button1 As Button
Dim send As HttpJob
Dim mem As HttpJob
Dim memb As HttpJob
End Sub


Sub Activity_Create(FirstTime As Boolean)
     Activity.LoadLayout("yes")
            memb.Initialize("memb", Me)
	        send.Initialize("send",Me)
            mem.Initialize("mem", Me)
            mem.Download2("http://www.example.ir/example/example.php", _
            Array As String("name", "babak"))


        
    
End Sub

Sub Activity_Resume
	
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
Dim data As Map
data.Initialize
Dim gen As JSONGenerator
data.Put("new",EditText1.Text)
gen.Initialize(data)
gen.Initialize2(Array As String(EditText1.Text))
send.Download2("http://example.ir/example/1.php",Array As String ("myjson",gen.ToString))
EditText1.Text=""
End Sub

Sub activity_keypress (keycode As Int) As Boolean
If keycode = KeyCodes.KEYCODE_BACK  Then	
memb.Download2("http://www.example.ir/example/example.php", _
Array As String("nam", "babak"))
End If
End Sub

Sub jobDone(job As HttpJob)
	ProgressDialogHide
If job.Success = True Then
     Select job.JobName
			Case "mem"

			Case "memb"
				
                   StartActivity(second)
                  Activity.Finish
                  
			Case "send"

				
					
	End Select
Else
	ToastMessageShow("Error sending request.", True)
	End If
Job.Release
End Sub

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در در 1395/06/17, 14:05:20، babi.jonz گفته است :

#Region  Activity Attributes 
#FullScreen: False 
#IncludeTitle: True
#End Region

Sub Process_Globals
End Sub

Sub Globals
Dim asp As AriaSharedPreferences
Private Button1 As Button
Dim send As HttpJob
Dim mem As HttpJob
Dim memb As HttpJob
End Sub


Sub Activity_Create(FirstTime As Boolean)
     Activity.LoadLayout("yes")
            memb.Initialize("memb", Me)
	        send.Initialize("send",Me)
            mem.Initialize("mem", Me)
            mem.Download2("http://www.example.ir/example/example.php", _
            Array As String("name", "babak"))


        
    
End Sub

Sub Activity_Resume
	
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
Dim data As Map
data.Initialize
Dim gen As JSONGenerator
data.Put("new",EditText1.Text)
gen.Initialize(data)
gen.Initialize2(Array As String(EditText1.Text))
send.Download2("http://example.ir/example/1.php",Array As String ("myjson",gen.ToString))
EditText1.Text=""
End Sub

Sub activity_keypress (keycode As Int) As Boolean
If keycode = KeyCodes.KEYCODE_BACK  Then	
memb.Download2("http://www.example.ir/example/example.php", _
Array As String("nam", "babak"))
End If
End Sub

Sub jobDone(job As HttpJob)
	ProgressDialogHide
If job.Success = True Then
     Select job.JobName
			Case "mem"

			Case "memb"
				
                   StartActivity(second)
                  Activity.Finish
                  
			Case "send"

				
					
	End Select
Else
	ToastMessageShow("Error sending request.", True)
	End If
Job.Release
End Sub

 

/:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در ۱ ساعت قبل، siavash گفته است :

خخخخ عزیزه من خب شما اومدی اول اکتیویتی second رواستارت کردی بعد فینیشش کردی حالا میخوای برنگرده به اکتیویتی main?

جای این دوتا رو عوض کنید

وقتی بهتون میگم نمونه کد بدین بخاطر همین میگم گاهی اوقات اشتباهات کوچیک باعث مشکلاتی میشن که فکر میکنیم خیلی بزرگن

تو اصلا   b4a کار کردی؟

گفتم برو اکتیویتی دوم بعد این اکتیویتی رو ببند چه ربطی به اکتیویتی دوم داره ؟

شما اول برو آموزش مبتدی رو یاد بگیر بعد از من کد بخواه که راهنمایی کنی :/

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

باید بگم که هیچی ننوشتم خالیه، شاید احساس کنید که تو اکتیویتی کریتش نوشته باشم که که برگرد به اکتیویتی main ولی نه اینجور نیست چون اکتیویتی second فعلا خالیه

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

قانونا باید ActivityFinish بشه و دیگه توی اکتیویتی نیاد مگه اینکه خودمون اون رو دوباره Start کنیم !!!

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در در 1395/06/17, 14:05:20، babi.jonz گفته است :

#Region  Activity Attributes 
#FullScreen: False 
#IncludeTitle: True
#End Region

Sub Process_Globals
End Sub

Sub Globals
Dim asp As AriaSharedPreferences
Private Button1 As Button
Dim send As HttpJob
Dim mem As HttpJob
Dim memb As HttpJob
End Sub


Sub Activity_Create(FirstTime As Boolean)
     Activity.LoadLayout("yes")
            memb.Initialize("memb", Me)
	        send.Initialize("send",Me)
            mem.Initialize("mem", Me)
            mem.Download2("http://www.example.ir/example/example.php", _
            Array As String("name", "babak"))


        
    
End Sub

Sub Activity_Resume
	
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
Dim data As Map
data.Initialize
Dim gen As JSONGenerator
data.Put("new",EditText1.Text)
gen.Initialize(data)
gen.Initialize2(Array As String(EditText1.Text))
send.Download2("http://example.ir/example/1.php",Array As String ("myjson",gen.ToString))
EditText1.Text=""
End Sub

Sub activity_keypress (keycode As Int) As Boolean
If keycode = KeyCodes.KEYCODE_BACK  Then	
memb.Download2("http://www.example.ir/example/example.php", _
Array As String("nam", "babak"))
End If
End Sub

Sub jobDone(job As HttpJob)
	ProgressDialogHide
If job.Success = True Then
     Select job.JobName
			Case "mem"

			Case "memb"
				
                   StartActivity(second)
                  Activity.Finish
                  
			Case "send"

				
					
	End Select
Else
	ToastMessageShow("Error sending request.", True)
	End If
Job.Release
End Sub

 

با این کد سرویس رو ببند

StopService(httputils2service)

این کد رو به آخر رویداد jobDone  به ریز

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...