مارو از نظرات خوبتونم بی نسیب نکنید اگه نظری انتقادی دارید بگید اینجا که بتونیم بهترش کنیم مرسی
بعدش یه مشکل که کاربرام دارن باهاش مواجه میشن اینه که بعضی هاشون به اینترنت وای فای وصل هستن اینترنت دارن ولی نمیتونن صفحه ی ثبت نامو رد کنن و همش با پیغامیکه من گذاشتم در صورت نبودن اینترنت بهشون نشون بده
یا قسمت های دیگه ای مثل دفتر کاری بیز ....
ببینید من اول از کتابخونه ی httputils2 استفاده میکردم برای ارسال مقادیر به سرور و بعد اومدم دوباره از کتابخونه OkHttpUtils2 استفاده کردم بلکه درست بشه مشکل ولی بازم درست نشد اصلا نمیدونم جریان چیه حالا نمونه کد هم الان میدم:
Sub submitInfo_Click
If nametxt1.Text<>"" And numberTxt1.Text<>"" And txtCod1.Text<>"" Then
httSubmit.Initialize("httsubmit",Me)
httSubmit.Download2("http:/***.com/****/RegisterBiz.php",Array As String("name",nametxt1.Text,"cod",txtCod1.Text,"tel",numberTxt1.Text,"login","*****"))
ProgressDialogShow2("درحال ثبت اطلاعات",False)
Else
ToastMessageShow("لطفا اطلاعات خود را تکمیل کنید",False)
End If
End Sub
و
Sub JobDone(Job As HttpJob)
If Job.Success Then
If Job.JobName="httsubmit" Then
Dim statusInsert As String=Job.GetString
If statusInsert.IndexOf("success")>=0 Then
sql1.ExecNonQuery("INSERT INTO userTabale (Name,Cod,Pic,NumberTel,statusREG)VALUES('"&nametxt1.Text&"','"&txtCod1.Text&"','1.jpg','"&numberTxt1.Text&"','1')")
Activity.RemoveAllViews
Activity.LoadLayout("FormBY1")
design_formBy
ToastMessageShow("میز کاری شما با موفقیت ایجاد شد",True)
ProgressDialogHide
Else
ToastMessageShow("برای ساخت میز کاری نیاز به اینترنت دارید",True)
ProgressDialogHide
End If
Else
ToastMessageShow("برای ساخت میز کاری نیاز به اینترنت دارید",True)
ProgressDialogHide
End If
End Sub
شاید بگین خب از متد پست استفاده کن که کردم اصلا با httjob یه دانلود ساده گذاشتم تو یه اپ تستی دادم به کاربر بازم گفته اینترنت نداره
سوال
Ali BBH 27
سلام
خب اول برید این برنامه رو بگیرید و یه 5 ستاره بدید :
https://cafebazaar.ir/app/com.biz.App/?l=fa
مارو از نظرات خوبتونم بی نسیب نکنید اگه نظری انتقادی دارید بگید اینجا که بتونیم بهترش کنیم مرسی
بعدش یه مشکل که کاربرام دارن باهاش مواجه میشن اینه که بعضی هاشون به اینترنت وای فای وصل هستن اینترنت دارن ولی نمیتونن صفحه ی ثبت نامو رد کنن و همش با پیغامیکه من گذاشتم در صورت نبودن اینترنت بهشون نشون بده
یا قسمت های دیگه ای مثل دفتر کاری بیز ....
ببینید من اول از کتابخونه ی httputils2 استفاده میکردم برای ارسال مقادیر به سرور و بعد اومدم دوباره از کتابخونه OkHttpUtils2 استفاده کردم بلکه درست بشه مشکل ولی بازم درست نشد اصلا نمیدونم جریان چیه حالا نمونه کد هم الان میدم:
Sub submitInfo_Click If nametxt1.Text<>"" And numberTxt1.Text<>"" And txtCod1.Text<>"" Then httSubmit.Initialize("httsubmit",Me) httSubmit.Download2("http:/***.com/****/RegisterBiz.php",Array As String("name",nametxt1.Text,"cod",txtCod1.Text,"tel",numberTxt1.Text,"login","*****")) ProgressDialogShow2("درحال ثبت اطلاعات",False) Else ToastMessageShow("لطفا اطلاعات خود را تکمیل کنید",False) End If End Sub
و
Sub JobDone(Job As HttpJob) If Job.Success Then If Job.JobName="httsubmit" Then Dim statusInsert As String=Job.GetString If statusInsert.IndexOf("success")>=0 Then sql1.ExecNonQuery("INSERT INTO userTabale (Name,Cod,Pic,NumberTel,statusREG)VALUES('"&nametxt1.Text&"','"&txtCod1.Text&"','1.jpg','"&numberTxt1.Text&"','1')") Activity.RemoveAllViews Activity.LoadLayout("FormBY1") design_formBy ToastMessageShow("میز کاری شما با موفقیت ایجاد شد",True) ProgressDialogHide Else ToastMessageShow("برای ساخت میز کاری نیاز به اینترنت دارید",True) ProgressDialogHide End If Else ToastMessageShow("برای ساخت میز کاری نیاز به اینترنت دارید",True) ProgressDialogHide End If End Sub
شاید بگین خب از متد پست استفاده کن که کردم اصلا با httjob یه دانلود ساده گذاشتم تو یه اپ تستی دادم به کاربر بازم گفته اینترنت نداره
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.