سلام دوستان ، من یک برنامه نوشته بودم که تو قسمتهای مختلف اطلاعات میگرفت و به سرور میفرستاد و پاسخ و نشون میداد
بعد امروز دیدم که عه :| برنامه کار نمیکنه
یه نمونه کوپیک از یه قسمت و میزارم ببینین چی شده خیلی مهمه الان برنامه منتشر شده ولی کار نمیکنه
کد های basic
Sub Process_Globals
End Sub
Sub Globals
Dim s As HttpJob
Private EditText1 As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("t")
s.Initialize("",Me)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub jobdone(job As HttpJob)
If job.Success = True Then
Msgbox(job.GetString,"")
Else
ToastMessageShow("nashod",False)
End If
End Sub
Sub Button1_Click
Dim go As String
go = "adm="&EditText1.Text
s.PostString("http://testi.royaleiran.ir/moaref.php",go)
End Sub
سوال
lvlaHcli 0
سلام دوستان ، من یک برنامه نوشته بودم که تو قسمتهای مختلف اطلاعات میگرفت و به سرور میفرستاد و پاسخ و نشون میداد
بعد امروز دیدم که عه :| برنامه کار نمیکنه
یه نمونه کوپیک از یه قسمت و میزارم ببینین چی شده خیلی مهمه الان برنامه منتشر شده ولی کار نمیکنه
کد های basic
کد های پی اچ پی :
وقتی دکمه زده میشه دستور
ToastMessageShow("nashod",False)
رو اجرا میکنه یعنی job وقتی که success نیست ، با اینترنت پر سرعتم تست کردم نشد باز
کسی میدونه برای چی ؟؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر
8 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.