آموزش دانلود یک فایل در b4a

میخوام یاد بدم عکسی رو دانلود و نمایش بدید(البته پس از دانلود توی گوشی ذخیره میشه و توی پوشه ی Files محل اجرا برنامه دیگه چیزی نمی بینیم چون apk باید روی گوشی یا blueStack آنزیپ(یا unPack) بشه و روی حافظه اونجا قرار می گیره و فایل دانلودی هم میره همونجا.

ما انواع ماژول داریم:
ماژول اکتیویتی
ماژول سرویس
ماژول کلاس
ماژول کد
-

یک ماژول سرویس با نام DownloadService ایجاد کنید( منوی project->Add new module->Service Module)
-
کد زیر رو بریزید توش و ذخیره کنید:

کد:

#Region Module Attributes
    #FullScreen: False
    #IncludeTitle: True
    #ApplicationLabel: Download Service
    #VersionCode: 1
    #VersionName:
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

'Activity module
Sub Process_Globals
    Dim image As Bitmap
End Sub

Sub Globals
    Dim btnDownload As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    'check if we already loaded the image previously.
    If image.IsInitialized Then
        Activity.SetBackgroundImage(image)
    End If
End Sub

Sub Activity_Resume
    'check if download has finished while the activity was paused
    If btnDownload.Enabled = False AND DownloadService.JobStatus = DownloadService.STATUS_DONE Then
        FinishDownload
    End If
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub btnDownload_Click
    Activity.Color = Colors.Black
    DownloadService.URL = "http://www.basic4ppc.com/basic4android/images/designer1.png"
    DownloadService.Target = File.OpenOutput(File.DirInternalCache, "image.png", False)
    StartService(DownloadService)
    btnDownload.Enabled = False
End Sub

Sub FinishDownload
    'Load the saved image
    If DownloadService.DoneSuccessfully = True Then
        image = LoadBitmapSample(File.DirInternalCache, "image.png", _
         100%x, 100%y)
        Activity.SetBackgroundImage(image)
    End If
    btnDownload.Enabled = True
    DownloadService.JobStatus = DownloadService.STATUS_NONE
End Sub

سپس به اکتیویتی main برگردید و این کدها رو بریزید توش:

کد:

#Region Module Attributes
    #FullScreen: False
    #IncludeTitle: True
    #ApplicationLabel: Download Service
    #VersionCode: 1
    #VersionName:
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

'Activity module
Sub Process_Globals
    Dim image As Bitmap
End Sub

Sub Globals
    Dim btnDownload As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    'check if we already loaded the image previously.
    If image.IsInitialized Then
        Activity.SetBackgroundImage(image)
    End If
End Sub

Sub Activity_Resume
    'check if download has finished while the activity was paused
    If btnDownload.Enabled = False AND DownloadService.JobStatus = DownloadService.STATUS_DONE Then
        FinishDownload
    End If
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub btnDownload_Click
    Activity.Color = Colors.Black
    DownloadService.URL = "http://www.basic4ppc.com/basic4android/images/designer1.png"
    DownloadService.Target = File.OpenOutput(File.DirInternalCache, "image.png", False)
    StartService(DownloadService)
    btnDownload.Enabled = False
End Sub

Sub FinishDownload
    'Load the saved image
    If DownloadService.DoneSuccessfully = True Then
        image = LoadBitmapSample(File.DirInternalCache, "image.png", _
         100%x, 100%y)
        Activity.SetBackgroundImage(image)
    End If
    btnDownload.Enabled = True
    DownloadService.JobStatus = DownloadService.STATUS_NONE
End Sub

به منوی Designer برید و در بخش طراحی یک لی اوت به نام "1" بسازید و یک دکمه از منوی Add view اضافه کنید و اسمشو بذارید btnDownload. سپس با ctrl+S ذخیره کنید و پروژه رو اجرا کنید.
روی دکمه ی دانلود بزنید و منتظر باشید عکس دانلود بشه
اینم سورس:
http://s5.picofile.com/file/8161000026/D...e.zip.html
--
نکته مهم:
یادتون نره کتابخونه http رو باید در بخش libs (پایین و سمت راست محیط basic4android) تیک بزنید.
اگه این کتاب خونه رو ندارید از اینجا دانلود:
http://s5.picofile.com/file/8161000250/http.zip.html
و سپس فایل های jar و xml رو در مسیر نصب basic4android و داخل پوشه ی libraries(کتابخونه ها) بریزید و توی برنامه هم تیک بزنید http رو.

---

خرید آموزش b4a فارسی با قیمت کم:
http://gameover.blog.ir/1395/04/03/%DA%A9%D8%AA%D8%A7%D8%A8-%D9%81%D8%A7%D8%B1%D8%B3%DB%8C-%D8%A7%D9%85%D9%88%D8%B2%D8%B4-b4a-%D8%B3%D8%A7%D8%AE%D8%AA-%DA%AF%DB%8C%D9%85-%D8%A2%D9%88%D8%B1