مشکل در کامپایل برنامه مخفی نشدن ProgressDialogHide

[soltaneghalbha 1]

سلام ؛ پیشاپیش عیدتون مبارک

 

من دو تا مشکل دارم :

 

1 - وقتی برنامه ای مینویسم که با php ارتباط میدمش ؛ وقتی میخوام از برنامه خروجی بگیرم ؛

وقتی debug رو میزنم برنامه به خوبی کامپایل میشه و روی شبیه ساز اجرا میشه ؛ ولی وقتی relase رو میزنم و وارد برنامه میشم برنامه بسته میشه

خطای بالا ☝️☝️☝️☝️

 

2 - من برای برنامه ProgressDialogShow تعریف کردم و گفتم بعد از اینکه کار تموم بشه با ProgressDialogHide بسته بشه ؛ ولی بسته نمیشه پیغامی که توی ProgressDialogShow  تعریف کردم همونجوری هست , برنامه هم اینه که با دوتا ادیت تکست دارم که ربطشون دادم به بانک و گفتم هر موقع تو بانک اطلاعات درج شد ؛ ProgressDialogShow  مخفی بشه ؛ ولی مخفی نمیشه .

با اینکه اطلاعات تو بانک درج میشه ولی ProgressDialogShow  بسته نمیشه .

سورس برنامه :

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Lmain")
	ht.Initialize("Register" , Me)
End Sub

Sub Jobedone (job As HttpJob)
	
	If job.Success = True Then
		If job.JobName = "Register" Then
			ProgressDialogHide
			Msgbox(job.GetString,"Come")	
		End If	
	Else
		ToastMessageShow("Error During Connection" , False)	
	End If
	
End Sub

Sub Button1_Click
	Dim go As String
	go = "username="&EditText1.Text&"&password="&EditText2.Text
	ht.PostString("http://",go)
	ProgressDialogShow("Please Wait...")
End Sub

:53:

[RoyaPM 538]

محتوای فایل php رو هم  بذار (بدون درج یوزر و پسورد دیتابیس)

[soltaneghalbha 1]

خدمت شما

<?php
	error_reporting(0);
	$con = mysql_connect('127.0.0.1','root','');
	$user=$_POST['username'];
	$pass=$_POST['password'];
	
	if($con){
		mysql_select_db('amoozesh',$con);
		mysql_set_charset('utf8');
		
		$q="INSERT INTO users (Username,Password) VALUES('$user','$pass')";
		
		if(mysql_query($q)){
			
			echo "Done";
			
		}else{echo "Error";}
		
	}
 ?>

نکته رو بگم ؛ اطلاعات در دیتابیس درج میشه ولی progressdiolog مخفی نمیشه

[Farzad Musavi 576]

کد باتن رو اینجوری تغییر بده ببین درست میشه

Sub Button1_Click
	Dim go As String
	go = "username="&EditText1.Text&"&password="&EditText2.Text
	ProgressDialogShow("Please Wait...")
ht.PostString("http://",go)

	
End Sub

[soltaneghalbha 1]

 

کد باتن رو اینجوری تغییر بده ببین درست میشه

Sub Button1_Click
	Dim go As String
	go = "username="&EditText1.Text&"&password="&EditText2.Text
	ProgressDialogShow("Please Wait...")
ht.PostString("http://",go)

	
End Sub

 

نه تغییری نکرد

 

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

من الان با B4A V5.50 کار میکنم و کدها رو تو اون نوشتم ؛

الان ورژن 4 رو نصب کردم ؛ هر دو مشکل فوق برطرف شد !

مشکل از چی میتونه باشه ؟