Discussion :

[jbat]

Bonjour.

Je début en XML. J'ai créée un fichier xml dont voici un exemple ci-dessous mais je n'arrive pas à le parcourir pour le relire. J'ai eu beau chercher sur Internet, je ne comprends pas ce qu'il faut faire.

exemple du fichier xml :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
- <Racine Version="3.4.0.7">
	- <TAssistant m_sNom="Résultats 1" m_sNomTypeAssistant="MP:" m_sDesignationAssistant="Recherche de mouvements de produit" m_iEtapeEnCours="4">
		<TObjetTrSimple m_dIdK="-1" m_sDesignation="" m_sGuid="{4B955976-374E-4B04-93FF-EF414C99A3B0}" /> 
		- <m_slEtapes>
			- <TfrmAssEtpColtodisp>
				<TFrmAssEtp m_bOuvrirJusteCetteEtape="0" m_bObligatoire="-1" m_sTitre="Informations à afficher" m_sCaptionTitre="Informations à afficher" /> 
				- <m_slColToDisp>
					  <TObjetTrSimple m_dIdK="1" m_sDesignation="Id du type produit" m_sGuid="{F92AA57F-AE89-4529-9FF2-9221CBDE2AFF}" /> 
					  <TObjetTrSimple m_dIdK="1" m_sDesignation="Id du pc" m_sGuid="{96DEA02B-2E87-4D8A-9986-3AAD6CB951F1}" /> 
				  </m_slColToDisp>
			</TfrmAssEtpColtodisp>
		</m_slEtapes>
	</TAssistant>
  </Racine>

Et voici comment j'essaye de le lire :

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
20
21
22
procedure TfrmResultats.ChargeruneactivitSymtraCenter1Click(
  Sender: TObject);
    var
        m_XmlDocument : txmlDocument ;
        unass : TAssistantMvtProduitOrdinaire ;
        unNoeud : IXMLNode ;
    begin
        unass := LouerNouvelAssistantMvtProduitOrdinaire();
        m_XmlDocument := TXMLDocument.create(nil);
        with m_XmlDocument do
        begin
            DOMVendor := GetDOMVendor('MSXML');
        end;
        m_XmlDocument.loadfromfile('.\Xml.xml');
//        m_XmlDocument.Active := true ;
        unNoeud := m_XmlDocument.DocumentElement ; <= Crash systématiquement ici ! 8O 
        unass.Load(unNoeud );
        unass.Ouvrir();
        m_XmlDocument.Active := false ;
        m_XmlDocument.Free ;
        m_XmlDocument := nil ;
    end;

Quelqu'un pourrait m'aider ?
Merci d'avance.

[jbat]

Personne ne voit pourquoi ça ne fonctionne pas ?

J'ai beau continuer à chercher, je ne comprends pas...

please, help !