& pourquoi j’n’écrirais pas ça ?

Suite à mes problèmes liés à Free, j’ai décidé de me faire une petite application Delphi^W pour logger mes coupures… cela permettra d’investiguer de façon plus fine…

Le principe est simple :

• Créer un Service Windows^W qui se lance au démarrage d’une machine qui est toujours allumée…
• Vérifier à intervalles réguliers si la connexion est disponible :
• Toutes les 5 minutes, je pingue^W free.fr et je stocke le résultat dans un fichier journalier (ça marche ou pas).
• Si cela ne marche pas, je vérifie alors toutes les 15 secondes…
• Dès que cela remarche au bout d’une dizaine de fois, je repasse à un intervalle de 5 minutes…
• Utiliser les fichiers générés avec un tableur^W, type Excel^W pour tracer les heures de disponibilité/indisponibilité !

Pour ceux que cela intéresse, le code est ci-dessous…
J’ai simplement créé un nouveau projet application Service, dans lequel j’ai ajouté 2 composants :

• 1 TTimer pour vérifier régulièrement et pas coder mon propre thread^W…
• 1 TIdIcmpClient pour pinguer le serveur de Free…

Lire la suite »