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

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;
A bientot

NB