Discussion :

[nikhil]

ça fait un moment que je butte sur ce problème alors je me décide à faire appel à votre aide.
Je n'arrive pas à travailler avec un TXMLDocument que je déclare en local dans une procédure. Il me sort toujours un erreur d'exécution. Il fallait donc à chaque fois que je déclare un document XML sur la form pour que ça marche. Mais la, je réalise une application console, alors je ne sais pas comment faire, j'ai essayé ça après plusieurs recherche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure tache;
var
  ToDo : IXMLDocument;
begin
  ToDo := TXMLDocument.Create(nil);
  ToDo.LoadFromFile('D:\fic_pas\ToDo.xml');
  ToDo.Active := true;
end;

Mais ce code plante sur le loadFromFile, ou sur le active:=true si je le met en premier

l'erreur provoquée : 'Classe d'exception EOlsysError avec le message CoInitialize n'a pas été appelé'

alors merci pour votre aide

[MD Software]

Ton code fonctionne bien, je l'ai testé, il n'y a pas de pb.

A priori le pb vient du document xml, il doit être invalide ou corrompu.

[MD Software]

En même temps si tu dis que ça plante sur le active quand tu le mets en premier, ça n'a rien à voir avec le doc. Etrange.

Tu as quelle version de Delphi ?
Au cas où, met un owner dans le create.

[nikhil]

je viens de vérifier le fichier XML et j'en ai testé un autre et ça ne fonctionne toujours pas.
En plus, ça ne viens pas de la puisque ça plante même quand je met le active:=true avant le loadfromfile.


Je ne comprend vraiment pas
Pour info, je suis sous delphi 7 entreprise

[MD Software]

Au cas où, crée un nouveau projet et teste juste ta fonction (c'est ce que j'ai fait).

[Castagnems]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tonXMLDocument := tXMLDocument.Create(application) ;

devrait résoudre ton problème !

Bug from delphi ! ;-)

[nikhil]

ça marche quand je crée un nouveau projet mais pas dans une application console.....

[cpdump]

Le message d'erreur est clair l'API windows CoInitialize (initialisation des objets COM) n'a pas été appelé. Je pense que cette routine n'est appelé qu'en mode graphique (dans les routines VCL) et pas en mode console.

Essai d'appeler CoInitialize, pour plus d'info le MSDN ou google.

[blinkseb]

J'ai eu le même problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 XML := TXMLDocument.Create(nil);

ne marche pas, il faut obligatoirement passé un autre argument que nil.

J'utilise la fonction LoadXMLDocument et tout marche !

[MD Software]

En effet, ça marche pas en mode console, des initialisations doivent sûrement être nécessaires.

Essayer peut-être de trouver un autre composant.

[nikhil]

Merci à tous, et plus particulièrement à cpdump.
Il fallait en fait faire appel à CoInitialize manuellement en incluant les librairies Windows et ActiveX :

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
uses
  SysUtils,
  xmldom,
  XMLIntf,
  msxmldom,
  XMLDoc,
  Windows,
  ActiveX;
 
procedure tache;
var
  ToDo : IXMLDocument;
begin
  CoInitialize(nil);  
  ToDo := TXMLDocument.Create(nil);
  ToDo.LoadFromFile('D:\fic_pas\ToDo.xml');
  ToDo.Active := true;
 
end;

[cpdump]

En revanche, il faut peut être faire un CoUninitialize (je ne suis pas sûr du nom de la fonction) à la sortie du programme.