دریافت متن فایل تکست از اینترنت در لیبل

[ah313mad 34]

سلام دوستان

 

عزیزان یه صوال دارم .من داخل صفحه برنامه ام یک لیبل هست  که میخوام به یه فایل تکست از اینترنت وصل باشه . هر وقت خالی بود چیزی نشون نده هر وقت فایل تکست متنی داخلش قرار گرفت در صورت وصل بودن به اینترنت متن رو دریافت کنه و داخل لیبل قرار بده . در ضمن میخوام بدون باز شدن برنامه هر وقت گوشی اینترنتش وصل شود اتوماتیک فایل تکست رو بررسی کنه و داخل لیبل قرار بده .

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

درود

ببینید این که بخواهید بدون باز بدون برنامه کار کنه که خب مشخصه باید با سرویس کار کنید

در مورد دانلود و نمایش دادنش هم

باید کتابخانه HttpUtils2 رو فعال کنید

بعدش توی Globals بگید :

dim httpjob1 as httpjob

بعدش توی Service Create :

httpjob1.initialize("httpjob1",me)

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

httpjob1.download("linke morede nazar")

بعدش این Sub رو هم بنویسید:

sub JobDone(Job as httpjob)
if job.success = true then
label.text = job.GetString
end if
end sub

[ah313mad 34]

ببخشید من مبتدی هستم 

 

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

 

برای سرویس چجور تعریف کنم  . چجور با بسته بودن برنامه دانلود انجام بشه؟!؟!

 

ممنون میشم جناب ایزدی

[shahab.es 5,429]

سلام

توی process_globals تایمیر رو تعریف کن

dim timer1 as timer

activity_create

timer1.Initialize("timer1",5000)


sub timer1_tick
httpjob1.download("linke morede nazar")
end sub

[ah313mad 34]

sub JobDone(Job as httpjob)
if job.success = true then
label.text = job.GetString
end if
end sub

 

 

سلام

آقای ایزدی وقتی sub رو می نویسم . با خطای زیر مواجه میشم

Parsing code.                           Error

Error parsing program.

Error description: Undeclared variable 'label' is used before it was assigned any value.

Occurred on line: 61

Label.text = Job.GetString

 

 

باید این ساب رو داخل صفحه    """سرویس""""    بزاریم یا داخل    """صفحه مورد نظرمون"""   ؟؟؟؟ 

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

عزیز دل آقای ایزدی مثال زد یا اشتباه تایپی بود که اونجا نوشتن label

شما جای ای اسم لیبل خودتون رو قرار بدید. مثلا label1

یا میتونید متن رو با مسیج باکس نشون بدید ، این دیگه سلیقه شماست:

مسیج باکس

sub JobDone(Job as httpjob)
if job.success = true then
msgbox(job.GetString,"")
end if
end sub

[حمید زارع 331]

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

 

من این کد رو مینویسم :

Sub JobDone(job As HttpJob)
	If job.Success Then
		Msgbox(job.GetString,"Success")
	Else
		Msgbox("error","")
	End If
End Sub

ولی یک عالمه متن برام میاره

 

من فقط لینکمو میخام

 

چه کار کنم ؟

[ah313mad 34]

دوستان عزیز . 

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

یک فایل Txt به آدرس 

http://yoursite.ir/up1.txt 

رو میخوام داخل label1قرار بدم . 

 

مبتدی هستم لطفا سطح پایین توضیح بدید. 

[shahab.es 5,429]

دوستان عزیز . 

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

یک فایل Txt به آدرس http://yoursite.ir/up1.txt رو میخوام داخل label1قرار بدم . 

 

مبتدی هستم لطفا سطح پایین توضیح بدید. 

سلام

ببین ، شما بیا و دانلودش کن

این کد برای دانلودش-کتابخونه httpUtills2 رو هم تیک بزن

dim ht as httpjob
ht.initialize("ht",me)

ht.download("http://yoursite.ir/up1.txt")

اینم ساب جاب دان

sub jobdone(job as httpjob)
if job.success = true then
if job.jobname = "ht" then
lbl.text = job.getstring
end if
end if
end sub

فقط پیشنهاد میکنم قبل از دانلود، ادرس سایتت رو توی مرورگر باز کنی و ببینی همچین فایل هست اصن ، متنش درسته و ...

[ah313mad 34]

سلام و درود و خسته نباشید .

دوستان عزیز من یه کلید(دکمه) دارم که میخوام یه لینک براش قرار بدم . 

منتهی میخواهم لینک رو از یه فایل تکست http://sitesitesite.ir/nemone.txt بگیره . یعنی هر وقت اون صفحه باز میشه . آدرس لینک رو از فایل txt اینترنت بگیره که هر وقت خواستم لینک رو عوض کنم فقط فایل Txt رو تغییر بدم و با کلیک بروی کلیک به اون آدرس بره با مرورگر. ممنون میشم راهنمایی کنید . 

[shahab.es 5,429]

سلام

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

فقط کتابخونه phone و httputills2 رو تیک بزنید

Sub Globals
Dim ht As HttpJob
End Sub

Sub Activity_Create(FirstTime As Boolean)
ht.Initialize("ht",Me)
End Sub



Sub myButt_Click
	ht.PostString("http://myAddress.com/text.txt","")
End Sub

Sub jobdone(job As HttpJob)
	If job.Success = True Then
		If job.JobName = "ht" Then
			Dim p As PhoneIntents
			StartActivity(p.OpenBrowser(job.GetString))
		End If
	End If
End Sub

[ah313mad 34]

StartActivity(p.OpenBrowser(job.GetString))

ممنون از راهنمایی تون

 

اگر بخوایم بجای مرورگر خودش اتوماتیک مثلا(کروم و مرورگر و بازار یا گوگل پلی )رو بیاره خود کاربر انتخاب کنه . باید چی جایگزین این بکنیم؟

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

ممنون از راهنمایی تون

 

اگر بخوایم بجای مرورگر خودش اتوماتیک مثلا(کروم و مرورگر و بازار یا گوگل پلی )رو بیاره خود کاربر انتخاب کنه . باید چی جایگزین این بکنیم؟

با همین تکه کد آقا شهاب خود برنامه هایی که قابلیت باز کردن اون لینک رو دارن میاره. مثل انواع مرورگر ها ، مارکت و..

[arastooms 1,046]

سلام به اساتید عزیز 
پست رو بالا میارم چون تنهاپستی که پیدا کردم و مربوط بود همین پست بود لطفا اگر ممکنه راهنمایی بفرمایید ممنون میشم

من یم فایل تکس دارم روی هاست با 4 خط محتوی
که 4 آدرس هست که در دیتابیس ذخیره میشه

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

www.google.com

www.ir.com

www.ams.com

www.aaa.com

 

حالا یه دکمه دارم که کاربر میزنه 

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

چه طور میتونم این کار رو انجلم بدم

ممنون از راهنمایی دوستان

[shahab.es 5,429]

dim str() as string = regex.splite(crlf,job.getString)
'khate avval => str(0)
'khatte dovvom => str(1)
'.
'.
'.

سلام

توی ساب جاب دان بذار ارسطو

[hadiazimi 0]

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