کرش برنامه در اندروید 10

[IBD 17]

سلام و عرض ادب خدمت استادان گرامی

این ساب Activity_Creat من هستش،

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim AriaFile As AriaFile
	Dim FileUtils As AriaFileUtils
	Private ListView1 As ListView
	Dim p As Panel
	Dim list As List
	Dim num As Int
	Private WebView1 As WebView
	Dim currentindex As Int
	Dim aria As AriaLib
	Dim fit As TextLabelFitter
	Private title As Label
	Dim r As RuntimePermissions
	Dim a As Int = 0

End Sub

Sub Activity_Create(FirstTime As Boolean)
	ProgressDialogShow2("Loading...",False)
	If File.Exists(File.DirRootExternal,"ili StatusDownloader") Then
	Else
		File.MakeDir(File.DirRootExternal,"ili StatusDownloader")
	End If

	r.CheckAndRequest(r.PERMISSION_WRITE_EXTERNAL_STORAGE)
	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
	If Result = False Then
		Msgbox2("برای ذخیره استاتوس‌ها اجازه دسترسی لازم است","خطا","","باشه","",Null)
		ExitApplication
	End If

	
	'Do not forget to load the layout file created with the visual designer. For example:
	p.Initialize("p")
	Activity.LoadLayout("list")
	p.LoadLayout("listview")

	
	list.Initialize

	LoadPathToListView(FileUtils.DirRootExternalpath&"/WhatsApp/Media/.Statuses")
	
	
	'''''''''
	title.TextSize = fit.TextSize(title) - 7
	previous.TextSize = fit.TextSize(previous) - 12
	nextb.TextSize = fit.TextSize(nextb) - 12
	save.TextSize = fit.TextSize(save) - 5
	
	

	For i = 1 To ListView1.Size - 1
		Log(i) 'Will print 1 to 10 (inclusive).
		list.InsertAt(a,ListView1.GetItem(i))
		WebView1.LoadUrl("file://"&list.Get(a))
		a = a + 1
		num = i - 1
		currentindex = num
	Next
	
	If num = 0 Then
		Msgbox2("هیچ استاتوسی یافت نشد","خطا","","باشه","",Null)
	End If

	ProgressDialogHide
End Sub

اپلیکیشنم تو گوشی هواوی با اندروید 4.4.2 درست کار میکنه اما رو گوشی Galaxy A20s کرش میکنه چرا؟؟؟

[محمدرضا شاهپیری 5,491]

در 50 دقیقه قبل، ایلیا برزگردینی گفته است :

سلام و عرض ادب خدمت استادان گرامی

این ساب Activity_Creat من هستش،

اپلیکیشنم تو گوشی هواوی با اندروید 4.4.2 درست کار میکنه اما رو گوشی Galaxy A20s کرش میکنه چرا؟؟؟

سلام و درود. دوست گرامی شما دستور File.MakeDir رو حتما باید بعد از گرفتن دسترسی رانتایم بنویسید. شما هنوز دسترسی رانتایم نگرفته میخواین روی کارت حافظه پوشه ایجاد کنید

[IBD 17]

در 33 دقیقه قبل، محمدرضا شاهپیری گفته است :

سلام و درود. دوست گرامی شما دستور File.MakeDir رو حتما باید بعد از گرفتن دسترسی رانتایم بنویسید. شما هنوز دسترسی رانتایم نگرفته میخواین روی کارت حافظه پوشه ایجاد کنید

بله ممنون استاد شاهپیری این مورد رو درست کردم

اما برنامه هنوز کرش میکنه و خارج میشه

چرا؟

[محمدرضا شاهپیری 5,491]

در 1 ساعت قبل، ایلیا برزگردینی گفته است :

بله ممنون استاد شاهپیری این مورد رو درست کردم

اما برنامه هنوز کرش میکنه و خارج میشه

چرا؟

خطای لاگ رو پیوست کنید عزیز

[IBD 17]

در ۱ ساعت قبل، محمدرضا شاهپیری گفته است :

خطای لاگ رو پیوست کنید عزیز

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

 

از خط Dim listfiles() As AriaFile = AriaFile.ListFiles توی این ساب ارور میگیره،،، مشکل چیه؟

Sub LoadPathToListView(Path As String)
	ListView1.Clear 
	AriaFile.initialize2(Path) 
	Dim listfiles() As AriaFile = AriaFile.ListFiles 
	For i=0 To AriaFile.ListFiles.Length -1 
		If listfiles(i).IsDirectory Then 
			ListView1.AddTwoLinesAndBitmap2(listfiles(i).GetName,listfiles(i).GetParent,GetBitmap(listfiles(i)),listfiles(i))
		Else				ListView1.AddTwoLinesAndBitmap2(listfiles(i).GetName,FileUtils.CalcSize_EN(listfiles(i).Size),GetBitmap(listfiles(i)),listfiles(i))
		End If
	Next
	LastAddressLoaded=Path 
End Sub

 

[محمدرضا شاهپیری 5,491]

خطا که مشخص هست عزیز. خط  AriaFile.ListFiles خروجیش null هست. شما اومدین روی یه مقدار null عملیات انجام دادین که قطعا خطا میگیره.

[IBD 17]

در 10 ساعت قبل، محمدرضا شاهپیری گفته است :

خطا که مشخص هست عزیز. خط  AriaFile.ListFiles خروجیش null هست. شما اومدین روی یه مقدار null عملیات انجام دادین که قطعا خطا میگیره.

سلام مجدد آقای شاهپیری مشکل رو پیدا کردم

پکیج نیم پروژه رو که از ariafile.example تغییر میدم این اتفاق میفته، چرا؟