Discussion :

[fplanglois]

Bonjour,
Sous Delphi 7, J'essaye de lire un document XML avec TXMLDocument.
J'ai donc posé un TXMLDocument dans mon module.
À chaque initialisation du document, je reçois l'erreur:
Le projet a provoqué une classe d'exception EconvertError, 'Le format '%d' est incorrect ou incompatible avec l'argument.

J'ai tenté d'initialiser la propriété Filename dans l'EDI et d'activer le composant par

Code :

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

MoncomposantXML.Active := True; //ici erreur

ou bien d'affecter cette propriété par programme:

Code :

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

MoncomposantXML.Filename := Chemin_complet_du_fichier_xml; //ici erreur

Je reçois le message dans les deux cas.

J'ai essayé avec plusieurs documents Xml valides (y compris un document XML trouvé dans les exemples de Delphi).

Vu que c'est la toute première étape, je vois que je ne suis pas au bout de mes peines.

Merci d'avance, de m'éclairer.
fp

[Nono40]

C'est très bizarre... J'utilise ce composant sans pb...

As-tu essayé avec un fichier XML ultra Simple :

Code :

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

1
2
3
<?xml version="1.0" encoding="ISO-8859-1"?>
<document>
</document>

[fplanglois]

Bonjour,
J'ai fait un copié-collé de ce petit XML.
Et j'ai le même symptôme.
Merci de me venir en aide.
fp

[fplanglois]

Un élément de réponse. En pompant des sources trouvées ça et là, voilà ce qui marche :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
var
  MonDocumentXml:TXMLDocument;
begin
MonDocumentXml := TXMLDocument.Create(nil);
//Essai := Fichier_defaut_avionics;
MonDocumentXml.LoadFromFile('ExtractFilePath(Application.Exename)'+'\tempo\document.xml');
//ou
//MonDocumentXml.FileName := //'ExtractFilePath(Application.Exename)'+'\tempo\document.xml'; //ça marche également
end;

Ce qui ne marche pas, c'est d'utiliser directement le composant, posé sur le module :
Si j'ai :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
type
  TDB_monModule = class(TDataModule)
    XML_MonDocument: TXMLDocument;
    procedure toto;
    function tata: Boolean;
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  DB_module: TD_monModule

Et que dans une fonction j'ai:

Code :

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

1
2
 
XML_MonDocument.Active := True; //j'ai le message d'erreur ici.

Pourquoi ???

fp

[Nono40]

Bizarre, question à deux centimes ( de Franc ) : si tu poses ton composant sur ta fiche et non ton datamodule, tu as la même erreur ?

[fplanglois]

Merci de vous être penché sur mon cas.
Mais j'ai enfin trouvé.

D'ailleurs je ne l'ai pas dit ici, mais j'avais déjà utilisé TXMLDocument, une fois, sur un autre projet, sans problème.
Et pour mes projets en Delphi 5, j'utilise le composant Microsoft.
En fait c'est le module de traduction (que j'expérimente) de Delphi 7 qui me faisait cette misère.
Après avoir éliminé les causes possibles une à une, j'en suis arrivé à cette conclusion... et c'était bien ça.

J'ai supprimé la langue (anglais US) et ça a remarché. Après réactivation de l'anglais US et compilation des DLL de ressources, les ressources en anglais (boutons des MessageDlg, par exemple étaient mal indexées: Cancel au lieu de NO par exemple).
J'ai repris le fichier le fichier ENU de ressources plus le répertoire ENU que j'avais sauvegardé ailleurs et après recompilation des ressources et du projet tout est rentré dans l'ordre.
Je pense que cette mésaventure pourra être utile à d'autres.

D'où une autre question. Trouve-t-on des fichiers Scripts de Ressource du Module de Traduction déjà tout traduit ?

@+
fp