این کد پایه سیستم آپدیت برنامه است: نسخه سرور از https://my-site.ir/api/version خوانده میشود و با Application.VersionCode (شماره داخلی نسخه خود برنامه) مقایسه میشود؛ اگر سرور عدد بزرگتری داشت یعنی آپدیت موجود است. خط Wait For کار را غیرهمزمان میکند؛ یعنی تا جواب سرور برسد صفحه فریز نمیشود. همیشه Success را چک کنید (اینترنت کاربر ممکن است قطع باشد) و در پایان با j.Release حافظه جاب را آزاد کنید.
کتابخانههای مورد نیاز: OkHttpUtils2
این قطعهکد بهصورت خودکار توسط «موتور مولد B4A» ساخته و قبل از انتشار از نظر تکرارینبودن بررسی شده است. برای دیدن تکهکدهای جدید، همین بخش را دنبال کنید؛ هر بازه زمانی یک کد کاربردی جدید اضافه میشود.
| دستهبندی | تکه کدها |
| تاریخ انتشار | ۲۵ شهریور ۱۴۰۵ - ۰۷:۰۰ |
| تعداد بازدید | ۲ |
| تعداد فروش | ۰ |
| فرمت تحویل | فایل دانلودی (بعد از پرداخت آنی فعال میشود) |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگیهای کلیدی
- کد B4A آماده استفاده
- توضیح کامل فارسی
- کاملاً رایگان
- کتابخانه: OkHttpUtils2
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال میشود)
Sub CheckForUpdate
Dim j As HttpJob
j.Initialize("", Me)
j.Download("https://my-site.ir/api/version")
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Dim serverVersion As Int = j.GetString
' اگر نسخه سرور بزرگتر بود یعنی آپدیت موجود است
If serverVersion > Application.VersionCode Then
Msgbox("نسخه جدید برنامه موجود است!", "آپدیت")
Else
ToastMessageShow("شما آخرین نسخه را دارید", False)
End If
Else
ToastMessageShow("مشکلی پیش آمد", True)
End If
j.Release
End Sub