Fin de page
mar 02

Après l’avoir laisser tourner un peu plus de 24 heures, j’ai mis à jour le code du service pour contrôler ma connexion internet

Cependant, voici le résultat rapidement obtenu avec les données récoltées :

Disponibilité

Désynchronisations


Si je n’avais pas de problème de connexion, nous verrions un rectangle plein… les zones blanches correspondent à des pertes de synchronisation, et donc des coupures web… ;o(

Dans cette nouvelle version, j’ai modifié les choses suivantes :

  • Téléchargement d’un bout de page HTML… en effet, le ping en suffisait pas à faire tomber la connexion !
  • Stockage de la première et dernière valeur.. Excel a du mal avec trop de valeurs…
  • Ajout également de la date au format Unix… Toujours pour Excel, il me propose une plage minimale d’une journée.. donc, j’ai mis un numérique
  • Calcul systématique du nom de fichier pour changer de fichier de log à chaque nouvelle journée

Voici le code actualisé : Lire la suite »

mar 01

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

Le principe est simple :

  • Créer un Service WindowsW 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 pingueW 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 tableurW, type ExcelW 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 threadW
  • 1 TIdIcmpClient pour pinguer le serveur de Free…

Lire la suite »

nov 06

DelphiW 2010 ajoute encore de nouveaux composants à la VCLW

Parmi ceux-ci, on trouve un clavier visuel, permettant d’étendre les capacités de ses applications en ayant la possibilité de le proposer dans son interface, très pratique sur des périphériques à écrans tactilesW :cool:

Depuis la palette d’outils de l’environnement de conception de Delphi, dans la catégorie Tactile, on trouve le composant TTouchKeyboard. Il suffit simplement de l’ajouter dans la fiche de son choix.
Voici son aspect par défaut, avec un OSW en français :

Delphi : Clavier tactile

Delphi : Clavier tactile

Le clavier tactile s’adapte automatiquement à celui du système d’exploitation : On utilise un Windows en français, on a un clavier AZERTYW. On est sous un Windows anglais, on a un QWERTYW.

On peut personnaliser le clavier en modifiant ses propriétés directement depuis l’inspecteur d’objets. Mais trouvant le design par défaut trop joli, je vais dans le code ci-dessous, montrer comment surcharger une méthode de ce clavier pour redéfinir l’apparence des différentes touches.
Lire la suite »

Pages : 1 2 3

Lien permanent vers Personnalisation d’un clavier visuel dans Delphi Rédigé par Whiler \\ Tags : , , , , , , , ,

oct 13

J’ai eu envie de faire un peu de coloration syntaxique sur mon blog… dans un langage que je n’avais pas encore testé avec GeSHiW:rollup: alors, j’ai ressorti un vieux dossier :

  • il y a deux ans et demi, un défi avait eu lieu pour développer un jeu de Puissance 4W
  • il fallait juste utiliser Delphi
Puissance 4

Interface du Puissance 4

Voici le source que j’avais présenté un peu trop tard :
Lire la suite »

juin 03

Remplacement du plugin livré en standard avec b2evolution pour la coloration syntaxique par une version qui implémente GeSHi et donc beaucoup plus de langages, dont le SQL

L’utilisation et la modification d’une feuille de style n’a pas été une mince affaire :rollup:

Lien permanent vers Mise en place de la coloration syntaxique avec GeSHi sur mon blog Rédigé par Whiler \\ Tags : , , , , ,

Début de la page