FAQ DelphiConsultez toutes les FAQ

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;

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;

AThread.Connection.Socket.Binding.PeerIP;

ASender.Thread.Connection.Socket.Binding.PeerIP;

MessageDlg(Format('Mon IP est : %s',[GStack.LocalAddress]), mtInformation, [mbOK], 0);

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)

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;

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;