Initiation à XML et Delphi 6

Date de publication : 26/03/2002

Par Sylvain James (TeamB-FR) (Contributions)
 

Initiation à XML et Delphi 6
tout doucement, tout simplement...

I. Introduction

II. XML ?

III. XML et Delphi 6

[SOCIETE]
NOM=4CENT AGENCY
[CONTACT] 
NOM=JAMES Sylvain
ADRESSE=LA-BAS
EMAIL=sylvain.james@wanadoo.fr

<Sylvain>
   <Societe>4CENT AGENCY</Societe>
   <Contact Nom="JAMES Sylvain" Adresse="LA-BAS" email="sylvain.james@wanadoo.fr"/>  
</Sylvain>

SELECT stages.NOMSTAGE, stages.DATESTAGE, stagiaires.NOMSTAGIAIRE, stagiaires.AGESTAGIAIRE
FROM stages,stagiaires
WHERE stages.IDSTAGE = stagiaires.IDSTAGE

<Stages>
  <Stage Nom="WORD 2000 Initiation" Date="14/06/2001">
    <Stagiaires>
      <Stagiaire Nom="MAGIC Jordan" Age="35"/>
      <Stagiaire Nom="ESSONCHA Jean-Roland" Age="38"/>
    </Stagiaires>
  </Stage>
  <Stage Nom="SQL SERVER 7 Administration" Date="11/06/2001">
    <Stagiaires>
      <Stagiaire Nom="DERIEN Pepito" Age="26"/>
    </Stagiaires>
  </Stage>
  <Stage Nom="DELPHI 5 Perfectionnement" Date="01/06/2001">
    <Stagiaires>
      <Stagiaire Nom="SUSHI Okimi" Age="42"/>
    </Stagiaires>
  </Stage>
</Stages>

IV. Un début à tout

• DOMVendor qui permet de spécifier la librairie responsable de l'implémentation DOM

• XML qui est une liste de chaînes stockant le document XML. A savoir que l'on n'est pas obligé d'affecter une liste de chaîne à la propriété XML, on peut également assigner un nom de fichier à la propriété FileName.
• Active qui lorsqu'elle est à True permet au composant XMLDocument de créer et/ou parcourir l'arborescence des noeuds du document XML respectif. Tout document XML commence par <?xml version="1.0" encoding="UTF-8"?> l'encodage pouvant varier. Le simple fait de passer la propriété Active à true sur une document XML vierge, va ajouter cette ligne descriptive.

V. Créer la structure XML

procedure TForm1.btnCreationClick(Sender: TObject);
var
  stage,stagiaires,stagiaire : IXMLNode;  //Noeuds de référence
begin
  memo1.Clear;
//Création du premier noeud 'stages' et initialisation de DocumentElement
  XMLDoc.DocumentElement := XMLDoc.CreateElement('stages','');

//Création du premier noeud enfant, représentant le premier stage
  stage := XMLDoc.DocumentElement.AddChild('stage');
//Création des attributs de ce stage
  stage.Attributes['nom'] := 'WORD 2000 Initiation';
  stage.Attributes['date'] := '14/06/2001';

//Création du noeud enfant de ce stage : stagaires
  stagiaires := stage.AddChild('stagiaires');
//Création de chaque stagiaire
  stagiaire := stagiaires.AddChild('stagiaire');
  stagiaire.Attributes['nom'] := 'MAGIC Jordan';
  stagiaire.Attributes['age'] := '35';
//2è stagiaire
  stagiaire := stagiaires.AddChild('stagiaire');
  stagiaire.Attributes['nom'] := 'ESSONCHA Jean-Roland';
  stagiaire.Attributes['age'] := '38';

//Stage suivant
  stage := XMLDoc.DocumentElement.AddChild('stage');
//Création des attributs de ce stage
  stage.Attributes['nom'] := 'SQL SERVER 7 Administration';
  stage.Attributes['date'] := '11/06/2001';

//et ainsi de suite
//...à la fin on peut visualiser le résultat ! Simplissimo :-)

  memo1.Lines.Assign(XMLDoc.XML);
end;

• La fonction CreateElement renvoie le noeud de type IXMLNode qui est créé.
• La fonction AddChild retourne également le noeud IXMLNode qui est créé, mais il est crée à partir d'un autre noeud et non du document. Le noeud créé devient enfant du noeud qui a appelé cette fonction.
• La propriété Attributes permet de "mapper" un mot clé et de lui attribuer une valeur. Attributes ici s'applique à un noeud désigné.

  XMLDoc.SaveToFile('stages.xml');

VI. L'expert Liaison de données

function  GetRecipe(Doc: IXMLDocument):  IXMLRecipeType;
function LoadRecipe(const FileName: WideString): IXMLRecipeType;
function NewRecipe: IXMLRecipeType;

...

{ IXMLRecipeType }

IXMLRecipeType = interface(IXMLNode)
  ['{F93E8345-8F0D-472A-B9A3-17F365247A42}']
{ Accesseurs de propriétés }
  function Get_Name: WideString;
  function Get_Description: WideString;
  function Get_Ingredients: IXMLIngredientsType;
  function Get_Instructions: IXMLInstructionsType;
  procedure Set_Name(Value: WideString);
  procedure Set_Description(Value: WideString);
{ Méthodes & propriétés }
  property Name: WideString read Get_Name write Set_Name;
  property Description: WideString read Get_Description write Set_Description;
  property Ingredients: IXMLIngredientsType read Get_Ingredients;
  property Instructions: IXMLInstructionsType read Get_Instructions;
end;

{ IXMLIngredientsType }

IXMLIngredientsType = interface(IXMLNodeCollection)
  ['{BAB79B24-ED85-4141-B3C9-A36729D1FEA8}']
{ Accesseurs de propriétés }
  function Get_Ingredient(Index: Integer): IXMLIngredientType;
{ Méthodes & propriétés }
  function Add: IXMLIngredientType;
  function Insert(const Index: Integer): IXMLIngredientType;
  property Ingredient[Index: Integer]: IXMLIngredientType read Get_Ingredient; default;
end;

...

var
  recette : IXMLRecipeType;
begin
// Initialisons cette variable grâce à la fonction GetRecipe générée par l'expert
  recette := GetRecipe(XMLDoc);

var
  recette : IXMLRecipeType;
  i: integer;
begin
  recette := GetRecipe(XMLDoc);
  for i := 0 to recette.Ingredients.Count - 1
    do memo2.Lines.Add(recette.Ingredients[i].Item);
end;

memo2.Lines.Add(recette.Name);
//...
memo2.Lines.Add(recette.Ingredients[i].Qty[0].Attributes['unit']);

• memo2.Lines.Add(recette.Ingredients[i].Qty.Attributes['unit']); // au lieu de ...
• memo2.Lines.Add(recette.Ingredients[i].Qty[0].Attributes['unit']);

VI. Conclusion

Liste de mes articles :

Communication Inter Process : Les Mailslots - en Delphi

Concepteurs de composants, simplifiez leur installation

Conférence Borland 2000

Conversions de mesures

Création d'un modèle de page personnalisée

Débogage de DLL ISAPI

Gérez les Compteurs Auto-Incrémentés avec InterBase

Gestion des versions par héritage de Form

Initiation à XML et Delphi 6 tout doucement, tout simplement...

Objets Listes, collections en Delphi

Traiter des fichiers de grande taille