SIGNIFICATION DES CODES D'ERREUR DE L'API WIN32 - UTILISATION D'UNE TLISTVIEW

Commentaire de Jean_Jean le 12/10/2007 23:00:55

Bj Japee,
La simplicité de tes codes sont un régal.
C'est un source qui est utile pour les débug et mises au point!
Et SysErrorMessage n'utilise pas les ListView, alors t'a eu 1 bonne idée.
Bien à toi

Commentaire de cantador le 15/10/2007 11:08:00 administrateur CS

j'ai placé ton soft dans un menu de Delphi..
Intéressant aussi est le traitement de la ListView qui ouvre d'autres horizons.
beau travail Japee.

Commentaire de zouriteman le 15/10/2007 18:46:18

Ma curiosité n'a pas pu attendre une réponse de quelqu'un ; j'ai donc modifié le programme de Jappee pour voir s'il y avait d'autres codes. Réponse OUI OUI :
J'en ai trouvé 1734 supplémentaires ; voci mes modifs ( compilé avec DELPHI5-PRO sous WinXP)
======= (dans TForm1 )
  public
    { Déclarations publiques }
    TERR : array[0..9999] of byte ;    // Ajout G.CHABANT 15/10/2007
  end;
======= (début de ListErrors )
procedure TForm1.ListErrors;
var
  I , J , XDIF : Integer;
  S: string;
begin
  // Ajout G.CHABANT 15/10/2007
  for I := 0 to 9999 do begin
    TERR[I] := 0 ;
  end ;
  //.....
==========
========== (fin de ListErrors )
    // Ajout G.CHABANT 15/10/2007
    XDIF := 0 ;
    for J := 0 to 9999 do begin
       if TERR[J] = 0 then begin
          S := EmptyStr ;  //**** Attention, la Chaine S n'est peut-etre pas ré-initialiséee
          S := SysErrorMessage(J);
          if S <> EmptyStr then begin
               inc(XDIF) ;
               with Add do begin
                   Caption := 'X' + IntToStr(XDIF) ;
                   SubItems.Add(IntToStr(J));
                   S := StringReplace(S, #13#10, '', [rfReplaceAll]);
                   SubItems.Add(S);
               end;
          end ;
       end ;
    end ;
    if XDIF > 0 then begin
       ShowMessage('Nombre de SysError non recensés = ' + IntToStr(XDIF) ) ;
    end ;
    //.....

    EndUpdate;
  end;
end;
==========

Commentaire de japee le 17/10/2007 20:59:57 administrateur CS

Merci à tous les 5.

Quand je serai dans le doute existentiel (genre dois-je m'acharner à continuer d'essayer de progresser avec Delphi), je reviendrai sur cette page où je puiserai une force nouvelle :-)

Zouriteman, bien vu :
Le nombre de messages d'erreur varie considérablement d'une version à l'autre de Delphi et de Windows.
D'ailleurs si tu avais élargi un peu ta boucle, tu en aurais trouvé d'autres (Delphi4_pro et XP : 2661)... :p

Je vais néanmoins en rester là, pour plusieurs raisons :

- les messages ramenés par SysErrorMessage ne semblent pas tous correspondre à un message d'erreur (regarde bien la liste générée),
- ceux que j'utilise sont des constantes déclarées dans Windows.pas de Delphi4 pro et sont donc utilisables avec toute version ultérieure et à partir de Win9x,
- ils me semblent suffisants pour la plupart des erreurs courantes et même beaucoup plus,
- pour résumer, compte tenu de la disparité des versions de Windows encore largement en service (9x, 2000, XP, Vista), il vaut mieux se limiter à une liste d'erreurs reconnue par tous les systèmes.

De plus, en récupérant ces messages dans une boucle, la constante n'est pas retournée, donc la première colonne de ma TListView ne sert plus à grand chose, et comme on peut éventuellement se passer de la troisième, ma ListView devient inutile, et tout mon didactitiel sur le tri est perdu par la même occasion. C'est pas ça que tu veux, dis ? (lol)

Bon, je fais un break et je reviens pour quelques explications supplémentaires.

A plus.

Commentaire de japee le 17/10/2007 21:47:51 administrateur CS

J'ai donc testé dans plusieurs cas de figure : Delphi 4 pro, Delphi 6 Entreprise, Delphi 7 Entreprise pour la compilation, et Windows 98 SE, Windows XP Pro et Windows Vista personnel pour les OS.

Pour effectuer les tests, j'ai remplacé la procedure initiale par celle-ci  :

procedure TForm1.ListErrors;
var
  i: Integer;
  S: string;
  Compteur: Integer;
begin
  Compteur := 0;
  StatusBar1.SimpleText := '';
  with ListView1.Items do
  begin
    Clear;
    BeginUpdate;
    for i := 0 to 20000 do  // on prévoit large
    begin
      S := SysErrorMessage(i);
      if S <> EmptyStr then
      begin
        S := StringReplace(S, #13#10, '', [rfReplaceAll]);
        with Add do
        begin
          Caption := IntToStr(Compteur);
          SubItems.Add(IntToStr(i));
          SubItems.Add(S);
          Inc(Compteur);
        end;
      end;
    end;
    EndUpdate;
    NombreItems := Compteur;
  end;
end;

Voici les résultats que j'obtiens :

Delphi 4 pro - Win98 : 658
(doublons : 14)
Delphi 6 entreprise - Win98 : 658
(doublons : 14)
Delphi 7 entreprise - Win98 : 658
(doublons : 14)

Delphi 4 pro - XP : 2661
(doublons : 70)
Delphi 6 entreprise - XP : 2661
(doublons : 70)
Delphi 7 entreprise - XP : 3008
(doublons : 95)

Delphi 4 pro - Vista : 3263
(doublons : 71)
Delphi 6 entreprise - Vista : 3263
(doublons : 71)
Delphi 7 entreprise - Vista : 3626
(doublons : 97)

Les doublons relevés sont des messages d'erreurs identiques correspondant à des codes d'erreur différents (j'ai testé ultérieurement).

Voilà, maintenant il appartient à chacun de personnaliser s'il le désire en fonction de ses outils et de son système d'exploitation, le système de la ListView devenant alors caduque.

Bonne prog' :p

Commentaire de Caribensila le 17/10/2007 22:33:38

Oups
Je n'avais pas encore vu ce subtil changement de l'interface de CS qui consiste à devoir commenter quand on veut noter.  
Finies les anciennes pratiques anonymes déplorables!
C'est bien.

Donc, je note(10) et pardon pour la vacuité de ce msg.