با سلام و سپاس خدمت کاربران عزیز سایت یاهو ۹۸ YAHOO
امروز با قطعه کدی کاربردی دیگر در خدمتتون هستیم امیدوارم مطلب فوق مورد قبول شما قرار گیرد .
تکه کد دانلود فایل با OkHttpUtils2 و دستور Wait For در B4A
✨ نکات مهم:
• کد آماده و تست‌شده (2 قطعه‌کد)
• کار با کتابخانه‌های: HttpJob، File، OkHttpUtils2
• کپی و استفاده مستقیم در پروژه B4A
📚 کتابخانه‌های مورد نیاز:
HttpJob، File، OkHttpUtils2
(از مسیر Libraries در محیط B4A تیک بزنید.)
🚀 نحوه استفاده:
کد زیر را کپی کنید و در Sub یا ماژول مناسب پروژه خود قرار دهید؛ کتابخانه‌های اعلام‌شده را تیک بزنید.
| دسته‌بندی | تکه کدها |
| تعداد بازدید | ۴۵ |
| تعداد فروش | ۰ |
| فرمت تحویل | کد نمونهٔ رایگان در همین صفحه |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگی‌های کلیدی
- تکه‌کد آماده B4A
- کاملاً رایگان
- کد تست‌شده با توضیح فارسی
- کتابخانه: HttpJob، File، OkHttpUtils2
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال می‌شود)
Sub DownloadAndSave (Url As String, Dir As String, FileName As String) As ResumableSub
Dim j As HttpJob
j.Initialize("", Me)
j.Download(Url)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Dim out As OutputStream = File.OpenOutput(Dir, FileName, False)
File.Copy2(j.GetInputStream, out)
out.Close
End If
j.Release
Return j.Success
End Sub
Wait For (DownloadAndSave(URL, File.DirInternal, "map_large.jpg")) Complete (Success As Boolean)
If Success Then
...محصولات مشابه