créer un noeuds avec des paramétres [Résolu]

[Toxine77]

je voudrais créer un noueds qui comporterais des paramétres, comment pourrais je faire ???

Exemple :

Code :

Calendrier Name="SelMonth" MonthName="janvier" Month="01" Year="2003">

Merci a vous pour votre reponse

[RDM]

avec XMLCursor:

Code :

1
2
3
4
5
6
7
8
9
var
  Cursor, Calendrier: IXMLCursor
begin
  // ...
  Calendrier := Cursor.AppendChild('Calendrier');
  Calendrier.SetAttribute('Name', 'SelMonth');
  Calendrier.SetAttribute('MonthName', 'janvier');
  Calendrier.SetAttribute('Month', '01');
  Calendrier.SetAttribute('Year', '2003');

[Toxine77]

Je suis dans une procedure de type Before XMLGRAM et ma question conciste a savoir en quoi je dois declaréer SetAttribute ???

Code :

1
2
procedure TxmSupportTechnique.MonthPlanningBeforeXMLGram(XMLGram: IXMLGram;
  InputDoc, OutputDoc: IXMLCursor; var Skip: Boolean);

[RDM]

SetAttribute est une méthode de XMLCursor donc dans un beforeXMLGram, on peut faire:

Code :

OutputDoc.SetAttribute('Name', 'SelMonth');

[Toxine77]

Je ne sais pas si mon code est bon mais si c la cas alors je ne peut pas compiler mon projet car il me dis que SetAttribute n'est pas déclarer

Ou params est de typeIXMLCursor

Code :

var Params : IXMLCursor;

Code :

1
2
3
4
5
6
7
Params:=OutputDoc.Select('/document');
Params:=Params.AppendChild('CellS','');
Params.SetAttribute('Name', 'SelMonth');
Params.SetAttribute('MonthName', 'janvier');
Params.SetAttribute('Month', '01');
Params.SetAttribute('Year', '2003');}
Params:=Params.AppendChild('Cell','');

et j'ai tenter aussi

Code :

1
2
3
4
5
6
7
8
Params:=OutputDoc.Select('/document');
Params:=Params.AppendChild('CellS','');
OutputDoc.SetAttribute('Name', 'SelMonth');
OutputDoc.SetAttribute('Name', 'SelMonth');
OutputDoc.SetAttribute('MonthName', 'janvier');
OutputDoc.SetAttribute('Month', '01');
OutputDoc.SetAttribute('Year', '2003');}
Params:=Params.AppendChild('Cell','');

[RDM]

c'est SetAttributeValue
http://xmlrad.com/Manual/Appendix12/index.htm#XMLCursor