Discussion :

[PhilLU]

Bonjour,
J'ai créé des petits serveurs Web/Wifi équipés de sondes de température.
A l'appel de l'IP, ceux-ci m'affichent une ligne indiquant la température.
J'ai écris une petite appli qui scanne les différentes IP pour récupérer les températures de chaque serveur.
Cela fonctionne bien, mais je n'arrive pas à gérer l'exception socket error quand un serveur n'est pas disponible
J'ai testé plusieurs variantes mais sans résultat...
Voici le

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
40
41
42
43
 
procedure DownloadHTTP(const AUrl : string; out DestStream: TStream);
begin
  with TIdHTTP.Create(Application) do
  try
    try
      Get(AUrl, DestStream);
    except
      on e: Exception do
        MessageDlg(Format('Erreur : %s',[e.Message]), mtInformation, [mbOK], 0);
    end;
  finally
    Free;
  end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  Fs : TFileStream;
  F : textfile;
begin
  for I := 1 to NProbe do
  begin
 
       Fs := TFileStream.Create('temp.log', fmCreate);
        try
          DownloadHTTP('http://'+IPProbe[i-1], TStream(Fs));    //
 {          except
    ShowMessage(intToStr(IdHTTP.Response.ResponseCode));
          end;
          }
        finally
          Fs.Free;
          Memo1.Lines.loadfromfile('temp.log');
          Memo2.Lines.append( DateTimetoStr(now)+' '+ Memo1.Lines[0]);//,length(Memo1.Lines[0]-7,length(Memo1.Lines[0]-1)))  );
          LogGrid.Cells[0,logGrid.rowcount]:= DateTimetoStr(now);
        //  LogGrid.Cells[1,logGrid.rowcount]:= NameProbe[i-1];
          LogGrid.Cells[i,logGrid.rowcount]:= copy(Memo1.Lines[0],length(Memo1.Lines[0])-7,5) ;
          Memo1.Clear;
        end;
  end;
  LogGrid.rowcount:= LogGrid.rowcount+1;
end;

Ce que je souhaite en final c'est que l'erreur ne soit pas bloquante, mais que l'erreur s'affiche dans la table...

Merci pour vos conseils
PhilLu

[PhilLU]

Voici la solution:

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
40
 
procedure DownloadHTTP(const AUrl : string; out DestStream: TStream);
begin
  with TIdHTTP.Create(Application) do
  try
    try
      Get(AUrl, DestStream);
    except
      on e: Exception do
      if e.Message='Erreur de socket n°10060' then
     MessageDlg(Format('Erreur : %s',[e.Message]), mtInformation, [mbOK], 0);
    end;
  finally
    Free;
  end;
end;
 
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  Fs : TFileStream;
  F : textfile;
begin
  for I := 1 to NProbe do
  begin
       Fs := TFileStream.Create('temp.log', fmCreate);
        try
          DownloadHTTP('http://'+IPProbe[i-1], TStream(Fs));    //
           except
    ShowMessage(intToStr(IdHTTP.Response.ResponseCode));
          end;
 
          Fs.Free;
 
          Memo1.Lines.loadfromfile('temp.log');
          Memo2.Lines.append( DateTimetoStr(now)+' '+ Memo1.Lines[0]);
          LogGrid.Cells[0,logGrid.rowcount-1]:= DateTimetoStr(now);
          LogGrid.Cells[i,logGrid.rowcount-1]:= copy(Memo1.Lines[0],length(Memo1.Lines[0])-6,5) ;
          Memo1.Clear;
   end;

[ShaiLeTroll]

je le compléterais ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  except
    on EHTTPError: EIdHTTPProtocolException do
    begin
      MessageDlg(Format('Erreur HTTP : %s [%d]', [EHTTPError.ErrorMessage, EHTTPError.ErrorCode]), mtInformation, [mbOK], 0);      
    end;
    on ESockedError: EIdSocketError do // unit IdStack
    begin
      if ESocketError.LastError = 10060 then
        MessageDlg(Format('Erreur TCP : %s [%d]', [ESocketError.Message, ESocketError.LastError]), mtInformation, [mbOK], 0);
     end;
  end;