ping de reseau local en delphi

Question

Bonjour
je veut corriger ce code afain q'il fait pinger un ensemble d'adresse se trouve dans un combobox c.si une adresse est connecté il la met dans une combobox c1,Sinon il la met dans une combobox c2.merci

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    c: TComboBox;
    Button3:TButton;
    c1: TComboBox;
    c2: TComboBox;
    
    procedure Button3Click(Sender: TObject);
      private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

procedure TForm1.Button3Click(Sender: TObject);
Var
I:integer;
begin
 for I:= 0 to c.Items.Count -1 do
  if Ping(c.Items.Text) then
 begin
  c1.Items.Add(c.Items.GetText);
 end else
 begin
  c2.Items.Add(c.Items.GetText);
 end;
end;
end.

cs_mouna23 · Answer

salut
j'attend vos reponses s'il vous plait.

fbalien · Answer

Bonjour

pour énumérer la liste des items
vous utilisez bien une boucle
For i:= 0 to c.Items.Count -1 do 
mais le i vous ne l'utilisez pas
donc vous pinguez toujours le même item
il faut utiliser c.items[i]

A+

cs_mouna23 · Answer

salut,
j'ai utiliser c.items[i] mais le code ne pingue aucune item,il ne fait pas méme l'execution.il y'a une erreur dans l'instruction :
if Ping(c.Items.Text)
merci

fbalien · Answer

Bonjour

c'est sur qu'en laissant if Ping(c.Items.Text) çà ne marche pas
il faut utiliser if Ping(c.items[i])

A+

nad_meka · Answer

bon jour ?mais je ne trouve pas cette instrection ping une erreur se declanche a l utilisation

WhiteHippo · Answer

Bonsoir

La commande ping n'est pas native en Delphi.
Pour en disposer, tu peux soit utiliser des composants indy, soit la coder par toi même.

Cordialement.[hr]"L'imagination est plus importante que le savoir." Albert Einstein

Ping de reseau local en delphi

6 réponses

Votre réponse

Discussions similaires