Differences

This shows you the differences between two versions of the page.

--- delphi_host_reachable [2011/06/27 18:55] – created S.H
+++ delphi_host_reachable [2011/07/20 19:26] – modification externe 127.0.0.1
@@ Line 7: / Line 7: @@
 La fonction présentée sert à testé l'existence d'un serveur web à l'aide du composant **TIdTelnet** via l'adresse spécifiée.\\
-Cette dernière prend deux paramètres: L'**adresse** en elle-même (Host) qui peut être remplis par un nom de domaine (example.com) ou une adresse IP (X.X.X.X), ainsi que le **Port** qui est par défaut à __80__ si celui-ci n'est pas spécifié.\\
+Cette dernière prend deux paramètres: L'**adresse** en elle-même (Host) qui peut être remplis par un nom de domaine (example.com) ou une adresse IP (X.X.X.X), ainsi que le **Port** qui est par défaut à __80__ si celui-ci n'est pas indiqué.\\
 La valeur de retour est de type booléen;
@@ Line 49: / Line 49: @@
 			// la valeur de 'Connected' est modifiée par la classe elle-même.
 			Result := T.Connected;
-			// Déconnexion
-			T.Disconnect;
 		except
 			// Inutile d'affiché une éventuelle erreur de socket en cas d'échec,
@@ Line 56: / Line 54: @@
 		end;
 	finally
+		// Déconnexion
+		if (T.Connected) then
+			T.Disconnect;
 		// Libération de la classe (très important)
 		T.Free;