Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
2 - PROFAN-Programmierung

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Automatische Updatefunktion
Autor: Wilfried Heyse2 (---.echostar.pl)
Datum:   04.07.16 21:55

Eigentlich kein spezielles Profan, sondern eher ein Windows Thema.

Für automatische Updates habe ich vor längerer Zeit eine Funktion in die jeweiligen
Profan-Module eingebaut, damit Sie im Fall der Fälle automatisch aktualisiert werden, wenn auf dem Server (Nas-Platte) eine neue Version vorliegt

Proc Updatepruefung

Declare Dateidatum$
Declare Dateiupdate$
Declare Update$

Update$ = Pfad$ + "Updates\"

Dateidatum$ = @GetFDate$(Programm$)


IF @FileExists(Update$+Programm$)
Dateiupdate$ = @GetFDate$(Update$+Programm$)
'hier wird geprüft, ob ein Update vorliegt
IF val(Dateidatum$) < val(Dateiupdate$)

'wenn das der Fall ist, wird nachfolgende Operation ausgeführt
'das Programm schreibt seinen Namen in Die Datei Update.txt

'vorhandene Datei löschen
IF @FileExists(Programm$)
Assign #4,"Update.txt"
Erase #4
Endif

'neu anlegen
Assign #4,"Update.txt"
Rewrite #4
Print #4,Programm$
Close #4
'--------------------------------------------
'Bei Bedarf
@Messagebox("Es liegt eine neue Programmversion vor.\nSoll das Programm jetzt auf den neuesten Stand gebracht werden?","Meldung",262148)

IF %button = 6
Run "Updater.exe"
Endif
'------------------------------------------


Endif 'IF val(Dateidatum$) < val(Dateiupdate$)

Endif 'IF @FileExists(Programm$)

Endproc


Das Programm Update.exe sieht wie folgt aus:

Declare Stand$
Declare Verzeichnis$
Verzeichnis$ = Getdir$ ("@")

Stand$ = "20.04.2012"

Declare Update$
Declare Pfad$
'Datenpfad einlesen
Assign #1,"Datenpfad.txt"
Reset #1
input #1,Pfad$
Close #1


'Name des upzudatenden Programms einlesen
Assign #1,"Update.txt"
Reset #1
input #1,Update$
Close #1

Assign #1,Update$
Erase #4

@Messagebox("Programm neu starten?","Meldung",262144)

copy Pfad$ + "Updates\\"+Update$ > Verzeichnis$+"\\"+Update$
Run Update$

Bei Windows XP hat noch alles wie gewünscht funktioniert. Seit Win7, geschweige denn Win10 verhindert Windows jedoch auf Grund von Sicherheitseinstellungen die Ausführung. Was muss ich in Windows einstellen, damit es wieder funktioniert? Ich hoffe, es kann mir jemand helfen, auch wenn es kein spezielles Profan-Problem ist.

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Automatische Updatefunktion  Neu
Wilfried Heyse2 04.07.16 21:55 
 Re: Automatische Updatefunktion gelöst  Neu
Wilfried Heyse2 05.07.16 11:32 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org