Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

MISE À JOUR AUTOMATIQUE D'UNE APPLICATION CLIENT/SERVEUR


Information sur la source

Catégorie :Trucs & Astuces Classé sous : cantador, basededonnée, exécutable, miseàjour, réseau Niveau : Initié Date de création : 24/02/2007 Date de mise à jour : 26/02/2007 17:32:48 Vu / téléchargé: 5 363 / 1 074

Note :
Aucune note

Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

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.



 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Historique

25 février 2007 13:32:26 :
Voilà j'ai fait un peu de ménage dans les uses et laissé les procédures et fonctions qui sont utilisées réellement. j'ai inhibé et laissé du code qui fait à peu près la même chose qui pourrait en intéresser certains le cas échéant. j'ai ajouté également quelques explications supplémentaires.
26 février 2007 17:32:49 :
Suppression du chemin d'accès de l'exécutable signalUTD dans Options-> Répertoires/Conditions qui si conservé fait planter la compil..

Commentaires et avis

signaler à un administrateur
Commentaire de cantador le 24/02/2007 17:49:00

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 !

signaler à un administrateur
Commentaire de cocowz le 25/02/2007 18:25:19

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

signaler à un administrateur
Commentaire de cantador le 26/02/2007 12:31:37

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

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

importation de table via un réseau local [ par okparanoid ] bonjour,connaissez vous un moyen (rapide si possible) de copier une table X distante vers une table Y locale via un réseau local (la table contient 67 Récupérer utilisateurs du réseau [ par Bruto ] Comment puis-je savoir quels sont les ordinateurs de mon réseau ? ( scanner d'ip ? ).Le principe serait plutôt de récupérer les utilisateurscomme le f Comment créer un exécutable [ par alexissoft ] J'aimerais bien créer un exécutable à partir de mon application.J'ai Delphi 4-----AlexisSoftwarecontact@asw.com02.comhttp://www.asw.com02.com [réseau]utilisation en réseaux d'un prog utilisant 1 base IB [ par lnicos ] Voilà, j'ai un logiciel utilisant une base IB, qui va être utilisée par plusieurs personnes à travers un réseau local, mais j'aimerais qu'ils aient to Liste PC sur le réseau [ par minipod ] Comment récupérer le nom de tout les PC présents sur un réseau local et les mettre dans une listbox ?? Merci. Désactiver et réactive une carte réseau [ par Kortexx ] Tout est dans le titre... Comment qu'on fait ça ? Précision, je suis en Delphi 7.Merci. Créer un lecteur réseau [ par NetCyrille ] Bonjour,Comment tester l'existance d'un lecteur réseau et le créer si il n'existe pas ? Merci d'avanceVag Fonction pour obtenire le chemin de l'exécutable? [ par Go20 ] Salut, J'ai un EInOutError : 'File not found' avec :assignfile(fichier,'repertoires.ini');reset(fichier);Le fichier repertoires.ini est dans le meme r Midas [ par ataeallah ] Bonjour,J'ai utilisé dans mon programme le composant ClientDataSet de Midas.J'ai créée un exécutable indépendant pour mon application.Une fois j'ai la comment patcher un executable quelconque ? [ par hendrix ] Bonjour, je cherche à faire un programme en delphi qui permette d'ajouter à n'importe quel exécutable une boite de dialogue avant le lancement de l'ex


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,671 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.