Discussion :

[peter27x]

Bonjour,

j'ai codé ça pour me connecter au port COM, avec la librairie (propriétaire) adPort:

Code :

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

1
2
3
4
5
6
7
8
9
  try
    Configure(portNumber)
  except
    on eBadId do
    begin
      showMessage('Port indisponible !');
      exit;
    end;
  end;

Si le port existe, ça marche, sinon j'ai le message suivant:

Code :

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

"ie_BadId - Specified comport doesn't exist"

Par le debuggeur, j'ai un message qui me donne le nom de l'exception, c'est "EBadId".

Par le debuggeur toujours, j'arrive à l'endroit d'où part ce message (dans module propriétaire adExcept):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function CheckException(const Ctl : TComponent; const Res : Integer) : Integer;
    {-Check Res, raise appropriate exception if non-zero}
  var
    ErrorMsg : String;
    FileIO   : EInOutError;
 
  begin
    Result := Res;
    if (Res < ecOk) then
      if not (csLoading in Ctl.ComponentState) then begin
        case Res of
(...)
           ecBadId : raise EBadId.Create(Res, False);
(...)

Question, comment faire pour avoir "mon" message (vu que j'ai bien mis try / except) et non le message par défaut ?

Merci.

[Cl@udius]

Salut

Question, comment faire pour avoir "mon" message (vu que j'ai bien mis try / except) et non le message par défaut ?

Tu obtiens ce message par "défaut" lorsque tu lances ton exécutable via Delphi soit en mode débogage.
Lance ton exécutable directement, hors Delphi, et seul ton message perso apparaitra.

A savoir que tu peux également demander au débogeur d'ignorer ce type d'exception EBadId.

@+ Claudius

[peter27x]

Salut



Tu obtiens ce message par "défaut" lorsque tu lances ton exécutable via Delphi soit en mode débogage.
Lance ton exécutable directement, hors Delphi, et seul ton message perso apparaitra.

A savoir que tu peux également demander au débogeur d'ignorer ce type d'exception EBadId.

@+ Claudius

Merci Claudius, en fait je m'étais trompé de responsable, ce n'était pas la fonction configure() mais juste après, l'affectation "true" à FPort.Open... du coup j'ai mis mon try expect dessus, et en effet, en passant par l'exe directement, j'ai bien mon message.