مشکل با jobdon

[shahab.es 5,429]

سلام دوستان

خسته نباشید

این ارور مربوط به چیه؟

ممنون میشم راهنمایی کنید.

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

پاسخگویی 1دقیقه ای

--------------------------------------

یه متغیر از نوع کتابخانه httpJob تعریف شده و intizile شده اما ساب دانلود واسش نوشته نشده که وقتی دانلود تموم شد چکاری انجام بشه.

ساب اتمام دانلود هم اینه:

Sub JobDone(job As HttpJob)

end Sub

[shahab.es 5,429]

مرسی مرسی از پاسخگویی سریعت

خوب گرفتم چی شد

الان من این ساب رو کپی میکنم ارور نمیگیره اما کلن کار هم نمیکنه

چیز خاصی باید توش بنویسم؟

کلا تو این زمینه ، تو باغ نیستم

 

بازم ممنون

[sganji 678]

 

خب رویذداد های مربوط به اتمام کار دانلود یا آپلود یا هر چیز دیگه رو بنویس...

آموزش هستش تو انجمن مثلا آموزش آپدیت سافت.

[مهدی ایزدی 9,203]

درود

شهاب جان ببینید

شما کلا یک همچین کاری رو باید انجام بدید:

کتابخانه httputils2 رو add کن.

بعدش کدهای زیر رو باید تعریف کنید ( کدها رو به صورت دستی نوشتم، شاید غلط املایی داشته باشه )

کد زیر در sub globals

dim httpjob1 as httpjob

کد زیر در activity create

httpjob1.initialize("httpjob1",me)

کد زیر توی رویداد دانلود

httpjob1.download("linke download")

کد زیر هم به صورت یک sub جداگونه

sub JobDone (job as httpjob)
if job.success = true then
kari ke vaghti download shod bayad anjam bede
else
age download ba movafaghiat anjam nashod in kar ro anjam bede
end if
end sub

[shahab.es 5,429]

سلام به سپهر عزیز و جناب ایزدی گل

ممنون بابت راهنمایی دقیقتون

کاملا متوجه شدم

اما چون خودم کد رو ننوشته بودم، باید برم ببینم چی کارش میشه کرد

بازم ممنون از همتون

[حسن قاسمی نیا 547]

بچه های مشکل این برنامه چیه :

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Private Button1 As Button
	Private EditText1 As EditText
	Private WebView1 As WebView
	Dim bitmap1 As Bitmap
	Dim bitmap2 As Bitmap
	Dim HJ As HttpJob
	Dim dlHJ As HttpJob
	Private Button2 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("Chat")
	EditText1.Color = Colors.RGB(52,79,92)
	EditText1.TextColor = Colors.RGB(96,125,139)
	EditText1.TextSize = 22
	bitmap1.Initialize(File.DirAssets,"Send1.png")
	bitmap2.Initialize(File.DirAssets,"send2.png")
	EditText1.Gravity = Gravity.CENTER
	Button1.SetBackgroundImage(bitmap2)
	Button2.SetBackgroundImage(bitmap2)
	WebView1.loadurl("http://pasargad.xzn.ir/chat/index.php")
	HJ.Initialize("HJ",Me)
	dlHJ.Initialize("dlHJ",Me)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub WebView1_PageFinished (Url As String)
	
End Sub
Sub WebView1_OverrideUrl (Url As String) As Boolean
	
End Sub

Sub Button1_Down
	Button1.SetBackgroundImage(bitmap1)
End Sub
Sub Button1_Up
	Button1.SetBackgroundImage(bitmap2)
End Sub
Sub Button1_Click
	HJ.PostString("http://pasargad.xzn.ir/chat/post.php", "username="&splash.username &"&text="&EditText1.Text)
End Sub
Sub EditText1_FocusChanged (HasFocus As Boolean)
	EditText1.Color = Colors.White
End Sub

Sub Button2_Click
	HJ.PostString("http://pasargad.xzn.ir/chat/del.php", "username="&splash.username)
End Sub
Sub JobDone (job As HttpJob)
	If job.success = True Then
		If job.jobname = "HJ" Then
			ToastMessageShow("ارسال شد",False)
		End If
		If job.JobName = "dlHJ" Then
			ToastMessageShow("خالی شد",False)
		End If
	Else
		ToastMessageShow("خطا در انجام عملیات",False)
	End If
End Sub

مربوط به همین کار آقا شهاب میشه با هم داریم انجام میدیم

 

این کد بالا الان مشکل اینجاست که اون خطا آقا شهاب گفت دیگه نمیاد ولی رو هر بوتن که کلیک میکنی میگه "خطا در انجام عملیات" این متنش تو کد هست آخرا . چرا شرط برقرار نیست ؟

[jeqele 563]

بچه های مشکل این برنامه چیه :

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Private Button1 As Button
	Private EditText1 As EditText
	Private WebView1 As WebView
	Dim bitmap1 As Bitmap
	Dim bitmap2 As Bitmap
	Dim HJ As HttpJob
	Dim dlHJ As HttpJob
	Private Button2 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("Chat")
	EditText1.Color = Colors.RGB(52,79,92)
	EditText1.TextColor = Colors.RGB(96,125,139)
	EditText1.TextSize = 22
	bitmap1.Initialize(File.DirAssets,"Send1.png")
	bitmap2.Initialize(File.DirAssets,"send2.png")
	EditText1.Gravity = Gravity.CENTER
	Button1.SetBackgroundImage(bitmap2)
	Button2.SetBackgroundImage(bitmap2)
	WebView1.loadurl("http://pasargad.xzn.ir/chat/index.php")
	HJ.Initialize("HJ",Me)
	dlHJ.Initialize("dlHJ",Me)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub WebView1_PageFinished (Url As String)
	
End Sub
Sub WebView1_OverrideUrl (Url As String) As Boolean
	
End Sub

Sub Button1_Down
	Button1.SetBackgroundImage(bitmap1)
End Sub
Sub Button1_Up
	Button1.SetBackgroundImage(bitmap2)
End Sub
Sub Button1_Click
	HJ.PostString("http://pasargad.xzn.ir/chat/post.php", "username="&splash.username &"&text="&EditText1.Text)
End Sub
Sub EditText1_FocusChanged (HasFocus As Boolean)
	EditText1.Color = Colors.White
End Sub

Sub Button2_Click
	HJ.PostString("http://pasargad.xzn.ir/chat/del.php", "username="&splash.username)
End Sub
Sub JobDone (job As HttpJob)
	If job.success = True Then
		If job.jobname = "HJ" Then
			ToastMessageShow("ارسال شد",False)
		End If
		If job.JobName = "dlHJ" Then
			ToastMessageShow("خالی شد",False)
		End If
	Else
		ToastMessageShow("خطا در انجام عملیات",False)
	End If
End Sub

مربوط به همین کار آقا شهاب میشه با هم داریم انجام میدیم

 

این کد بالا الان مشکل اینجاست که اون خطا آقا شهاب گفت دیگه نمیاد ولی رو هر بوتن که کلیک میکنی میگه "خطا در انجام عملیات" این متنش تو کد هست آخرا . چرا شرط برقرار نیست ؟

احتمالا فایل های php سمت سرور ایراد دارن.

تو سرور ببینین یه فایل تکست به اسم error نیومده.

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