Discussion :

[Just-Soft]

Bonjour !

je commence par vous donner ce bout de 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
  Res := True;
  nb_essai_acces := 1;
  repeat
    if (PasswordDlg.ShowModal = mrCancel) or (nb_essai_acces > 3) then
    begin
      // Decnnexon de la BD si jamais on est connecté
      if IBCConnection1.Connected then IBCConnection1.Connected := False;
      // Sortie du programme principal
      Res := False;
      fmMain.Close;
    end;
 
    IBCConnection1.Username := PasswordDlg.USER;
    IBCConnection1.Password := PasswordDlg.PW;
    try
      IBCConnection1.Connected := True;
      Res := True;
      if not(PasswordDlg.RzCheckBox_Memo.Checked) then
      begin
         PasswordDlg.USER := '';
         PasswordDlg.PW := '';
      end;
 
    except
      on E : EIBCError do
      begin
        fmMain.Timer1.Enabled := False;
        case E.ErrorNumber of
            isc_invalid_user_password : ShowMessage('Mot de passe incorrect');
            isc_network_error : ShowMessage('Erreur sur le réseau');
            isc_lost_db_connection : ShowMessage('Problème de connexion à la BD');
            isc_conn_lost : ShowMessage('Connexion perdue');
        end;
        Res := False;
      end;
    end;
    inc(nb_essai_acces);
  until ((nb_essai_acces > 3) or (Res = True));
  if (nb_essai_acces > 3) then Exit;

comme vous voyez j'ai encapsuler l'appel à la BD dans un try except end .... en passant un mode passe erroné j'ai bien le message ('Mot de passe incorrect') mais
j'ai toujours l'exception géré par Firebird me retournant "your username and password.... " et là je ne parviens pas à comprendre ce qui peut bien laisser le message système remonté malgré qu'il est encapsulé dans un try except end ?!

Merci bien à vous.

[SergioMaster]

et là je ne parviens pas à comprendre ce qui peut bien laisser le message système remonté malgré qu'il est encapsulé dans un try except end ?!

Bonjour,

peut être tout simplement parce que cette erreur n'appartient pas à l'ensemble EIBCError
essayes avec E: EdatabaseError ou carrément E:Exception

[Papy214]

Quelle version de Delphi ??

Si le test est réalisé depuis Delphi en mode Debug (XE et +) , c'est sans doute Delphi qui affiche l''exception en plus de celle qui est dans le except.

Tester hors IDE si ce n'est pas déja fait !

[Just-Soft]

Bonjour,

peut être tout simplement parce que cette erreur n'appartient pas à l'ensemble EIBCError
essayes avec E: EdatabaseError ou carrément E:Exception

si si j'utilise les composants IBDAC et la classe IBCError est responsable des erreurs retournés par les composants de connexion d'où mon étonnement !

[Just-Soft]

Quelle version de Delphi ??

Si le test est réalisé depuis Delphi en mode Debug (XE et +) , c'est sans doute Delphi qui affiche l''exception en plus de celle qui est dans le except.

Tester hors IDE si ce n'est pas déja fait !

malheureusement j'ai réalisé ce test mais j'ai toujours cette fameuse exception !!!

[Papy214]

le message du except

isc_invalid_user_password : ShowMessage('Mot de passe incorrect');

apparait-il avant ou après celui de IDDAC ?

[Just-Soft]

le message du except apparait-il avant ou après celui de IDDAC ?

c'est IBDAC

non bien après celui de IBDAC ... même avec le pas à pas j'ai pas réussis à l'avoir

[Ph. B.]

Bonjour,

si si j'utilise les composants IBDAC et la classe IBCError est responsable des erreurs retournés par les composants de connexion d'où mon étonnement !

Dans ce cas, modifiez votre code chargé de gérer ces erreurs, par exemple comme suit :

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
try
//...
except
  on E : EIBCError do
  begin
    fmMain.Timer1.Enabled := False;
    case E.ErrorNumber of
      isc_invalid_user_password : ShowMessage('Mot de passe incorrect');
      isc_network_error : ShowMessage('Erreur sur le réseau');
      isc_lost_db_connection : ShowMessage('Problème de connexion à la BD');
      isc_conn_lost : ShowMessage('Connexion perdue');
    else
      // Autre exception de type EIBCError 
      ShowMessage('Autre erreur : ' + IntToStr(E.ErrorNumber));
    end;
    Res := False;
  end;
  // Autre type d'exception
  on E: Exception do
    ShowMessage('Autre Exception : ' + E.Message);
end;

[Just-Soft]

Bonjour,
Dans ce cas, modifiez votre code chargé de gérer ces erreurs, par exemple comme suit :

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
try
//...
except
  on E : EIBCError do
  begin
    fmMain.Timer1.Enabled := False;
    case E.ErrorNumber of
      isc_invalid_user_password : ShowMessage('Mot de passe incorrect');
      isc_network_error : ShowMessage('Erreur sur le réseau');
      isc_lost_db_connection : ShowMessage('Problème de connexion à la BD');
      isc_conn_lost : ShowMessage('Connexion perdue');
    else
      // Autre exception de type EIBCError 
      ShowMessage('Autre erreur : ' + IntToStr(E.ErrorNumber));
    end;
    Res := False;
  end;
  // Autre type d'exception
  on E: Exception do
    ShowMessage('Autre Exception : ' + E.Message);
end;

même avec ce code j'ai toujours l'autre message !!

[Ph. B.]

même avec ce code j'ai toujours l'autre message !!

Donc :

1. l'exception se produit en dehors de la zone gérée par le try...except...
2. ou l'exception est traitée quelque part dans le code sous-jacent avec affichage d'un message

[Just-Soft]

Salut !

Donc :

1. l'exception se produit en dehors de la zone gérée par le try...except...

effectivement s'était ça .... merci ... c'est réglé