delphi_host_reachable
Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revision | |||
delphi_host_reachable [2011/07/20 19:26] – modification externe 127.0.0.1 | delphi_host_reachable [2011/09/19 19:24] (current) – effacée guillaume | ||
---|---|---|---|
Line 1: | Line 1: | ||
- | ====== Prérequis ====== | ||
- | |||
- | Le code ci-dessus requiert l' | ||
- | Les versions récentes de Delphi implémentent de base les composants issus de Indy. | ||
- | |||
- | ====== Description ====== | ||
- | |||
- | La fonction présentée sert à testé l' | ||
- | Cette dernière prend deux paramètres: | ||
- | La valeur de retour est de type booléen; | ||
- | |||
- | ====== Rédaction ====== | ||
- | |||
- | __[Note]__ Ajoutez l' | ||
- | |||
- | <code delphi> | ||
- | function HostReachable(Address: | ||
- | var | ||
- | T: TIdTelnet; // Déclaration de la variable T, utilisant la classe ' | ||
- | begin | ||
- | // Initialisation de la valeur de retour par défaut | ||
- | Result := False; | ||
- | |||
- | // Initialisation de la classe | ||
- | T := TIdTelnet.Create(nil); | ||
- | |||
- | // La variable ' | ||
- | // des slash '/' | ||
- | if (Pos(' | ||
- | Address := StringReplace(Address, | ||
- | |||
- | if (Pos('/', | ||
- | Address := StringReplace(Address, | ||
- | |||
- | // Affectation de l' | ||
- | T.Host := Address; | ||
- | |||
- | // Affectation du port spécifié à la propriété de la classe | ||
- | T.Port := Port; | ||
- | |||
- | // Tentative de connexion | ||
- | try | ||
- | try | ||
- | // Connexion à l' | ||
- | T.Connect; | ||
- | // Attente de 100 millisecondes par sécurité | ||
- | Sleep(100); | ||
- | // Affectation de la valeur de retour, si la connexion à pu être établie, | ||
- | // la valeur de ' | ||
- | Result := T.Connected; | ||
- | except | ||
- | // Inutile d' | ||
- | // la fonction s' | ||
- | end; | ||
- | finally | ||
- | // Déconnexion | ||
- | if (T.Connected) then | ||
- | T.Disconnect; | ||
- | |||
- | // Libération de la classe (très important) | ||
- | T.Free; | ||
- | end; | ||
- | end; | ||
- | </ | ||
- | |||
- | ====== Conclusion ====== | ||
- | |||
- | L' | ||
- | L' | ||