Android Question How to download file from remote web server and saved in download folder of mobile?

[Rajesh Gupta]

Hello sir,
My code is

Sub Process_Globals
    Dim job7 As HttpJob
End Sub

Sub Global
Dim FileName As String
End Sub

Public Sub downLoadFile()
    FileName="a.txt"
    Dim  FilePath As String="http://192.168.0.36/UWS1/UWS/Temp/a.txt"
    job7.Initialize("job7", Me)
    job7.Download(path)
End Sub

Sub JobDone (job As HttpJob)
If job.JobName="job7" Then
        If job.Success Then
            Log(job.Tag)
            Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, FileName, False)
            File.Copy2(job.GetInputStream, out)
            out.Close 
        
        Else
            Log("Error: " & job.ErrorMessage)
        End If
    Else
    
        Log("Error: " & job.ErrorMessage)
        ToastMessageShow("Error: " & job.ErrorMessage, True)
    End If
    
    job.Release
End Sub

When using above code, i didn't get any file, i.e. no any file downloaded.

 

[DonManfred]

Use code tags when posting code! You get told this in the past.

i didn't get any file

Dim FilePath As String="http://192.168.0.36/UWS1/UWS/Temp/a.txt"

will only be accessible from within the same network.
So you need to be connected to the same network as the server. Using Wifi.

 

[DonManfred]

Log("Error: " & job.ErrorMessage)

Did you get any Error-Output in the log?

 

[Rajesh Gupta]

No, I didn't get any error but log showed content length [0]

 

[DonManfred]

but log showed content length [0]

There is no such LOG command in your code.

If you dont get any error then Job.success must be true.

Upload a project which shows the issue.

Without it i can´t help any further.

 

[Rajesh Gupta]

There is no such LOG command in your code.

If you dont get any error then Job.success must be true.

Upload a project which shows the issue.

Without it i can´t help any further.

I upload my project with name Download_File

 

[DonManfred]

replace log(job.tag) with log(job.getstring)

 

[Rajesh Gupta]

replace log(job.tag) with log(job.getstring)

When using log(job.getstring), log didn't show any information.

I upload my project again

 

[ronell]

When using log(job.getstring), log didn't show any information.

I upload my project again

i think the app successfully downloaded the file , but it didnt moved in the download folder

 

[Rajesh Gupta]

i think the app successfully downloaded the file , but it didnt moved in the download folder

Ok. But if file downloaded then where it get stored and how is it provided to user?

 

[Erel]

Tip: if you are using B4A v7+: [B4X] OkHttpUtils2 with Wait For
You can use File.Copy2 with Job.GetInputStream to copy the file to wherever you like (don't forget to close the OutputStream).

 

[Rajesh Gupta]

Tip: if you are using B4A v7+: [B4X] OkHttpUtils2 with Wait For
You can use File.Copy2 with Job.GetInputStream to copy the file to wherever you like (don't forget to close the OutputStream).

Sir I have already done it but still not get any downloaded file.

Sub JobDone (job As HttpJob)
    If job.JobName="job7" Then
        If job.Success Then
            Log(job.GetString)
            Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, FileName, False)
            File.Copy2(job.GetInputStream, out)
            out.Close
       
        Else
            Log("Error: " & job.ErrorMessage)
        End If
    Else
   
        Log("Error: " & job.ErrorMessage)
        ToastMessageShow("Error: " & job.ErrorMessage, True)
    End If
   
    job.Release
End Sub

 

[ronell]

Upload a project which shows the issue.

 

[DonManfred]

i´m not sure what is the issue here but you should not use a process global job.

Sub Process_Globals
End Sub

Sub Global
Dim FileName As String
End Sub

Public Sub downLoadFile()
    FileName="a.txt"
    Dim  FilePath As String="http://192.168.0.36/UWS1/UWS/Temp/a.txt"
    Dim job7 As HttpJob ' DIM the job here....
    job7.Initialize("job7", Me)
    job7.Download(path)
End Sub

Sub JobDone (job As HttpJob)
If job.JobName="job7" Then
        If job.Success Then
            Log("success:"&job.Tag)
            Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, FileName, False)
            File.Copy2(job.GetInputStream, out)
            out.Close
       
        Else
            Log("Error: " & job.ErrorMessage)
        End If
    Else
        Log("Error: " & job.ErrorMessage)
        ToastMessageShow("Error: " & job.ErrorMessage, True)
    End If
   
    job.Release
End Sub

 

[Rajesh Gupta]

i´m not sure what is the issue here but you should not use a process global job.

Thank you sir, I used above code but still problem remain.

 

[DonManfred]

I have no more ideas, sorry.
It is working for me (for sure if i use a url from my server)

 

[ronell]

It is working for me (for sure if i use a url from my server)

same .. working using my own server

 

[Rajesh Gupta]

Thank you sir. I think there is network issue or ip addresss problem.

 

[ronell]

Thank you sir. I think there is network issue or ip addresss problem.

try download some image .. then make it as your activity background in jobdone

 

[Rajesh Gupta]

try download some image .. then make it as your activity background in jobdone

try download some image .. then make it as your activity background in jobdone

Ok . Thank you sir