Discussion :

[BuzzLeclaire]

Bonjour,

J'aimerais comprendre la lecture et l'écriture au format XML.

Je pars d'une donnée dans un champs Memo de ce type

Code xml :

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

1
2
<?xml version="1.0" standalone="yes"?>
<docs><datas/></docs>

le but étant d'obtenir ce genre de chose

Code xml :

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

1
2
3
4
5
6
<?xml version="1.0" standalone="yes"?>
<docs><datas>
<doc Tlien="0" unc="C:\xxxxx\truc.txt" name="truc.txt"/>
<doc Tlien="0" unc="C:\xxxxx\andouille.xls" name="andouille.xls"/>
....
</datas></docs>

Tout d'avord j'ai essayé de lire l'imformation, par exemple essayé de récupérer la valeur de unc

Code :

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

1
2
3
4
Noeud := XmlDoc.DocumentElement.ChildNodes['doc'];
 
  if Assigned(Noeud) then
    Showmessage('La valeur de ' + Noeud.NodeName + ' est de : ' + Noeud.Text )

ou j'ai essayer de parcourrir :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
  for I:= 0 to XMLDoc.DocumentElement.ChildNodes.Count - 1 do begin
  Node:= XMLDoc.DocumentElement.ChildNodes[I];
  if Node.NodeType = ntElement then begin
    if Node.NodeName = 'document' then begin
      if Node.HasAttribute('Tlien') then
      begin
        Tlien:= Node.Attributes['Tlien'];
        showmessage(typelien);
      end;
      if not VarIsNull(Node.NodeValue) then
      begin
        doc:= Node.NodeValue;
        showmessage(doc);
      end;
 
    end;
  end;
  end;

Mais que dalle... c'est pas faute de connaitre les TTReeView mais là je comprends rien.

un autre point :
peut-on alimenter un xml sans partir d'un fichier ? (j'ai essayé pas mal de chose mais jamais réussi)
par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  Champ : TStringList;
  i : integer;
begin
  Champ := TStringList.Create;
  Try
    Champ.Add('<?xml version="1.0" standalone="yes"?>');
    Champ.Add('<docs><datas>'+
	      '<doc Tlien="0" unc="C:\xxxxx\truc.txt" name="truc.txt"/>'+
	      '<doc Tlien="0" unc="C:\xxxxx\andouille.xls" name="andouille.xls"/>'+
	      '</datas></docs>');
 
  Champ.SaveToFile('c:\XXXX\essai.xml');
  xmlDoc.LoadFromFile('c:\XXXX\essai.xml');
// ...

Je n'ai pas réussi à alimenter mon xml autrement qu'en passant par un fichier sinon j'ai des messages d'erreur :
j'ai tenté cela parmis plein de chose :

Code :

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

1
2
3
4
5
6
7
// 1
xmlDoc.XML := Champ; // erreur Pas de document actif
// 2
xmlDoc.XML.AddStrings(Champ); // idem
// 3
  for i := 0 to Champ.Count - 1 do
    XMLDoc.XML.Add(Champ.Strings[i]); // idem

Hier soir, j'ai failli exploser mon pc... lol, je me suis vangé sur mon jeux favoris...

Mes intérrogations ?

Comment lire mon fichier et au moins récupérer une valeur ?
Si mon fichier est remplir, comment ajouter une section
<doc Tlien="0" unc="C:\xxxxx\truc.txt" name="truc.txt"/>
à l'intérieur de <datas></datas>
Comment partir d'un champs mémo d'une base donnéespour alimenter directement un XML ?


PS : j'ai évidement lu la FAQ

Merci à vous.

[ShaiLeTroll]

Tu peux utiliser la Propriété XML du TXMLDocument pour utiliser un Stream

Il faut utiliser la propriété Active, avant je crois comme ceci

Code :

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

1
2
3
XML := TXMLDocument.Create(nil);
XML.Active := True;
XML.LoadFromStream(StringStream);

[BuzzLeclaire]

Salut Shail,

Ok je vais essayé cela.

Et pour le reste tu as une idée ?

Merci.

[Whiler]

En général, je fais comme ça...

Code :

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

1
2
3
xmlDoc.active := False;
xmlDoc.XML.Text := Champ.Text;
xmlDoc.active := True;

La ligne 3 pète si le XML est pourri...

[Whiler]

DFM :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
object Form2: TForm2
  Left = 0
  Top = 0
  Caption = 'Form2'
  ClientHeight = 337
  ClientWidth = 635
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object mmo1: TMemo
    Left = 8
    Top = 32
    Width = 457
    Height = 265
    Lines.Strings = (
      '<?xml version="1.0" standalone="yes"?>'
      '<docs><datas/></docs>')
    TabOrder = 0
  end
  object btn1: TButton
    Left = 471
    Top = 30
    Width = 75
    Height = 25
    Caption = 'btn1'
    TabOrder = 1
    OnClick = btn1Click
  end
  object xmldocData: TXMLDocument
    Left = 216
    Top = 40
    DOMVendorDesc = 'MSXML'
  end
end

Code source :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
unit Unit2;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Xml.xmldom, Xml.XMLIntf, Vcl.StdCtrls, Xml.Win.msxmldom, Xml.XMLDoc;
 
type
  TForm2 = class(TForm)
    mmo1: TMemo;
    xmldocData: TXMLDocument;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.btn1Click(Sender: TObject);
var
  data: IXMLNode;
begin
  // Je le remplis avec le contenu du memo
  xmldocData.Active   := False;
  xmldocData.XML.Text := mmo1.Lines.Text;
  xmldocData.Active   := True;
 
  // J'ajoute un noeud
  data := xmldocData.DocumentElement.ChildNodes.FindNode('datas');
  if data <> nil then
  begin
    with data.AddChild('doc') do
    begin
      Attributes['Tlien'] := 0;
      Attributes['unc']   := 'C:\xxxxx\truc.txt';
      Attributes['name']  := 'truc.txt';
    end;
    with data.AddChild('doc') do
    begin
      Attributes['Tlien'] := 0;
      Attributes['unc']   := 'C:\xxxxx\andouille.xls';
      Attributes['name']  := 'andouille.xls';
    end;
 
    // Pour formater...
    mmo1.Lines.Text := Xml.XMLDoc.FormatXMLData(xmldocData.XML.Text);
  end
  else
  begin
    ShowMessage('Pas de <datas>');
  end;
end;
 
end.

Il faudrait aussi ajouter un try catch pour gérer les différentes erreurs possibles...

En sortie, j'obtiens :

Code xml :

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

1
2
3
4
5
6
7
<?xml version="1.0" standalone="yes"?>
<docs>
  <datas>
    <doc Tlien="0" unc="C:\xxxxx\truc.txt" name="truc.txt"/>
    <doc Tlien="0" unc="C:\xxxxx\andouille.xls" name="andouille.xls"/>
  </datas>
</docs>

Sinon, évite d'appeler ton composant : XMLDoc... comme c'est également le nom d'une unité, c'est pas terrible...

[Andnotor]

Tu ne descend pas assez profondément dans l'arborescence.

DocumentElement est le noeud racine, soit <docs> et contient un autre noeud <datas>. Donc:

Code :

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

Noeud := XmlDoc.DocumentElement.ChildNodes['datas'].ChildNodes['doc'];

Cette écriture fonctionne, mais ne renverra que le premier noeud <doc>. Il faut boucler pour les énumérer tous:

Code :

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

1
2
3
with XmlDoc.DocumentElement.ChildNodes['datas'] do
  for i := 0 to ChildNodes.Count -1 do
    ShowMessage(ChildNodes[i].Attributes['unc']);

A noter que ChildNodes accepte un Tag ou un indice
A noter aussi que tous les noeuds sont énumérés, y compris les commentaires (Noeuds de type ntComment, ex. <!-- Commentaire -->). Un petit test supplémentaire n'est pas inutile :

Code :

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

1
2
3
4
with XmlDoc.DocumentElement.ChildNodes['datas'] do
  for i := 0 to ChildNodes.Count -1 do
    if ChildNodes[i].NodeType <> ntComment then
      ShowMessage(ChildNodes[i].Attributes['unc']);

Pour l'écriture, il faut ajouter les noeuds avec AddChild:

Code :

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

1
2
3
4
5
6
  with XmlDoc.DocumentElement.ChildNodes['datas'].AddChild('doc') do
  begin
    Attributes['Tlien'] := 0;
    Attributes['unc']   := 'C:\xxxxx\truc.txt';
    Attributes['name']  := 'truc.txt';
  end;

Attention aussi au fait que les noms des noeuds sont sensibles à la case. Essaye de normaliser tout ça

ps: Data est invariable en anglais

[BuzzLeclaire]

En général, je fais comme ça...

Code :

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

1
2
3
xmlDoc.active := False;
xmlDoc.XML.Text := Champ.Text;
xmlDoc.active := True;

La ligne 3 pète si le XML est pourri...

Salut Whiler,

Effectivement mon erreur est que mon XmlDoc était active !! mdr
ta solution ainsi que celle que j'avais testé fonctionne maintenant... merci

Tu ne descend pas assez profondément dans l'arborescence.

DocumentElement est le noeud racine, soit <docs> et contient un autre noeud <datas>. Donc:

Code :

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

Noeud := XmlDoc.DocumentElement.ChildNodes['datas'].ChildNodes['doc'];

Même en descendant comme cela mon showmessage reste vide. Mais avec la suite j'ai compris...

Code :

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

1
2
3
with XmlDoc.DocumentElement.ChildNodes['datas'] do
  for i := 0 to ChildNodes.Count -1 do
    ShowMessage(ChildNodes[i].Attributes['unc']);

LA cela fonction trés bien j'ai bien les valeurs du noeuds du parent datas donc doc qui apparaissent.. super...

ps: Data est invariable en anglais

Mort de rire... quand j'ai modifié les vrais nodes et valeur j'ai fais à l'arrache mais tu a raison c'est invariable...

Encore merci andnotor je me demande si il y a un truc que tu connais pas ? purée...

Je vais tester la création du node avec ta méthode et celle de Whiler.

PS : Shail, ta proposition nécissite que je créer un TStream je suppose, j'ai utilisé la mienne avec la correction de whiler.

Merci à tous, je reviens avec mes testes de création de noeuds.

[BuzzLeclaire]

Xml 2 le retour vers le futur,

Impeccable que ce soit sur la méthode de whiler ou celle de andnotor ca fonctionne, même quand le noeud est vide.

Le mec qui à inventé le format XML il doit s'alimenté au fouet, ou alors il est devenu fou.

D'ailleur pourquoi avoir inventé ce format ? l'html ne suffisait pas ? en plus ce format est totalement libre donc on recherche a chaque fois le déchiffrage des noeuds ? enfin... question subtentiel vous me direz...

PS : Je vous remercie, je me courcherai moins bête ce soir...

Bye

Mais je l'aurai un jour... je l'aurai...

[ShaiLeTroll]

HTML et XML sont des variantes du SGML

HTML a un défaut, c'est que les navigateurs ont autorisé de plus en plus d'écart de structure et d'interprétation, ce qui en fait un langage peu standardisé qui a être remplacé par XHTML qui part sur une structure strict (ce qui avait été prévu à l'origine d'ailleurs mais non respecté par les utilisateurs)

le XML par contre lui a amené une plus grand rigueur de structure tout en conservant des possibilité d'extension !


le HTML sert à la présentation de document (voir DTD et CSS), le HTML présente les informations pour un utilisateur humain
le XML a le même objectif mais orienté inter-process et permet bcp plus de chose (voir XSLT, DTD, XSD...) car l'on peut étendre ses balises, ce que le HTML ne permet pas !

[BuzzLeclaire]

Merci Shail pour ces précisions.