Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter
XE2 ping sans utiliser d'évènements
Bonjour
J'ai trouvé plusieurs exemples de code pour ping"er" une url mais chaque fois le code pose problème sous XE2.
Je cherche un bout de code qui n'utilise pas de retour d'évènement comme les composants ICS par exemple. Juste une fonction ping('url') qui renverrait true ou false selon la réponse.
Quelqu'un aurait ça dans un coin ?
Papy !
As-tu essayé celui-ci : Ping c'est du ICMP ?
Il a été écrit pour D7 !
Il doit falloir juste prendre en compte, la taille du Char !
Remplace dans ce code String par AnsiString et Char par AnsiChar avec un peu de chance cela suffit
IcmpCreateFile, IcmpCloseHandle et IcmpSendEcho ne semble pas avoir de variante Ansi\Wide !
Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
Attention Troll Méchant !
"Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
L'ignorance n'excuse pas la médiocrité !
L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
Il faut avoir le courage de se tromper et d'apprendre de ses erreurs
Je peux adapter le addreport qui doit faire partie d'une classe spécifique mais pourrais-tu me donner la définition du type TInAddr qui me manque stp ?
TInAddr ça doit être dans Winsock.pas
AddError et AddReport, tu peux le remplacer par un TStrings.Add
Ce code étant dans une petit programme de diagnostique qui faisait tout plein d'analyse du poste
Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
Attention Troll Méchant !
"Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
L'ignorance n'excuse pas la médiocrité !
L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
Il faut avoir le courage de se tromper et d'apprendre de ses erreurs
merci, j'ai adapté ça mais à chaque tentative, je reçois une erreur de timeout
Erreur 11010 : The request timed out.
J'ai augmenté la valeur de 1000 à 3000 sans résultat
tu est sur windows 7 ? L'UAC bloque le ping, essaye en exécutant le programme en administrateur.
Répondre avec citation
Partager