Discussion :

[cincap]

@ Andnotor,

Tu avais toi-même donné la réponse non ?

Bien vu, je réalise plusieurs passages en modifiant la valeur de I et la Eurêka il trouve l'autre caméra:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 
for i := 1 to 15 do
for i := 16 to 30 do

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
37
38
39
 
 with IdTCPClient1 do
begin
  Port := strtoint(edport.text);//81;
 
  for i := 1 to 15 do
  begin
 
    Host := Format('192.168.1.%d', [i]) ;
 
    try
      Connect(500);
      Memo1.Lines.Add(Host +' : oui');
 
    except
      Memo1.Lines.Add(Host +' : non');
    end;
 
    Application.ProcessMessages;
  end;
 disconnect;
Port := strtoint(edport.text);//81;
 
  for i := 16 to 30 do
  begin
 
    Host := Format('192.168.1.%d', [i]) ;
 
    try
      Connect(500);
      Memo1.Lines.Add(Host +' : oui');
      except
      Memo1.Lines.Add(Host +' : non');
    end;
 
    Application.ProcessMessages;
  end;
  disconnect;
end;

Il y a certainement moyen de simplifier ce code ?

Encore merci,

@+,

cincap

[Andnotor]

Tu cherches toujours trop compliqué :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
with IdTCPClient1 do
begin
  Port := strtoint(edport.text);//81;
 
  for i := 1 to 255 do
  begin
 
    Host := Format('192.168.1.%d', [i]) ;
 
    try
      Connect(500);
      Disconnect;
      Memo1.Lines.Add(Host +' : oui');
 
    except
      Memo1.Lines.Add(Host +' : non');
    end;
 
    Application.ProcessMessages;
  end;
end;

[cincap]

Bonjour à toutes et à tous,

@ Andnotor, en effet je testai avec une autre direction moins éloquente.

Cela fonctionne je n'en doutais pas venant du Maître mais je n'ai pas bien compris comment la boucle continue après le "Disconnect" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
try
      Connect(500);
      Disconnect;

Le topic peut être fermé.

Encore merci à tous,

@+,

cincap

[Cirec]

Cela fonctionne je n'en doutais pas venant du Maître mais je n'ai pas bien compris comment la boucle continue après le "Disconnect" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
  try
    Connect(500);
    Disconnect;
    Memo1.Lines.Add(Host +' : oui');
  except
    Memo1.Lines.Add(Host +' : non');
  end;

en fait le code exécute Disconnect seulement si la connexion a été établie avec Connect(500)
si non Connect déclenche une exception et passe directement au code contenu dans except

Cordialement,
@+

[cincap]

@ Cirec mon 2ième Maître,

Merci pour l'info supplémentaire et tes suggestions claires et précises.

@+,

cincap