Impossible de charger un xml avec msxml
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 !!
Code:
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; |
Je ne pense pas être rouillé à ce point, mais pas moyen de trouver l'erreur si il y a...
J'utilise MSXML2_TLB, généré par delphi à partir de la dll msxml6
