MONITORING RESEAU PAR PING

michelroc Messages postés 84 Date d'inscription lundi 19 mai 2003 Statut Membre Dernière intervention 2 janvier 2010 - 4 oct. 2008 à 15:38
Melchior67 Messages postés 2 Date d'inscription samedi 24 avril 2010 Statut Membre Dernière intervention 10 mars 2011 - 10 mars 2011 à 12:38
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/43756-monitoring-reseau-par-ping

Melchior67 Messages postés 2 Date d'inscription samedi 24 avril 2010 Statut Membre Dernière intervention 10 mars 2011
10 mars 2011 à 12:38
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.
fbalien Messages postés 251 Date d'inscription dimanche 7 décembre 2003 Statut Membre Dernière intervention 11 novembre 2016
9 mars 2011 à 21:45
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+
Melchior67 Messages postés 2 Date d'inscription samedi 24 avril 2010 Statut Membre Dernière intervention 10 mars 2011
9 mars 2011 à 10:56
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 ?
fbalien Messages postés 251 Date d'inscription dimanche 7 décembre 2003 Statut Membre Dernière intervention 11 novembre 2016
28 févr. 2011 à 08:14
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+
fbalien Messages postés 251 Date d'inscription dimanche 7 décembre 2003 Statut Membre Dernière intervention 11 novembre 2016
28 févr. 2011 à 08:06
Bonjour

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

A+
Utilisateur anonyme
25 févr. 2011 à 23:56
Est-il possible de modifier la taille du paquet envoyé pour le Ping?
il semble que la taille par défaut de 5Kb ne donne pas une bonne information de la qualité du réseau?!?
500Kb conviendrait mieux?
merci pour vos avis!
philLu
fbalien Messages postés 251 Date d'inscription dimanche 7 décembre 2003 Statut Membre Dernière intervention 11 novembre 2016
5 oct. 2008 à 11:13
Bonjour

Merci de l’intérêt que vous portez à mes sources
Pour l’unité HTMLHelpAPI
Elle n’est pas utile pour le programme est peut donc être enlevé des déclarations elle permet d’utiliser des fichiers d’aide dans un programme
on peut malgré tous la télécharger ici http://www.helpsmith.com/how-to-connect-htmlhelp-chm-delphi.php
Pour les unité IDxxxx elle font partie des composant INDY il faut la version 10 voir ici http://www.indyproject.org/Sockets/Download/Files/Indy10.EN.aspx
Cordialement
michelroc Messages postés 84 Date d'inscription lundi 19 mai 2003 Statut Membre Dernière intervention 2 janvier 2010
4 oct. 2008 à 15:38
Bonjour,
Je suis très intéressé par votre appli ping_réseau
J' ai des soucis pour compiler il me manque les composants suivants:
IdSMTPBase,HtmlHelpAPI
et peut être d' autres ?
Pourriez vous me les fournir
Merci
Bien à vous
Rejoignez-nous