Mise à jour automatique d'une application client/serveur

Soyez le premier à donner votre avis sur cette source.

Vue 9 546 fois - Téléchargée 1 804 fois

Description

Pour faire suite à plusieurs questions sur le forum, voilà un petit programme qui fonctionne de la manière suivante :

CLIENT
ex : c:\Signal\exe\
SignalUTD.exe (exécutable du programme de Mise à jour)
SignalNEW.exe (exécutable de l'application)

c:\signal\users\
Defaut.ini
+

SERVEUR
\\serveur\signal\exe\SignalNEW.exe
\\serveur\signal\exe\path.ini

Il faut mettre le raccourci sur SignalUTD sur chaque poste de travail (à prévoir dans l'instalLation)

Au lancement de SignalUTD (UpToDate) le soft compare le n° de la version de SignalNEW.exe situé dans le dossier sur le disque et celui placé sur le serveur.
si la version du serveur est plus récente, alors SignalUTD écrase la version locale de SignalNEW.exe par celle du réseau
et lance aussitôt la dernière mouture.

ce programme est liée à un base FIREBIRD(pour l'exemple) et donc j'utilise des alias dont vous retrouves les noms dans Defaut.ini

Lors d'une Maj de votre programme principal (SignaNEW.exe), vous pouvez écraser votre application réseau (SignalNEW.exe) sans risque de perturber son fonctionnement et faire bénéficier à vos utilisateurs de l'évolution de votre logiciel.
Dans le code, vous trouverez un test sur les adresses IP que j'ai mis en place afin de gérer deux sites
(vous pouvez le supprimer ou (activer et adapter) si nécessaire-> avec une fonction Jedi: StrReplaceChar)

Evidemment, vous devrez adapter les chemins d'accès avec vos paramètres personnels...

un dernier point :
Application.Initialize;

Application.ShowMainForm := False; // a rajouter pour rendre ne pas faire apparaître la forme

Application.Title := 'SignalUTD';
Application.CreateForm(TForm1, Form1);
Application.Run;

Une de plus diront certains..
Eh bien bon vous verrez c'est différent et le tout sans ajout de composant.

Simple, efficace et çà marche bien.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
4715
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
12
Salut cocowz,

Inutile de m'envoyer des mails privés..sauf si tu as quelque chose de particulier à me demander.
si tu as une question ayant trait à cette source pose là sur le forum uniquement..le débat peut-être utile aux autres..
je réponds en principe sauf si je ne suis pas là..
j'ai mis le niveau "initié"..Donc, c'est supposé avoir un minimum de pratiques.
n° de version Delphi->projet->options>informations de version.
il n'y a pas ici de notion de téléchargement mais de copie.

cantador
Messages postés
89
Date d'inscription
lundi 28 novembre 2005
Statut
Membre
Dernière intervention
25 février 2007

Bonjour,
Je trouve pas ou il faut mettre la version de mon appli.
Et aussi ou il faut mettre le line pour le fichier qu'il faut telecharger sur le server...
Elle est un peu difficile a comprendre la source...
merci
Messages postés
4715
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
12
Evidemment, j'aurais du dans ma présentation remplacer "SignalNEW" par
"application" et "SignalUTD" par "UTD" afin de rester dans un cadre général..

Toujours les vieux démons..

Enjoy with Delphi !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.