Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout")
rtp.CheckAndRequest(rtp.PERMISSION_READ_EXTERNAL_STORAGE)
rtp.CheckAndRequest(rtp.PERMISSION_WRITE_EXTERNAL_STORAGE)
End Sub
Sub Activity_PermissionResult (Permission As String, Result As Boolean)
If Permission = rtp.PERMISSION_WRITE_EXTERNAL_STORAGE And Permission=rtp.PERMISSION_READ_EXTERNAL_STORAGE And Result = False Then
Msgbox("شما اجازه دسترسی به حافظه را به این برنامه نداده اید و در اینصورت ممکن است برخی از بخش های برنامه به درستی کار نکنند","")
End If
End Sub
Sub Button1_Click
File.WriteString(File.DirInternal,"efsgtes.txt","2323236")
ToastMessageShow("OK","")
End Sub
مگه برای Internal هم دسترسی لازمه ؟ مرسی که راهنمایی میکنید.
سوال
salar_blackdroid 408
سلام دوستان عزیز. امیدوارم حالتون خوب باشه. مدت ها بود از دنیای b4a دور بودم چند روزی هست دارم مطالعه می کنم.
دسترسی های R.P و اندرویدهای جدید و مطالب انجمن رو هم خوندم. تو یه پروژه حتی target sdk رو گذاشتم روی28 اندروید 9
ولی برنامه فورس کلوز میده.
این مانیفست :
اینم کدها :
Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout") rtp.CheckAndRequest(rtp.PERMISSION_READ_EXTERNAL_STORAGE) rtp.CheckAndRequest(rtp.PERMISSION_WRITE_EXTERNAL_STORAGE) End Sub Sub Activity_PermissionResult (Permission As String, Result As Boolean) If Permission = rtp.PERMISSION_WRITE_EXTERNAL_STORAGE And Permission=rtp.PERMISSION_READ_EXTERNAL_STORAGE And Result = False Then Msgbox("شما اجازه دسترسی به حافظه را به این برنامه نداده اید و در اینصورت ممکن است برخی از بخش های برنامه به درستی کار نکنند","") End If End Sub Sub Button1_Click File.WriteString(File.DirInternal,"efsgtes.txt","2323236") ToastMessageShow("OK","") End Sub
مگه برای Internal هم دسترسی لازمه ؟ مرسی که راهنمایی میکنید.
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.