Please help how can i improve this code so that it saves the download to my phone galary
thank you
thank you
B4X:
Dim j As HttpJob
j.Initialize("", Me)
j.Download("http://kccug.com/KabojjaApp/work/P1.png")
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Dim out As OutputStream = File.OpenOutput("Dir", "P1.png", False)
File.Copy2(j.GetInputStream, out)
out.Close
End If
j.Release
'Return j.Success