AS201281 Wiki

Your check engine light is on!

User Tools

Site Tools

Trace:
delphi_host_reachable

Differences

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

Link to this comparison view

Both sides previous revisionPrevious revision
Next revision		Previous revision
Last revisionBoth sides next revision
delphi_host_reachable [2011/06/27 18:55] – S.Hdelphi_host_reachable [2011/07/20 19:26] – modification externe 127.0.0.1
Line 49: Line 49:
  // la valeur de 'Connected' est modifiée par la classe elle-même.  // la valeur de 'Connected' est modifiée par la classe elle-même.
  Result := T.Connected;  Result := T.Connected;
- // Déconnexion 
- T.Disconnect; 
  except  except
  // Inutile d'affiché une éventuelle erreur de socket en cas d'échec,   // Inutile d'affiché une éventuelle erreur de socket en cas d'échec, 
Line 56: Line 54:
  end;  end;
  finally  finally
 + // Déconnexion
 + if (T.Connected) then
 + T.Disconnect;
 +
  // Libération de la classe (très important)  // Libération de la classe (très important)
  T.Free;  T.Free;