FAQ DelphiConsultez toutes les FAQ

Nombre d'auteurs : 123, nombre de questions : 919, dernière mise à jour : 14 juin 2019  Ajouter une question

 

Cette FAQ a été réalisée à partir des questions fréquemment posées sur les forums Delphi et Delphi et bases de données de www.developpez.com et de l'expérience personnelle des auteurs.

Nous tenons à souligner que cette FAQ ne garantit en aucun cas que les informations qu'elle propose soient correctes. Les auteurs font le maximum, mais l'erreur est humaine. Cette FAQ ne prétend pas non plus être complète. Si vous souhaitez y apporter des corrections ou la compléter, contactez un responsable (lien au bas de cette page).

Nous espérons que cette FAQ saura répondre à vos attentes. Nous vous en souhaitons une bonne lecture.

L'équipe Delphi de Developpez.com.

Commentez


SommaireComposants IndyIndy et les adresses IP (5)
précédent sommaire suivant
 

Pour déterminer la classe d'une IP, vous pouvez utiliser la méthode GetIPClass de la pile globale GStack. Celle-ci renvoie un type TIdIPClass que vous pouvez exploiter ultérieurement.

Voici un exemple d'utilisation qui affiche la classe d'une IP saisie dans un TEdit. Remarquez qu'on appelle d'abord IsIP() de la même classe pour vérifier avant tout si l'IP saisie est bien valide !

Code Delphi : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
if GStack.IsIP(Trim(Edit1.Text)) then 
begin 
  case GStack.GetIPClass(Trim(Edit1.Text)) of 
    Id_IPClassA : MessageDlg('L''IP saisie est de classe A.', mtInformation, [mbOK], 0); 
    Id_IPClassB : MessageDlg('L''IP saisie est de classe B.', mtInformation, [mbOK], 0); 
    Id_IPClassC : MessageDlg('L''IP saisie est de classe C.', mtInformation, [mbOK], 0); 
    Id_IPClassD : MessageDlg('L''IP saisie est de classe D.', mtInformation, [mbOK], 0); 
    Id_IPClassE : MessageDlg('L''IP saisie est de classe E.', mtInformation, [mbOK], 0); 
    Id_IPClassUnkn : MessageDlg('Impossible de déterminer la classe de l''IP !', 
      mtInformation, [mbOK], 0); 
  end; 
end;
N'oubliez pas d'ajouter IdStack dans votre clause uses.

Mis à jour le 21 janvier 2014 Reisubar

Il peut vous arriver d'avoir besoin de contrôler si une IP saisie par exemple par un utilisateur dans un TEdit est correcte.

Il faut utiliser la fonction IsIP() de la pile globale GStack : elle renvoie une valeur booléenne indiquant si l'IP est valide ou non. Rajoutez IdStackdans la clause uses de votre unité.

Voici un exemple d'exploitation :

Code Delphi : Sélectionner tout
1
2
3
4
5
  if not GStack.IsIP(Trim(Edit1.Text)) then 
  begin 
    MessageDlg('L''IP que vous avez entré est incorrecte. Recommencez !', mtError, [mbOK], 0); 
    exit; 
  end;

IsIP renvoie False lorsque la valeur des 4 octets est supérieure à 255, ou bien qu'un ou plusieurs octets est manquant ou de trop.

Mis à jour le 21 janvier 2014 Reisubar

L'IP du client est enregistrée dans la propriété "PeerIP" de la propriété "Bindings" du socket utilisé pour la connexion.

Ainsi, dans un événement serveur classique possédant un paramètre identifiant le thread client, celle-ci peut se récupérer par :

Code Delphi : Sélectionner tout
AThread.Connection.Socket.Binding.PeerIP;
Dans un événement de type CommandHandler (où le thread n'est pas explicitement passé en paramètre), on peut tout de même la trouver en utilisant le paramètre "Thread" de l'objet "ASender" :
Code Delphi : Sélectionner tout
ASender.Thread.Connection.Socket.Binding.PeerIP;
Notez que le port client associé à la connexion peut aussi être récupéré de la même manière, en remplaçant "PeerIP" par "PeerPort".

Mis à jour le 21 janvier 2014 Reisubar

Si vous avez une seule adresse IP (une seule carte réseau), vous pouvez utiliser la pile globale GStack en rajoutant IdStack dans votre clause Uses et en accédant à sa propriété LocalAddress :

Code Delphi : Sélectionner tout
MessageDlg(Format('Mon IP est : %s',[GStack.LocalAddress]), mtInformation, [mbOK], 0);

Si vous avez plusieurs interfaces réseau, donc plusieurs adresses IP, vous pouvez utiliser la propriété LocalAdresses, de type TStrings. De même, si vous souhaitez que votre programme puisse s'adapter aux utilisateurs possédant plusieurs adresses IP, il vaut mieux toujours parcourir cette propriété. Ceci peut se faire suivant ce modèle :

Code Delphi : Sélectionner tout
1
2
3
for i := 0 to Pred(GStack.LocalAddresses.Count) do 
    MessageDlg(Format('IP n° %d = %s',[i+1, GStack.LocalAddresses[i]]), 
    mtInformation, [mbOK], 0)

Mis à jour le 24 janvier 2014 Reisubar

Il faut utiliser le composant TIdICMPClient. Celui-ci comporte une méthode Ping() qui effectue une requête sur l'hôte désigné par la propriété Host du composant. Les informations sur le ping envoyé sont reçues dans la propriété ReplyStatus du composant. On y trouve entre autres le nombre d'octets reçus (BytesReceived), le temps en millisecondes (MsRoundTripTime), le TTL du paquet (TimeToLive), etc.

Voilà à titre d'exemple une fonction permettant de déterminer le ping moyen d'un hôte dont on spécifie l'IP ou le nom. On passe aussi en paramètre le nombre d'envois que l'on doit faire (plus le nombre de pings effectué sera important, plus le résultat sera précis mais plus l'opération sera longue), et une variable de type Double dans laquelle on placera le résultat. La fonction renvoie true si tout s'est bien déroulé, false en cas d'échec :

Code Delphi : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
function TForm1.Ping(const AHost: string; const ATimes: integer; 
  out AvgMS: Double): Boolean; 
var 
  R: array of Cardinal; 
  i: integer; 
begin 
  Result := True; 
  AvgMS := 0; 
  if ATimes>0 then 
    with TIdIcmpClient.Create(Self) do 
    try 
      Host := AHost; 
      ReceiveTimeout := 999; 
      SetLength(R, ATimes); 
      for i := 0 to Pred(ATimes) do 
      begin 
        try 
          Ping(); 
          Application.ProcessMessages; 
          R[i] := ReplyStatus.MsRoundTripTime; 
        except 
          Result := False; 
          Exit; 
        end; 
        if ReplyStatus.ReplyStatusType <> rsEcho then result := False; 
      end; 
      for i := Low(R) to High(R) do 
      begin 
        Application.ProcessMessages; 
        AvgMS := AvgMS + R[i]; 
      end; 
      AvgMS := AvgMS / High(R); 
    finally 
      Free; 
    end; 
end;

Cette fonction nécessite l'inclusion des unités : IdBaseComponent, IdComponent, IdRawBase, IdRawClient, IdIcmpClient.

Exemple d'exploitation :

Code Delphi : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject); 
var 
  RoundTripTime : Double; 
begin 
  if Ping('www.developpez.com', 4, RoundTripTime) then 
    MessageDlg(Format('Ping moyen : %s', [FormatFloat('0.00', RoundTripTime)]), 
    mtInformation, [mbOK], 0) 
  else 
    MessageDlg('Erreur. L''hôte est sans doute injoignable.', mtInformation, [mbOK], 0); 
end;

L'envoi de ping avec cette méthode nécessite les droits administrateurs sous Windows NT/2000/XP. Si vous n'exécutez pas le programme en tant qu'administrateur, vous obtenez le message suivant : Le projet a provoqué une classe d'exception EIdInvalidSocket avec le message 'Cannot allocate socket'.

Mis à jour le 24 janvier 2014 Reisubar

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça


Réponse à la question

Liens sous la question
précédent sommaire suivant
 

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2019 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

 
Responsables bénévoles de la rubrique Delphi : Gilles Vasseur - Alcatîz -

Partenaire : Hébergement Web