اوردن اطلاعات از فایل تکست (مهم)

[amiro72 17]

سلام 

 

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

[Mohsen27 199]

سلام 

فایل تکست رو که آپلود کردین برای مثال :

http://yourweb.com/webadress.txt

بیا تو برنامه به این صورت بنویس

dim http as httpjob
'''''
activity_create:
http.initialize("http",me)
http.download("http://yourweb.com/webadress.txt")
''''''\\\\\
'''new Sub
ساب جدید باز کن به صورت زیر
Sub Job_done(job as httpjob)
if job.success=true then
dim str as string 
str=job.getstring
msgbox(str,"")
end if
end sub

موفق باشی

[amiro72 17]

سلام 

فایل تکست رو که آپلود کردین برای مثال :

http://yourweb.com/webadress.txt

بیا تو برنامه به این صورت بنویس

dim http as httpjob
'''''
activity_create:
http.initialize("http",me)
http.download("http://yourweb.com/webadress.txt")
''''''\\\\\
'''new Sub
ساب جدید باز کن به صورت زیر
Sub Job_done(job as httpjob)
if job.success=true then
dim str as string 
str=job.getstring
msgbox(str,"")
end if
end sub

موفق باشی

 

ممنونم 

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

[Kazem Forghani 2,927]

ممنونم 

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

بله ،

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

یک توصیه: به جای تیک زدن کتابخانه HttpUtils2 کتابخانه OkHttpUtils2 رو تیک بزنید و از اون استفاده کنید چون استانداردتره و بهینه تر هست.

[amiro72 17]

بله ،

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

یک توصیه: به جای تیک زدن کتابخانه HttpUtils2 کتابخانه OkHttpUtils2 رو تیک بزنید و از اون استفاده کنید چون استانداردتره و بهینه تر هست.

 

OkHttpUtils2 این رو نارم میشه بفرستید ؟

[Kazem Forghani 2,927]

OkHttpUtils2 این رو نارم میشه بفرستید ؟

سلام ،

توی لیست کتابخانه های B4A به صورت پیشفرض وجود داره. در صورتی که وجود نداره آخرین ورژن یعنی 6.00 رو دانلود و نصب کنید.

موفق باشید

[amiro72 17]

سلام 

فایل تکست رو که آپلود کردین برای مثال :

http://yourweb.com/webadress.txt

بیا تو برنامه به این صورت بنویس

dim http as httpjob
'''''
activity_create:
http.initialize("http",me)
http.download("http://yourweb.com/webadress.txt")
''''''\\\\\
'''new Sub
ساب جدید باز کن به صورت زیر
Sub Job_done(job as httpjob)
if job.success=true then
dim str as string 
str=job.getstring
msgbox(str,"")
end if
end sub

موفق باشی

 

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

 

 

 

 

چیکار کنم ارور رو نده ؟

[Kazem Forghani 2,927]

سلام

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

بعد اینطوری وصل بودن اینترنت رو بررسی کنید:

Dim aria As AriaLib
If aria.isConnectedToInternet = True Then
	Log("Connect")
Else
	Log("NotConnect")
End If

حالا بگید اگر اینترنت وصل بود دانلود رو شروع کنه و اگر اینترنت قطع بود پیغام بده که اینترنت رو متصل کنید.

موفق باشید