Verfasst: 10.08.2006 01:02
Könntest du in die nächste Version eine Überprüfung auf neue Versionen einbauen?
Den Code dazu kann ich dir gerne geben.
Die Funktion sollte man im Hilfe-Menü starten können.
Du bruchst nur noch eine .txt Datei auf deinem Server, in der die aktuellste verfügbare Version steht.
Den Code dazu kann ich dir gerne geben.
Die Funktion sollte man im Hilfe-Menü starten können.
Du bruchst nur noch eine .txt Datei auf deinem Server, in der die aktuellste verfügbare Version steht.
Code: Alles auswählen
#Version = "0.3.5" ;das ist die momentan benutzte Version
Procedure.s CheckUpdate(Server.s) ;Rückgabewert ist entweder die neue Version als String oder ein Leerstring
;/ Server.s ist die adresse zu der update-datei im www
;/ (in der updatedatei steht nur die neue version als text)
Protected DownloadUpdatePath.s
Protected Updatefile.l, NewVersion.s
DownloadUpdatePath.s = GetTemporaryDirectory()+"MeinProgVersion.txt"
If URLDownloadToFile_(0,Server.s,DownloadUpdatePath$,0,0) = #S_OK ;Download der Update-Datei
Updatefile.l = ReadFile(#PB_Any, DownloadUpdatePath$)
If Updatefile
NewVersion.s = ReadString(Updatefile.l)
CloseFile(Updatefile.l)
DeleteFile(DownloadUpdatePath$)
If NewVersion > #Version ; Neue Version ist verfügbar
ProcedureReturn NewVersion.s
Else ; Keine neue Version
ProcedureReturn ""
EndIf
Else
MessageRequester("Fehler", "Konnte die Updateinformationen nicht lesen!")
ProcedureReturn ""
EndIf
Else
MessageRequester("Fehler", "Konnte die Updateinformationen nicht herunterladen!")
ProcedureReturn ""
EndIf
EndProcedure
Version.s = CheckUpdate("http://www.adresse.xx/MeinProgVersion.txt")
If Version <> ""
MessageRequester("MeinProg", "Eine neue Version ist verfügbar! Download auf der Homepage!")
Else
MessageRequester("MeinProg", "Sie haben die aktuellste Version!")
EndIf