PB EasySetup - Setup für eigenes Programm erstellen

[Frogger]

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.

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

[Thorsten1867]

* Vor Programmende sollte überprüft werden, ob sich die Einstellungen seit dem letzten Speichern des Projektes geändert haben und ggf. darauf hingewiesen werden (mit der Möglichkeit zum Speichern des Projektes).

Änderungen (meist wohl die Versionsnummer) werden beim Schließen des Programmes automatisch gespeichert.


Änderungen in der nächsten Version:

Kein Bitmap

- Standard-Bitmap, wenn kein Bitmap angegeben wurde

Hinzugefügte Sprachen sollten nicht mehr in der Combobox hinzuzufügender Sprachen erscheinen.

- erledigt

[Thorsten1867]

Könntest du ind die nächste Version eine Überprüfung auf neue Versionen einbauen?

Ich denke das lässt sich machen, allerdings möchte ich mich vorher noch nach eine Funktion umschauen, die feststellt, ob eine Internetverbindung besteht. So könnte bei bestehender Internetverbindung automatisch auf ein Update überprüft werden.

[winduff]

Code: Alles auswählen

Procedure InternetConnection()
  If InternetGetConnectedState_(0, 0) 
    result = 1
  Else
    result = 0
  EndIf
  ProcedureReturn result
EndProcedure

[Frogger]

So wie es hier voran geht wirst du mit der nächsten Version noch vor Morgengrauen fertig
Nee ach was nimm dir Zeit

[Thorsten1867]

Neue Version 0.3.6
- kleinere Änderungen (Bitmapwahl, Sprachauswahl, ...)
- ausführlichere Rückmeldung bei fehlenden Eingaben
- deutsche Hilfedatei verfügbar
- automatische Auswahl der entsprechenden Hilfedatei, falls vorhanden

(Updateüberprüfung in nächster Version)

[Thorsten1867]

Also ich würde die Hilfe nach Englisch übersetzen.
Werde morgen dann mal anfangen.

Super!!! Alle englischsprachigen Nutzer werden es dir danken.

[Frogger]

Neue Version 0.3.6

Gestern noch 0.3.5 und jetzt schon 0.3.6
Und wann schläfst du
Toll wie es bei dir voran geht

[Thorsten1867]

Neue Version 0.3.7
- Überprüfung auf Updates (-> Hilfe)
- automatische Überprüfung (alle 7 Tage), wenn beim Start von EasySetup eine Internetverbindung besteht

Und wann schläfst du

Na ja, ich habe mir erstmal ein bisschen (ca. 10std. - Urlaub ) Schlaf gegönnt und mich dann gut erholt an die Updatefunktion gemacht.

[Thorsten1867]

Neue Version 0.3.8
- Neu: benutzerdefinierte Registry - Einträge
- Bugfixes: benutzerdefinierte Links
- kleinere Verbesserungen
(z.B. ImageButton für 'Ändern' in benutzerdefinierten Aufgaben)