دریافت یک متن به صورت انلاین

[majid08 266]

سلام

من یه لیبل دارم میخام یه متن رو از یک هاست بگیرم متن تو یک فایل تکست هست و تو لیبل نمایش بدم

یه راهنمایی کنید اگه میشه کدش رو بدین ممنونم

[ah313mad 34]

 

کتابخونه httputils2 رو تیک بزن بعد:

Sub Globals
	Dim htj As HttpJob
	Private lbl As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	htj.Initialize("name",Me)
	htj.Download("http://www.20ha.tk/matn.txt")
End Sub

Sub JobDone(Job As HttpJob)
	If Job.Success = True Then
		lbl.Text = Job.GetString
	Else
		ToastMessageShow("خطا در برقراری ارتباط با سرور",False)
	End If
End Sub

 

ممنون بابت کد . ولی خطا میده . 

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

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

سلام 

 

مشکل از من بود ببخشید .

 

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

 

اگه از دیتابیس استفاده نمیکنید باید 3 تا HttpJob با JobName های مختلف تعریف کنید و توی JobDone هم از

If Job.JobName = "httpjob1" then
label1.text = job.GetString
else if Job.JobName = "httpjob2" then
imageview1.bitmap = job.getBitmap
else if Job.JobName = "httpjob3" then
label2.text = Job.GetString
end if

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

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

ممنون بابت کد . ولی خطا میده . 

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

کدی که آقای گنجی دادن کاملا درسته و هیچ مشکلی رو نداره

شما لطف کنید کد کاملتون رو قرار بدید

و در ضمن ...

وقتی که میگید خطا میده بگید چه خطایی رو میده

[majid08 266]

اگه از دیتابیس استفاده نمیکنید باید 3 تا HttpJob با JobName های مختلف تعریف کنید و توی JobDone هم از

If Job.JobName = "httpjob1" then
label1.text = job.GetString
else if Job.JobName = "httpjob2" then
imageview1.bitmap = job.getBitmap
else if Job.JobName = "httpjob3" then
label2.text = Job.GetString
end if

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

سلام هیچی دانلود نمیکنه داداش

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

سلام هیچی دانلود نمیکنه داداش

 

کدهاتون رو بزارید

[majid08 266]

کدهاتون رو بزارید

#Region  Activity Attributes 
	#FullScreen: true
	#IncludeTitle: False
#End Region

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 Label1 As Label
	Private Label2 As Label
	Private Label3 As Label
	Private ImageView1 As ImageView
End Sub


	


Sub Activity_Create(FirstTime As Boolean)


	
	Activity.LoadLayout("noty")
	
	Dim jobe0 As HttpJob
	jobe0.Initialize("name",Me)
	jobe0.Download("http://www.20ha.tk/matn.txt")
	
	Dim jobe1 As HttpJob
	jobe1.Initialize("name",Me)
	jobe1.Download("http://www.20ha.tk/matn2.txt")
	
	Dim jobe2 As HttpJob
	jobe2.Initialize("name",Me)
	jobe2.Download("http://learningstation.ir/wp-content/uploads/2015/06/b4a.jpg")
	
End Sub

Sub JobDone(job  As HttpJob)
	
	If job.JobName = "jobe0" Then
Label1.text = job.GetString
else if job.JobName = "jobe1" Then
Label3.text = job.GetString
else if job.JobName = "jobe2" Then
ImageView1.bitmap = job.getBitmap
		
	End If
	
End Sub
	
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

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

این کد رو تست کنید و با مقایسش با کد خودتون به اشتباهاتتون پی ببرید :

#Region  Activity Attributes 
	#FullScreen: true
	#IncludeTitle: False
#End Region

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 Label1 As Label
	Private Label2 As Label
	Private Label3 As Label
	Private ImageView1 As ImageView
	Dim jobe0 As HttpJob
	Dim jobe1 As HttpJob
	Dim jobe2 As HttpJob
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("noty")
	jobe0.Initialize("jobe0",Me)
	jobe0.Download("http://www.20ha.tk/matn.txt")
	jobe1.Initialize("jobe1",Me)
	jobe1.Download("http://www.20ha.tk/matn2.txt")
	jobe2.Initialize("jobe2",Me)
	jobe2.Download("http://learningstation.ir/wp-content/uploads/2015/06/b4a.jpg")
End Sub

Sub JobDone(job  As HttpJob)
If job.Success = True Then
	If job.JobName = "jobe0" Then
		Label1.text = job.GetString
		Else If job.JobName = "jobe1" Then
		Label3.text = job.GetString
		Else If job.JobName = "jobe2" Then
		ImageView1.Bitmap = job.getBitmap
	End If
Else
ToastMessageShow("خطا در دریافت اطلاعات",False)
End If
	
End Sub
	
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

[bahman 165]

جدا از موضوع چون دارین برنامه میسازین به دامین . تی کی اصلا اعتماد نکنین مجبور میشین کلی دردسر بکشین

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

متنتون تو هاست آپلود شده؟؟؟

اگه اپلود شده یه لینک داره درسته؟؟

لینکش رو بذارید اینجا.

[majid08 266]

http://20ha.tk/matn.txt

[sganji 678]

کتابخونه httputils2 رو تیک بزن بعد:

Sub Globals

	Dim htj As HttpJob

	Private lbl As Label

End Sub


Sub Activity_Create(FirstTime As Boolean)

	htj.Initialize("name",Me)

	htj.Download("http://www.20ha.tk/matn.txt")

End Sub


Sub JobDone(Job As HttpJob)

	If Job.Success = True Then

		lbl.Text = Job.GetString

	Else

		ToastMessageShow("خطا در برقراری ارتباط با سرور",False)

	End If

End Sub

[ah313mad 34]

کدی که آقای گنجی دادن کاملا درسته و هیچ مشکلی رو نداره

شما لطف کنید کد کاملتون رو قرار بدید

و در ضمن ...

وقتی که میگید خطا میده بگید چه خطایی رو میده

 

سلام 

 

مشکل از من بود ببخشید .

 

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

[korosh 27]

http://www.b4x.com/android/forum/threads/connect-android-to-mysql-database-tutorial.8339/

 

http://www.b4x.com/android/forum/threads/connect-android-to-ms-sql-server-tutorial.13166/

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

سلام 

 

مشکل از من بود ببخشید .

 

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

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

[majid08 266]

 

کتابخونه httputils2 رو تیک بزن بعد:

Sub Globals
	Dim htj As HttpJob
	Private lbl As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	htj.Initialize("name",Me)
	htj.Download("http://www.20ha.tk/matn.txt")
End Sub

Sub JobDone(Job As HttpJob)
	If Job.Success = True Then
		lbl.Text = Job.GetString
	Else
		ToastMessageShow("خطا در برقراری ارتباط با سرور",False)
	End If
End Sub

 

سلام خسته نباشین

من این کد رو گذاشتم مشکلی نداره ولی وقتی میخام با همین کد یه متن دیگه یا عکس رو بیارم خطا میده؟؟

[sganji 678]

 

یه متن دیگه از کجا بیارید؟

برای اوردن عکس باید به جای GetString از GetBitmap استفاده کنید.

[shahab.msb 326]

 

دوستان گرامی این فایل سرور که به php و یا asp.net در سرور قرار داده میشود باید حتما به صورت dll باشد ؟؟؟

 

یکی از دوستان فایل php نمونه برای قرار دادن در سرور دارد بفرستد . فقط فایل رابط که درست شده باشد .

 

پسورد دیتابیس و این چیزا رو نمی خوام .

الان این نمونه فایل php که در سمت سرور قرار داده میشود با پسوند php باید ذخیره شود ؟

<?     

$databasehost = "localhost";
$databasename = "xxxx";
$databaseusername ="xxxx";
$databasepassword = "xxxx"; 

باید با پسوند php در هاست قرار بدی و اونو با کتاخونه httpJob فراخوانی کنی

 

databasehost = "localhost";آدرس محل دیتابیس آنلاین.اگه هم شبکه محلی باشه که تغییر نمیدیم و همون localhost

  $databasename = "xxxx"; اینم نام دیتابیس رو مینویسیم

اینجا هم نام کاربری که توی دیتابیس تعیین میکنیم $databaseusername ="xxxx";

$databasepassword = "xxxx اینجا هم رمز عبور

[majid08 266]

 

 

یه متن دیگه از کجا بیارید؟

برای اوردن عکس باید به جای GetString از GetBitmap استفاده کنید.

 

من 3تتا فایل تکست دارم در سرور میخام بیارم تو برنامه بدم  به 3 تا لیبل 

و 2 تا عکس هم هست میخام بزارم بگراند لبیل ها 

[korosh 27]

دوستان گرامی این فایل سرور که به php و یا asp.net در سرور قرار داده میشود باید حتما به صورت dll باشد ؟؟؟

 

یکی از دوستان فایل php نمونه برای قرار دادن در سرور دارد بفرستد . فقط فایل رابط که درست شده باشد .

 

پسورد دیتابیس و این چیزا رو نمی خوام .

الان این نمونه فایل php که در سمت سرور قرار داده میشود با پسوند php باید ذخیره شود ؟

<?

$databasehost = "localhost";
$databasename = "xxxx";
$databaseusername ="xxxx";
$databasepassword = "xxxx";

$con = mysql_connect($databasehost,$databaseusername,$databasepassword) or die(mysql_error());
mysql_select_db($databasename) or die(mysql_error());
mysql_query("SET CHARACTER SET utf8");
$query = file_get_contents("php://input");
$sth = mysql_query($query);

if (mysql_errno()) {
    header("HTTP/1.1 500 Internal Server Error");
    echo $query.'\n';
    echo mysql_error();
}
else
{
    $rows = array();
    while($r = mysql_fetch_assoc($sth)) {
        $rows[] = $r;
    }
    print json_encode($rows);
}
?>