سورس اطلاع از آپدیت اپلیکیشن در بیسیک فور اندروید

[MR.B4A 270]

🚀 اپلیکیشن‌تان را حرفه‌ای‌تر کنید!

اگر نسخه جدیدی از برنامه‌تان را در کافه بازار منتشر می‌کنید، چرا خود اپلیکیشن به کاربر اطلاع ندهد که آپدیت جدیدی در دسترس است؟ 🤔

با این مینی سورس کاربردی می‌توانید به‌سادگی قابلیت بررسی آپدیت از کافه بازار را به برنامه‌تان اضافه کنید.

✅ بدون نیاز به هیچ کتابخانه اضافی
✅ فقط با اضافه کردن یک کلاس به پروژه
✅ پیاده‌سازی استاندارد بر اساس Package Name
✅ سبک، ساده و قابل استفاده در تمام پروژه‌ها

سورس:

ابتدا این کدها را در یک کلاس جداگانه کپی کنید:

Private Sub Class_Globals
	Private job As HttpJob
End Sub


Public Sub Initialize
	job.Initialize("",Me)
End Sub
Private Sub IsInitialized
	
End Sub


Private Sub Check_Bazar(PackageName As String)
	Dim text As String
	text=$"{"properties":{"clientVersion":"web"},"singleRequest":{"appDetailsV2Request":{"packageName":"${PackageName}"}}}"$
	
	job.PostString("https://api.cafebazaar.ir/rest-v1/process/AppDetailsV2Request",text)
	job.GetRequest.SetContentType("application/json")
	
	Wait For (job) JobDone(j As HttpJob)
	
	Dim response As String
	If j.Success Then
		response = j.GetString
		
	Else
		response =  j.ErrorMessage
	End If
	
	
	Dim parser As JSONParser
	Try
		parser.Initialize(response)
		Dim root As Map = parser.NextObject
		Dim properties As Map = root.Get("properties")
		Dim errorCode As Int = properties.Get("errorCode")
				
		If errorCode=0 Then
			Dim singleReply As Map = root.Get("singleReply")
			Dim appDetailsV2Reply As Map = singleReply.Get("appDetailsV2Reply")
			Dim package As Map = appDetailsV2Reply.Get("package")
			Dim versionCode As Int = package.Get("versionCode")
			
			
			If versionCode>Application.VersionCode Then
				ToastMessageShow("نسخه جدیدی از برنامه یافت شد. از کافه بازار دانلود نمایید",True)
			Else
				ToastMessageShow("برنامه شما به روز می باشد",True)
			End If
		Else
			'error
			Dim errorMessage As String = properties.Get("errorMessage")
			Dim statusCode As Int = properties.Get("statusCode")
			
			If statusCode=404 Then
				ToastMessageShow("برنامه مورد نظر در بازار یافت نشد",True)
			Else
				Log(statusCode)
				ToastMessageShow(errorMessage,True)
			End If
		End If
	Catch
		Log(LastException)
	End Try
	
	j.Release
	
	
End Sub
'
'به منظور چک کردن نسخه برنامه در بازار این کلاس رو نوشتم برای دوستان
'امیدوارم مفید واقع بشه
'telegram:asheune
'
'در صورتی که پکیج نیم وجود نداشته باشد خطای 404 برمی گرداند
'در غیر این صورت وجود آپدیت را چک میکند
'
Public Sub Check_Bazar_Update(PackageName As String)
	Check_Bazar(PackageName)
End Sub

سپس آن را در اکتیویتی که میخواهید سورس را پیاده سازی کنید، تعریف کنید:

Private chk As CheckBazarVersion

در مرحله بعدی، میتوانید این دستور را در ساب activity_create بذارید تا برنامه به محض اجرا شدن، این دستور را اجرا کند:

chk.Initialize
	chk.Check_Bazar_Update(Application.PackageName)

تهیه و تنظیم   
مرتضی صباغی  
MR.B4A

لینک کانال ایتا: https://eitaa.com/basic4androidlan

لینک کانال تلگرام:
https://t.me/programmingwithb4a