@ Andnotor,
Bien vu, je réalise plusieurs passages en modifiant la valeur de I et la Eurêka il trouve l'autre caméra:Tu avais toi-même donné la réponse non ?
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 doIl y a certainement moyen de simplifier ce code ?
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;
Encore merci,
@+,
cincap
Partager