Monitoring reseau par ping

Soyez le premier à donner votre avis sur cette source.

Vue 14 879 fois - Téléchargée 3 012 fois

Description

Bonjour

Ce programme permet de surveiller différents éléments réseaux
En exécutant à intervalle régulier des requêtes de ping
Il peut envoyer un message d?alerte avec le nom de l?élément réseau qui ne répond plus au ping

Conclusion :


Pour les entités j'utilise des frames
Pour la partie de ping j'ai créé une classe de ping qui ce base sur icmp.dll et Iphlpapi.dll voir la MDSN
Pour la partie envoie de mail j'utilise les composant indy 10.1.5
Pour le fichier EXE voir sur mon site d'ici peut de temps :)
Pour les fichiers projets utilisation du XML
Vous trouverez aussi dans le zip un PDF expliquant l'utilisation du logiciel

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
2
Date d'inscription
samedi 24 avril 2010
Statut
Membre
Dernière intervention
10 mars 2011

Bien vu, ça marche ! Mais...
J'ai ensuite ce message :
[DCC Erreur fatale] UfonctionsDiv.pas(39): F1026 Fichier introuvable : 'HtmlHelpAPI.dcu'
si je vire "HtmlHelpAPI" de la clause uses, j'ai ensuite une autre erreur :
[DCC Erreur] uMail.pas(68): E2003 Identificateur non déclaré : 'atnone'
pas facile...
Merci en tout cas pour la rapidité de votre réponse.
Messages postés
251
Date d'inscription
dimanche 7 décembre 2003
Statut
Membre
Dernière intervention
11 novembre 2016

Bonjour

n'ayant pas delphi 2010 cela va être dure de vous aider
Cela doit certainement venir de inet_addr(PChar(FstrAddress));
dans delphi 2005 la fonction inet_addr est declaré comme suit
function inet_addr(cp: PChar): u_long; stdcall;
dans 2010 il me semble que PCHAR est unicode donc correspond à PWideChar
faudrait tenter de faire ceci
FicmpIPAddress := inet_addr(PAnsiChar(FstrAddress));

A+
Messages postés
2
Date d'inscription
samedi 24 avril 2010
Statut
Membre
Dernière intervention
10 mars 2011

Bonjour,
En Delphi 2010, j'ai l'erreur suivante à la ligne 279
FicmpIPAddress := inet_addr(PChar(FstrAddress));

Erreur : [DCC Erreur] uPing.pas(279): E2010 Types incompatibles : 'Char' et 'AnsiChar'

Pouvez-vous m'aider ?
Messages postés
251
Date d'inscription
dimanche 7 décembre 2003
Statut
Membre
Dernière intervention
11 novembre 2016

Dans mon code cela ce passe dans l'unité uFrmEntite
au niveau de constructor TfrmEntite.Create
apres la ligne ping := tping.Create ;
vous pouvez mettre ping.size := xx
A+
Messages postés
251
Date d'inscription
dimanche 7 décembre 2003
Statut
Membre
Dernière intervention
11 novembre 2016

Bonjour

pour cela il faut normallement modifier la Propriété Size de la classe TPing

A+
Afficher les 8 commentaires

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.