[บทเรียน,B4X] การเพิ่มเวลาการเชื่อมต่อของ Http สำหรับการดาวน์โหลด

[Theera]

Public Sub Download(Callback As Object, Link As String) As HttpJob
             Dim j As HttpJob j.Initialize("", Callback)
             j.Download(Link)
             j.GetRequest.Timeout = 60000  ' 1000 เท่ากับ 1 วินาที ดังนั้น 60000 เท่ากับ 1 นาที
             Return j
End Sub

วิธีใช้:

     Dim j As HttpJob = B4XPages.MainPage.Download(Me, "https:...")
     Wait For (j) JobDone(j As HttpJob)