سلام پوزش خیلی سرچ کردم هم توی انجمن هم توی گوگل و... اما فقط چیزی که فهمیدم برای اندروید 9 به بالا باید به مانیفست کدی اضافه کرد که کردم اما باز هم جواب نمیده . کد زیر یک فایل تکست رو از سرور میخونه برای اندروید 8 به پایین درسته اما به بالا خطا میده و میدونمم خطای دسترسی اینترنت لطفا کمک کنید چون خیلی درگیرشم ممنون .
#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Private xui As XUI
Dim ra As RuntimePermissions
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
End Sub
Sub Activity_Create(FirstTime As Boolean)
ra.CheckAndRequest("android.permission.INTERNET")
Activity.LoadLayout("Layout")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
Dim Avolley As AriaVolley
Avolley.Initialize("volley")
Avolley.AddQueue(Avolley.CreateStringRequest("https://www.ams.usda.gov/mnreports/bh_fv201.txt",Avolley.GET))
Avolley.Start
End Sub
Sub volley_OnError (Error As String)
Msgbox(Error,"Volley Error!")
End Sub
Sub volley_OnStringResponse (response As String)
Msgbox(response,"Volley")
End Sub
Sub Activity_PermissionResult (Permission As String, Result As Boolean)
If Permission="android.permission.INTERNET" Then
ToastMessageShow(Permission&":"&Result,False)
If Result=False Then
Msgbox("کاربر گرامی برای ادامه کار نرم افزار نیاز به فعالسازی این دسترسی دارید.","اخطار")
ra.CheckAndRequest ("android.permission.INTERNET")
End If
End If
End Sub
سوال
koke_sa 43
سلام پوزش خیلی سرچ کردم هم توی انجمن هم توی گوگل و... اما فقط چیزی که فهمیدم برای اندروید 9 به بالا باید به مانیفست کدی اضافه کرد که کردم اما باز هم جواب نمیده . کد زیر یک فایل تکست رو از سرور میخونه برای اندروید 8 به پایین درسته اما به بالا خطا میده و میدونمم خطای دسترسی اینترنت لطفا کمک کنید چون خیلی درگیرشم ممنون .
کد مانیفست .
و کد برنامه
#Region Project Attributes #ApplicationLabel: B4A Example #VersionCode: 1 #VersionName: 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: unspecified #CanInstallToExternalStorage: False #End Region #Region Activity Attributes #FullScreen: False #IncludeTitle: True #End Region Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. Private xui As XUI Dim ra As RuntimePermissions End Sub Sub Globals 'These global variables will be redeclared each time the activity is created. End Sub Sub Activity_Create(FirstTime As Boolean) ra.CheckAndRequest("android.permission.INTERNET") Activity.LoadLayout("Layout") End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button1_Click Dim Avolley As AriaVolley Avolley.Initialize("volley") Avolley.AddQueue(Avolley.CreateStringRequest("https://www.ams.usda.gov/mnreports/bh_fv201.txt",Avolley.GET)) Avolley.Start End Sub Sub volley_OnError (Error As String) Msgbox(Error,"Volley Error!") End Sub Sub volley_OnStringResponse (response As String) Msgbox(response,"Volley") End Sub Sub Activity_PermissionResult (Permission As String, Result As Boolean) If Permission="android.permission.INTERNET" Then ToastMessageShow(Permission&":"&Result,False) If Result=False Then Msgbox("کاربر گرامی برای ادامه کار نرم افزار نیاز به فعالسازی این دسترسی دارید.","اخطار") ra.CheckAndRequest ("android.permission.INTERNET") End If End If End Sub
ممنون واقعا کمک بزرگی میکنید .
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.