Android Question Upload file from Drop Box

[Roger Daley]

Hi All,

Simple issue, or should have been.
AIM: to check if current App Version is the latest.
METHOD: When APK is loaded to Play store a text file containing the Version Code uploaded to Drop Box
When App starts, download text file, read the version code compare with Version Code in current App.

PROBLEM: With the following code [largely stolen from an Erel example] I don't get the text file but what appears to be the code for the web page.

Sub Activity_Create(FirstTime As Boolean)
   '
   'Stuff
If FirstTime Then   
  '
  'Stuff
  '
        Private Job As HttpJob
        Job.Initialize("j", Me)
        Job.Download("https://www.dropbox.com/s/6blkum2r49ey6vb/conver.txt?dl=0")
        
End If       
  '
  '
End Sub


Sub JobDone(Job As HttpJob)
        If Job.Success Then
        Private out As OutputStream = File.OpenOutput(File.DirRootExternal  & "/Download/", "conver.txt", False)
        File.Copy2(Job.GetInputStream, out)
        out.Close                                 '<------ very important
        
        Private AppVer As Int  = Application.VersionCode
        Private VFunction As TextReader
        Private Riedlyne As String
        VFunction.Initialize(File.OpenInput(File.DirRootExternal  & "/Download/", "conver.txt"))
        Riedlyne  = VFunction.ReadLine
        
Log("AppVer = "&AppVer)
Log("Riedlyne = "&Riedlyne)
        
        If Riedlyne = Null Then Riedlyne = 0
        If AppVer < Riedlyne Then
            Msgbox2Async("Go to Play Store Now?","NEW UPDATE AVAILABLE","YES","","NO THANKS",Null,False)
            
            Wait For Msgbox_Result (Result As Int)
            If Result = DialogResponse.POSITIVE Then
                StartActivity(PhoneIntents1.OpenBrowser("https://play.google.com/store/apps/details?id=b4a.configulator_calculator&hl=en"))
            End If
        End If
        VFunction.Close   
    Else
        'Log("Error: " & job.ErrorMessage)
    End If
    Job.Release
End Sub

Any help Greatly appreciated

Regards Roger

 

[DonManfred]

Job.Download("https://www.dropbox.com/s/6blkum2r49ey6vb/conver.txt?dl=0")

Replace the 0 at the end of the url with 1

 

[Roger Daley]

Replace the 0 at the end of the url with 1

DonManfred,

You've done it again. Thanks very much.

Regards Roger

 

[tuhatinhvn]

Note that dropbox has limit request (download)

 

[Roger Daley]

Note that dropbox has limit request (download)

Thanks, I will check the fine print.
EDIT : Limit is 100,000 downloads per day. No problem for me, all my Apps together couldn't put a dent in this. ?