Bonjour,
Config : D6Ent, XMLRAD ...
Mon pb, je voudrais écrire un fichier XML tout simple. J'ai tout d'abord rajouté dans mes uses XMLIntf car sinon IXMLNode était inconnu, et là je bute sur un autre pb : XmlDoc non déclaré .. que dois-je faire ? Merci
A bientot
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 procedure TTools.Ajax( XMLInstruction: IXMLInstruction; InputDoc, OutputDoc, Input, Output: IXMLCursor; var Skip: Boolean); var view : WideString; val : WideString; dir : string; A,B: IXMLNode; begin showmessage('allo ya qqun ?'); dir := Context.GetValue('DIR'); view := Context.GetValue('view'); Sysutils.DeleteFile(dir); XmlDoc.DocumentElement := XmlDoc.CreateElement('A',''); //création de la racine; A:= XmlDoc.DocumentElement.AddChild('B'); //création du noeud ENABLEDDB B.NodeValue := view; //valeur du noeud XmlDoc.SaveToFile(dir); XmlDoc.Free; end; end;
NB
Partager