نحوه کار با دوتا httpjob

[rezanaseri 6]

با سلام من در یک اکتیویتی دو تا httpjob دارم به  صورت زیر

Dim poster1 As HttpJob
	
poster1.Initialize("Job", Me)
	Dim http As HttpJob
	http.Initialize("job1",Me)

هر کدام یک کار رو انجام می دن

حالا می خوام در jobdone خودم اونها را جداجدا فراخوانی کنم

چیکار باید بکنم

نمونه کد jobdone در زیر آمده

Sub JobDone (Job As HttpJob , Job1 As HttpJob)
	
	 If Job1.JobName = "job1" Then
		 
				If Job1.Success=True Then
		ToastMessageShow("ارسال شد",False)
	Else
		ToastMessageShow("ارسال نشد !",True)
	End If
	
	End If
	 If Job.JobName ="Job" Then
	
	ProgressDialogHide
	If Job.Success = True Then
		Msgbox(Job.GetString,"Success")
	Else
		ToastMessageShow("خطا در برقراری اتصال" , False)
	End If
	End If
End Sub

 

[softir 459]

در هم اکنون، rezanaseri گفته است :

با سلام من در یک اکتیویتی دو تا httpjob دارم به  صورت زیر

Dim poster1 As HttpJob
	
poster1.Initialize("Job", Me)
	Dim http As HttpJob
	http.Initialize("job1",Me)

هر کدام یک کار رو انجام می دن

حالا می خوام در jobdone خودم اونها را جداجدا فراخوانی کنم

چیکار باید بکنم

نمونه کد jobdone در زیر آمده

Sub JobDone (Job As HttpJob , Job1 As HttpJob)
	
	 If Job1.JobName = "job1" Then
		 
				If Job1.Success=True Then
		ToastMessageShow("ارسال شد",False)
	Else
		ToastMessageShow("ارسال نشد !",True)
	End If
	
	End If
	 If Job.JobName ="Job" Then
	
	ProgressDialogHide
	If Job.Success = True Then
		Msgbox(Job.GetString,"Success")
	Else
		ToastMessageShow("خطا در برقراری اتصال" , False)
	End If
	End If
End Sub

 

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

[امین مهدی نژاد 2,142]

آموزش امکانات افزوده شده به  b4a نسخه جدید داره توسط مجید آقا تهیه میشه.(البته طبق گفته خودشون) انشاا... آموزششو قرار دادن با روش های بروزتر و بدون این دردسرها با httpjob کار کنید.

مجید جان منتظر وعده شما هستن دوستان.

«موفق باشید.»

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

در 18 دقیقه قبل، امین مهدی نژاد گفته است :

آموزش امکانات افزوده شده به  b4a نسخه جدید داره توسط مجید آقا تهیه میشه.(البته طبق گفته خودشون) انشاا... آموزششو قرار دادن با روش های بروزتر و بدون این دردسرها با httpjob کار کنید.

مجید جان منتظر وعده شما هستن دوستان.

«موفق باشید.»

وعده کیلو چنده

شایعه ای بیش نیست

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