Discussion :

[aityahia]

j'appel une fonction qui me renvoi des résultats de type HResult et j'aimerais faire un gestionnaire dans un case pour identifier le problème dans le cas ou la fonction échoue.

le détail des valeur est défini
ici au format 0x8007XXXX mais j'arrive pas a interpréter ces codes.

j'ai bien cherché et j'ai trouvais ça mais je me retrouve pas vraiment.

la fonction utilisé c'est ADSOpenObject.

merci.

[ShaiLeTroll]

problème d'Hexa

Code :

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

1
2
3
4
5
6
case AResult of
  $0 : MessageString:= 'Operation succeeded';
  $80070002 : MessageString:= 'Object does not exist'; 
  $80070005 : MessageString:= 'Authentication method not supported';
  ...
end;

ensuite, tu peux récupérer le code LDAP via un décalage

LDAPError := AResult shl 16; // ou shr je ne sais plus

[aityahia]

shai sa marche pas la valeur récupérer et un nombre négatif quand je l'affiche avec IntToStr

[TryExceptEnd]

Le résultat retourné par la fonction est un chiffre hexadécimale ($80070005) par exp., pour pouvoir l'utiliser, tu élimine la partie fixe du nombre ($80070000) par une simple opération d'exclusion : (HResult XOR $80070000);
Tu peut aussi utiliser la fonction ADsGetLastError pour récupérer le code de la dernière erreur survenue.

[aityahia]

Problèmes résolus bon j'ai utilisé la méthode de Chai.
après avoir effectuer des simulation des erreur et j'affichais les résultat avec IntToHex j'ai remarqué que les code retourné ne figure pas dans ma table de référence.
après avoir cherché j'ai trouvé la bonne table Win32 Error Codes au lieux Win32 Error Codes for ADSI 2.0
par contre quand j'appel le case avec des valeur HEXA j'ai des avertissents

• l'expression constante dépasse les limites de sous-étendue.
• Libellé CASE hors des limites de l'expression CASE.

mais sa marche.
je pense de préférence je vais convertir en entier.