خواندن فایل متنی از هاست در B4A

ساخت وبلاگ
سلام خسته نباشید به دوستان عزیز .

من میخوام یه فایل متنی txt رو از هاست بخونم ، دانلود میشه ولی میخوام اطلاعات فایل رو بخونم این پیغام میده :

 

همین فایل رو توی یه سایت های آپلودی ، آپلود میکنم لینک مستقیم میدم درست نشون میده

نمیدونم مشکل کجاست .

اینم کد برنامه :

Sub b_up_ClickProgressDialogShow("در حال بروز رسانی")ht.Initialize("ver", Me)
ht.Download("http://farzamplus.ss0.ir/ser1/ver.txt")End SubSub JobDone(Job As HttpJob)
Dim td1,td2 As StringProgressDialogHideIf Job.Success Then
Select Job.JobNameCase "ver"td1 = Job.GetStringtd2 = File.ReadString(File.DirAssets,"ver.txt")If td1 <> td2 Thena = Msgbox2("نسخه جدید منتشر شده است ، بروزرسانی انجام گیرد ؟","بروز رسانی","بله","","خیر",Null)If a = DialogResponse.POSITIVE Then
Dim outver As OutputStream
outver = File.OpenOutput(File.DirAssets,"ver.txt",False)
File.Copy2(Job.GetInputStream, outver)
outver.Closeht2.Initialize("update",Me)
ht2.Download("http://farzamplus.ss0.ir/db.db")Else
Exit
End IfElse
Msgbox("نسخه جدیدی منتشر نشده است","بروز رسانی")End IfExitCase "update"Dim ou As OutputStream
ou = File.OpenOutput(File.DirInternal,"db.db",False)
File.Copy2(Job.GetInputStream, ou)
ou.CloseEnd SelectEnd IfEnd Sub
برنامه نویس...
ما را در سایت برنامه نویس دنبال می کنید

برچسب : نویسنده : محمد رضا جوادیان programers بازدید : 360 تاريخ : سه شنبه 22 خرداد 1397 ساعت: 5:03

خبرنامه