Discussion :

[Aka Guymelef]

Bonjour,

dans le cadre d'une application utilisant les objets COM de Commerce Server, je suis en train d'écrire une panoplie d'objet permettant de l'interfacer mais je rencontre un soucis avec les objets Dictionary.

En effet en VB il est possible de faire ceci

Code :

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

1
2
3
For Each element In dictUser
    Response.Write element
Next

où element prend tour à tour les différentes clés du dictionnaire

Or en Delphi 7 la syntaxe du foreach n'existe pas, de plus Dictionary ne comporte pas de propriété Items me permettant d'itérer dessus alors je ne sais pas comment faire pour reproduire cette syntaxe en Delphi.

Si quelqu'un peut m'aider, merci d'avançe.

[Aka Guymelef]

Bon puisque visiblement personne n'a put trouver de solution je vais quand même partager mon expérience sur l'utilisation des objets COM de Commerce Server en particulier pour les Dictionnary et les SimpleList.

La MSDN indique souvent pour ces deux objets des "raccourcits" pour accéder aux valeurs contenus dans l'objet, notemment la fameuse syntaxe :

Code :

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

Dict('cle')

Ces syntaxes ne fonctionnent pas en Delphi, les deux seules syntaxes qui fonctionnent pour les Dictionnaires sont :

Code :

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

1
2
3
4
5
// mapping direct
Dict.cle
 
// récupération via le tableau
Dict.Value['cle']

La seule syntaxe que je ne suis pas arrivé à reproduire mais qui existe en VBScript est le foreach pour pouvoir faire un parcours de tout les éléments (comme demandé dans mon post précédent).
Notez aussi que l'indexation par numéro du style Dict.Value[0] ne fonctionne pas, il renvoit une chaîne considérant probablement que l'on demande la valeur de l'élément dont la clé est '0'.

Pour les SimpleList vous pouvez accéder aux valeurs de chaque éléments de la manière suivante :

Code :

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

1
2
3
4
5
// par indexation
Fields.Item[0].Value
 
// par clé
Fields.Item( 'cle' ).Value

Cerise sur le gâteau je montre comment accéder aux valeurs d'un objet OrderGroup parce que la syntaxe est un peu méchante :

Code :

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

OrderGroup.Value.Value['cle']

où OrderGroup.Value donne le dictionnaire et OrderGroup.Value.Value permet d'accéder au tableau des clés/valeurs.

N'oubliez pas que vous pouvez recréer la TLB des DLL en utilisant dans Projets->Importer bibliothèque de types. Faites Ajouter puis choisissez la DLL à sonder puis faites Créer l'unité puis sauvegardez. Et voila vous pouvez voir la déclaration des Interfaces des objets COM façon Delphi

A nouveau si quelqu'un sait comment parcourir les items d'un Dictionnary ou récupérer les noms de toutes les clés, ça m'intérèsserait, merci.

[Aka Guymelef]

Finalement j'ai réussit à faire mon foreach sur les Valeurs du Dictionnary, merci la FAQ Delphi

Par contre je n'ai pas pu utiliser directement la propriété _NewEnum comme dans l'exemple de la FAQ (même si cette propriété est bien présente dans la TLB )

J'ai dû me débrouiller avec le lien annexe de la FAQ ici qui utilise la méthode Invoke du IDispatch pour récupérer l'interface en question. Et ça fonctionne . Je me permet de noter que faire un foreach sur un objet implémentant la IDictionnary de Commerce Server ne permet pas de récupérer les valeurs une à une mais les noms des clés de la collection du Dictionnary.

En espérant que ça en aidera d'autres.