German Aus meiner Software ein Update starten

[arautio]

Hallo,
in meinem Programm wird bei jedem start geprüft ob es eine neuere Version gibt. (das funktioniert)
jetzt soll aus dem Programm die datei runtergeladen und installiert werden. Kann jemand mir sagen wie am besten
Gruß Andreas

 

[MaFu]

Ich mache das mit der Lib ftp_auto. Hier meine Routine als Beispiel:

Sub Globals
    Dim ftpa As FTP_Auto

End Sub

Sub Activity_Create (FirstTime As Boolean)
    Activity.LoadLayout("download_prog")

    Dim names(1) As String
    names(0) = "mein.programm.apk"

    Try
        ftpa.Initialize(Activity, Me, "ftp_server", "ftp_username", "ftp_passwort", 21, False, True)
        ftpa.SetCompletedDownloadDialog(True, "Download abgeschlossen")
        ftpa.SetProcessCompleteOn(True)
        ftpa.SetText("Programmdownload", "Programmupload", "Datei", "Fortschritt", "Abbrechen", "Fertig")
        ftpa.DownloadFileSet(File.DirDefaultExternal, names, False)
    Catch
        Msgbox("Fehler beim Download des Programmupdates!", "programm_name")
        Activity.Finish
        Return
    End Try

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)
    If ftpa.IsInitialized Then ftpa.CloseNow

End Sub

Sub FTP_ProcessComplete
    Dim i As Intent
    i.Initialize(i.ACTION_VIEW, "file://" & File.Combine(File.DirDefaultExternal, "mein.programm.apk"))
    i.SetType("application/vnd.android.package-archive")
    StartActivity(i)
    Activity.Finish

End Sub

 

[arautio]

Danke, werde es mal ausprobieren

 

[arautio]

Hey, also bei mir klappt das nicht der macht nichts

 

[MaFu]

Hey, also bei mir klappt das nicht der macht nichts

Wo scheitert es denn?
Passiert einfach gar nichts?
Kommt eine Fehlermeldung?
Scheitert es am Download oder beim Update?
Nimmst Du auch Auto_FTP oder etwas anderes?
Ist der FTP Zugang korrekt eingerichtet?
Pfad/Dateiname korrekt angegeben?
Wie weit kommst Du, wenn Du schrittweise mit dem Debugger durchs Programm gehst?

 

[rbsoft]

Hier wäre noch eine extrem einfache Routine, die ich in einem meiner Programme verwende.

Sub Update
    Dim p As PhoneIntents
    Dim t As String
   
    t = "http://www.mywebsite.com/myupdatefolder/myapp.apk"
    StartActivity(p.OpenBrowser(t))
End Sub

Rolf