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 : 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;
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