Bonjour, après une longue absence, j'ai décidé de remettre mon article sur msxml un peu à jour (et surtout à la version msxml 6...)
Je re-teste toutes mes fonctions, et chôse bizarre, je n'arrive plus à charger un fichier xml ! Pourtant j'utilise exactement la même méthode que dans ce que j'avais écris auparavant !!
Je ne pense pas être rouillé à ce point, mais pas moyen de trouver l'erreur si il y a...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 procedure TForm1.btnLoadClick(Sender: TObject); var domDoc : IXMLDOMDocument3; //On utilisera l'interface 3 begin domDoc := CoDOMDocument60.Create; //création du parser DOM with domDoc do begin async := False; //mode synchrone if load('adresses.xml') then begin xmlIn.Lines.Add(domDoc.xml); //on affiche le xml xmlOut.Lines.Append(documentElement.nodeName); //on affiche le noeud racine du document end; end; end;
J'utilise MSXML2_TLB, généré par delphi à partir de la dll msxml6
Partager