Discussion :

[jeepibmx]

Bonjour,

je possède delphi 7 et j'aimerais lire un fichier dont la structure est la suivante :

Code xml :

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

1
2
3
4
5
6
7
8
9
 
<root>
	<mail>
		<row>
			<IdMail>1</IdMail>
			<Corps>Bonjour</Corps>
		</row>
	</mail>
</root>

J'ai fais des recherche sur votre site et j'ai lu la faq mais j'ai toujours des erreurs. Avez vous un bout de code simple et efficace à me proposer.

J'aimerais pour commencer, être capable de seulement lire le fichier et d'en retirer la valeur de : <Corps>

Merci

[jeepibmx]

Bon j'ai enfin trouver comment faire pour lire ce que contient mon champ dans le XML.

Maintenant, savez vous comment faire pour "updater" ce champ ?

merci

[Droïde Système7]

Je ne sais pas si j'ai mieux compris que mes autres camarades, mais je te propose ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to Memo1.Lines.Count - 1 do
  begin
    if Pos('<Corps>', Memo1.Lines[i]) > 0 then
    begin
      beep;
      Memo1.Lines[i] := '<Corps>Vive le Forum Developpez.com !</Corps>'; 
    end;
  end;
end;

C'est basé sur un principe des plus basiques sans TStringList ; mais le résultat est là.

.

[jeepibmx]

pourquoi utilisez vous un Memo ?

[Droïde Système7]

pourquoi utilisez vous un Memo ?

Je disais plus haut :

C'est basé sur un principe [...]

[Linkin]

Quel est le code pour lire?

[Rayek]

Tu peux utiliser cette QR de la
Puis quand tu as le nœud, tu modifies sa valeur et tu sauvegardes le tout.

[jeepibmx]

oui je suis capable de lire la valeur

je suis incapable de la modifier et d'enregistrer

[nostroyo]

Moi pour traiter des fichiers XML, j'utilise TJvSimpleXML de la lib jedi!

Cette classe te permets de lire et de modifier les valeurs des noeuds et des données.

[jeepibmx]

Aurais tu un exemple svp ?

Cette lib est elle intégré dans delphi 7 ?

[ShaiLeTroll]

Cherche un peu ... http://homepages.borland.com/jedi/jvcl/ ... sinon le TXMLDocument fonctionne très bien (propriété Document, Nodes, ChildNodes, Attributes, Count, ....) , propose nous déjà un bout de code inspiré de l'aide ... et des nombreux sujets du forum, et on pourra aider à débugger si nécessaire ...

[jeepibmx]

Pour l'instant je ne fais que lire, j'essai de modifier ce que contient la balise <Email_Corps>

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
begin
  DomDoc := CoDOMDocument.Create;
  with DomDoc do begin
    async := false;
    if load('C:\test.xml') then begin
       nodelist := getElementsByTagName('Email_Corps');
 
       //modifier la valeur de Email_Corps ????
 
    end;
  end;
end;

[ShaiLeTroll]

"Email_Corps" est une balise, as-tu au moins chercher, les mots clés que j'ai fourni ?

Code :

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

1
2
3
4
5
6
7
8
...
    nodelist := getElementsByTagName('Email_Corps');
    for K := 0 to nodeList.length - 1 do
    begin
      nodeList[K].nodeValue := 'Nouvelle Valeur';
      nodeList[K].Attributes['toto'].Value := 'Salut';
      nodeList[K].ChildNodes[0]...
    end;

[jeepibmx]

A++

merci beaucoup !