Le premier site francophone dédié au développement Pocket PC

XML et eVB (partie 1)

Partie 1
Partie 2
Partie 3

On ne programme pas en XML, on utilise XML

Le but de cet article n'est pas d'expliquer XML. Il existe de nombreux ouvrages et articles sur internet qui expliquent ce qu'est XML, ce qu'il peut apporter et comment s'en servir. Cet article va vous expliquer comment traiter un fichier au format XML.

Préparation de eVB

Avant de se lancer dans le développement d'applications eVB utilisant XML il faut préparer le terrain. Le modèle objet de Microsoft XML n'étant pas très simple il ne faut surtout pas se priver de l'aide que peut vous fournir eVB. Pour que eVB puisse vous lister les objets, méthodes et propriétés d'une librairie il faut que la référence de cette librairie soit cochée.

En standard, eVB ne propose pas dans la liste des références la librairie XML, mais si XML 2.0 est installé sur votre PC, vous pouvez l'utiliser comme référence. Pour cela vous devez aller chercher cette librairie sur votre PC en utilisant le bouton "Browse" de la fenêtre des références de votre projet (cette opération n'est à effectuer qu'une seule fois) :

Note: Si vous êtes sous Windows NT ou Windows 2000, il faudra chercher cette DLL dans le dossier "System32" de votre PC.

eVB ne trouve pas cette opération à son goût. N'en tenez pas compte et vous obtiendrez "Microsoft XML, version 2.0" dans le liste des références disponibles, que vous vous enpresserez de cocher.

Un fichier XML pour tester tout ça

Pour tester les fonctions XML de votre Pocket PC, il vous faut un tel fichier. Vous pouvez télécharger un fichier de test. Copiez ensuite ce fichier dans le dossier "\My Documents" de votre Pocket PC et lancez-le. Pocket Internet Explorer est l'application liée aux fichiers XML, c'est donc lui qui vous permettra de consulter ce fichier.

Télécharger le fichier 'solution.xml' (utilisez click droit + enregistrer la cible sous...)

Le document DOM

L'objet principal fourni par la librairie XML de votre Pocket PC est de type 'DOMDocument'. Pour l'utiliser, il faut l'instancier :

Dim xDoc as DOMDocument
Set xDoc = CreateObject("Microsoft.XMLDOM")

Il est maintenant possible de manipuler un document au format XML avec l'objet que vous venez d'instancier.

Charger un document XML

Il est possible de charger un document XML existant pour ensuite travailler dessus. C'est la méthode 'Load' qui est chargée de ce travail. Malheureusement, la méthode 'Load' est boguée et lorsqu'on l'utilise avec comme paramètre le nom d'un fichier XML elle nous retourne invariablement une erreur :

Call xDoc.Load("\My Documents\solution.xml")

Pour contourner ce problème, nous devons lire le contenu du fichier XML dans une variable de type chaine, puis utiliser la méthode 'LoadXML'. Pour lire le contenu du fichier XML, nous devons utiliser les services de "Microsoft CE File System Control 3.0" qu'il faut cocher dans la liste des références du projet.

Rem Lecture du fichier XML
Dim xDoc As DOMDocument
Dim xFile As File
Dim wBuffer As String

Rem Instanciation des objets
Set xDoc = CreateObject("Microsoft.XMLDOM")
Set xFile = CreateObject("FileCtl.File")

Rem On place le contenu du fichier XML dans une variable de type chaine
Call xFile.Open("\My Documents\solution.xml", fsModeInput, fsAccessRead, fsLockRead)
wBuffer = xFile.Input(xFile.LOF)
Call xFile.Close
Set xFile = Nothing

Rem On charge le document XML
call xDoc.LoadXML(wBuffer)

Conclusion de cette première partie

Vous êtes maintenant capable d'ajouter à votre projet eVB des fonctionnalités XML. Vous savez même contourner le bug du chargement. Dans la prochaine partie nous allons parcourir le fichier XML et comprendre comment est organisé le model objet proposé par Microsoft.

Stéphane Sibué