IXMLNode, XmlDoc non déclaré ?!

Version imprimable

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:

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

15/06/2006, 16h15
yosthegost

Tu utilise quel version de delphi?

Je suis sur que sur Delphi 7 il y a dans l'onglet Internet un composant qui s'appel XML et c'est sa qui te manque, ajooute le dans ta Form
15/06/2006, 16h17
LeCaméléon

Delphi 6 entreprise. Utilisant conjointement XMLRAD et Delphi, mon code se trouve un XMLComponent. Je sais pas si ca peu t'aider ...
NB
15/06/2006, 16h22
yosthegost

Je pense que tu as XMLDocument dans l'onglet Internet jete un coup d'oeil
15/06/2006, 16h24
yosthegost

Une fois que tu aurra mis XMLDocument, renomme le en XMLDoc
15/06/2006, 16h26
LeCaméléon

Non je n'ai que 2 onglets standarts et XML, selon l'utilisation que nous avons de Delphi comme écouter du flux généré via XMLRAD, d'où mon code qui se trouve dans un XMLComponent ...
NB
15/06/2006, 16h29
yosthegost

C'est pas possible que tu ai seulement 2 onglets, tu as standard, supplement, Win 32, System, Etc..

Tu ne les a pas?
15/06/2006, 16h31
yosthegost

Sinon va faire un tour du coté de http://sjames.developpez.com/xml/#LIII

pb contouré :

Code:

1
2
3
4
5
6
7
fileCursor := TXMLCursor.Create() ;
fileCursor.LoadXML( '<A></A>' ) ;
fileCursor.SetValue(B,var);
ProfileDir := var2;
FileName := XMLCollection.ScanReplaceParams(ProfileDir);
FileName := ConcatDir(FileName, Context.Values['titi'] + 'test.xml', False);
fileCursor.Save(FileName);

15/06/2006, 16h48
LeCaméléon

si si je t'assure, j'ai que 2 onglets ... pourquoi en avoir plus si on a pas besoin de plus :-) (c pas moi qui ai installé mon poste). Enfin voilà, l'écriture fonctionne, c le principal !
Merci quand même d'être venu à ma rescousse :aie: