Pourquoi, je peux ajouter sans problème le noeud et les enfants mais pas les attributs MAJ et ORIGINE, ce code est à l'origine en VBA, je l'ai converti mais ca marche pas (pour les attributs) j'ai une erreur :
Identificateur non déclaré : 'SetAttribute'
Function Tdmd_Main.F_Ajoute_In_XML(rs : TQuery) : Boolean;
var
onode, child : IXMLDOMNode;
nodeBook : IXMLDOMNode;
i : integer;
begin
try
F_Ajoute_In_XML := True;
//creation d'un nouveau Noeud "XML"
onode := objXMLDoc.createNode('element', 'XML', '');
objXMLDoc.documentElement.appendChild (onode);
//creation des enfants du noeud
For I := 0 To rs.Fields.Count - 1 do
begin
If Not VarIsNull(rs.Fields[I].Value) Then
begin
child := objXMLDoc.createNode('element', rs.Fields[I].FieldName, '');
child.Text := rs.Fields[I].Value;
onode.appendChild (child);
End;
end;//for
nodeBook := objXMLDoc.documentElement.lastChild;
nodeBook.setAttribute 'MAJ', Date;
nodeBook.setAttribute 'ORIGINE', 'SKPADE';
except
raise;
F_Ajoute_In_XML := False;
exit;
end;
end;
|
Merci pour votre aide.
*********************************
Seb
http://www.programmez.org