Saving downloaded file

[magarcan]

Hi all! I have a problem saving a file downloaded from Internet. If file already exists in the folder, file is added instead of rewrite it (for example if I download example.jpg that has 12kb, and then try downloading again in the same place, now example has 24kb).

This is code I'm using:

Sub JobDone (Job As String)
   If HttpUtils.IsSuccess(fileurl&filename) Then
       Dim out As OutputStream
      out = File.OpenOutput(fd.FilePath,filename, True)
       File.Copy2(HttpUtils.GetInputStream(fileurl&filename), out)
       out.Close
      ProgressDialogHide
      ToastMessageShow(filename&" downloaded OK!", False)
   End If
End Sub

Any idea? Thanks!!

 

[NJDude]

You have to change this from:

out = File.OpenOutput(fd.FilePath,filename, True)

To:

out = File.OpenOutput(fd.FilePath,filename, False) 'False overwrites file

 

[Erel]

As NJDude wrote, setting the last parameter to True opens the file in "append" mode.

 

[deantangNYP]

i am trying to learn how to Download and Save a file using httputils.
this is a working example...

Sub Button4_Click
   Dim FileUrl As String
   FileUrl = "http://192.0.0.1/1234.xml"
     HttpUtils.CallbackActivity = "Main" 'Current activity name.
     HttpUtils.CallbackJobDoneSub = "JobDone"
     HttpUtils.Download("Job1", FileUrl)
End Sub

Sub JobDone (Job As String)
   Dim filename,fileurl As String
   fileurl = "http://192.0.0.1/"
   filename = "1234.xml"
   
    If HttpUtils.IsSuccess(fileurl&filename) Then
      Dim out As OutputStream
      out = File.OpenOutput(File.DirRootExternal,filename, False)
      File.Copy2(HttpUtils.GetInputStream(fileurl&filename), out)
      out.Close
      ProgressDialogHide
      ToastMessageShow(filename&" Downloaded OK!", False)
    End If
End Sub

Thanks.

 

[Erel]

I recommend you to use HttpUtils2 instead of HttpUtils.

 

[deantangNYP]

I recommend you to use HttpUtils2 instead of HttpUtils.

Thanks.
I suppose the following is the recommended option?

Sub Button6_Click
   Dim job3 As HttpJob
   'Send a GET request    
   job3.Initialize("Job3", Me)    
   job3.Download("http://192.168.0.100/1234.xml")
   
End Sub

Sub JobDone (Job As HttpJob)
   Dim filename As String
   filename = "1234.xml"
   
    If Job.Success = True Then
      'Log(Job.GetString)
      File.WriteString(File.DirRootExternal, filename, Job.GetString)
      ToastMessageShow(filename&" Downloaded OK!", False)'
    Else
        'Log("Error: " & Job.ErrorMessage)
        ToastMessageShow("Error: " & Job.ErrorMessage, True)
    End If
    Job.Release
End Sub

 

[Erel]

Looks good.

 

[psdos]

I have a problem downloading file, by default system download it in internar memory, in Galaxy Ace, with 190MB of internal memory, i have error by no memory. Can i change download default path at SD_CARD ?

Thanks.

 

[Erel]

Please start a new thread for this question.

 

[mrwebbit]

if i want save the BITMAP ?
[Job.GetBitmap] with HttpUtils2?

thanks
MWB

 

[mrwebbit]

is possible?

            Dim out As OutputStream
            out = File.OpenOutput(File.DirInternal,"cane.jpg",False)
            File.Copy2(Job.GetInputStream,out)
            out.close

 

[Erel]

For some reason you appear as an unlicensed user in the forum. Please contact [email protected] in order to fix it.