Discussion :

[john anderta]

Bonjour,
j'ai une procédure qui appelle une autre procédure pour lire un fichier xml
celle-ci liste un répertoire :

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
procedure TClass_E_S.TrouverInfoContenu();
Var Chemin : String;
    Info   : TSearchRec;
    n      : Integer;
begin
  //Pour être sur que la barre oblique finisse le nom du chemin
  Chemin := IncludeTrailingPathDelimiter(NomDossier);
 
  //Recherche de la première entrée du répertoire
  n := FindFirst(Chemin+'*.xml',faAnyFile,Info);
    While n = 0 do
      begin
        LireFichierContenu(NomDossier + Info.Name);
        n := FindNext(Info);
      end;
  FindClose(Info);
end;

celle-ci cherche les informations sur le fichier

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
procedure TClass_E_S.LireFichierContenu(Fichier: string);
var id, titre, text : IXMLDOMNode;
    idStr, titreStr, textStr: string;
    DOMDoc : IXMLDomDocument;
begin
  DOmDoc := CoDOMDocument.Create;
  DOmDoc.async := false; //Permet de charger un document XML en mode synchrone
  if DOmDoc.load(Fichier) then begin
    ShowMessage('Fichier chargé');
  end
  else begin
    ShowMessage('Impossible de charger le fichier :' +
                #13#10 +
                NomDossier);
    end;

fichier = chemin absolu du chemin fichier f:/etc/fichier.xml;
Le problème est que DOmdoc.load(fichier) ne fonctionne pas, au lieu d'exécuter le if, ça passe au else,
est-ce qu'une personne saurait d'ou cela vient? Merci pour votre aide...

[john anderta]

Désolé, ça ne vient pas du code, ça vient du fichier xml qui est :

Code xml :

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

1
2
3
4
5
6
7
8
9
<?xml version="1.0"?>
 
<itemcontenu>
	<item>
		<id>0001</id>
		<titre>Le phare d'Alexandrie</titre>
		<contenu>Le phare d'Alexandrie fut considéré comme la 		dernière des sept merveilles du monde antique et a servi 		de guide aux marins pendant près de dix-sept siècles (du 		IIIe siècle av. J.-C. au XIVe siècle). Sa construction 		aurait débuté vers -297 (la date exacte est inconnue) et 		duré une quinzaine d'années. Les travaux sont initiés par 		Ptolémée Ier mais celui-ci meurt avant la fin du chantier 		qui est achevé sous le règne de son fils Ptolémée II.			</contenu>
	</item>
</itemcontenu>

nom du fichier : ItemContenu1Copie.xml
Si quelqu'un aurait une idée
Si je mets à l'intérieur des balises des trucs du genre <id>buhu</id> etc... ça fonctionne sinon c'est la cata...

[john anderta]

problème résolu, merci.

[john anderta]

il manquait seulement :

Code XML :

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

<?xml version="1.0" encoding="ISO-8859-2"?>

au début du fichier.