Discussion :

[gudul]

J'ai le fichier XML suivant

Code :

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

1
2
3
4
5
6
7
8
9
<?xml version="1.0" encoding="iso-8859-1" ?> 
<Capture_Info ControllerAlias="Door2" ControllerName="READER01">
	<VR_Read Id="343" ExternalId="34" Result="OK" CommandTime="2006/01/25_19:39:22" EndTime="2006/01/25_19:39:30">
		<Reader Alias="Door2_READER01" Machine_Name="READER01">
		</Reader>
 		<Reader Alias="Door2_READER02" Machine_Name="READER02">
		</Reader>
	</VR_Read>
</Capture_Info>

Je le passe par l'expert liaison de données XML en cochant répéter pour le VR_Read.

Il me crée mon fichier avec les interfaces et les classes correspondantes.

Je place un XMLDocument, un bouton et un memo et je met le uses qui va bien.
Mon code est

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 TForm1.Button20Click(Sender: TObject);
var
  LCapture: IXMLCapture_InfoType;
  i_VR, i_Read: Integer;
begin
  XMLDocument1.FileName := 'Mon_XML.xml';
 
  LCapture := GetCapture_Info(XMLDocument1);
 
  Memo2.Lines.Clear;
  for i_VR := 0 to LCapture.VR_Read.Count - 1 do
    for i_Read := 0 to LCapture.VR_Read[i_VR].Reader.Count - 1 do
    begin
      Memo2.Lines.Add('Alias: ' + LCapture.VR_Read[i_VR].Reader[i_Read].Alias + ', Machine_Name: ' + LCapture.VR_Read[i_VR].Reader[i_Read].Machine_Name)
    end;
  end;
end;

Lorsque j'essai de compiler, il me met '[' attendu mais '.' trouvé
à la ligne

Code :

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

  for i_VR := 0 to LCapture.VR_Read.Count - 1 do

avec le curseur avant le count.

Comment faire pour que çà fonctionne ?

[kirua2150]

salut,

je ne connais pas trop les composants que tu utilise mais si "LCapture.VR_Read" est un tableau tu peux remplacer ta première boucle par :

Code :

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

1
2
 
 for i_VR := 0 to length(LCapture.VR_Read)-1 do

[gudul]

Je n'utilise aucun composant spécial.

"LCapture.VR_Read" est l'interface créé par l'expert liaison de données XML
(Fichier | Nouveau | Autre... | Onglet Nouveau | Liaison de données XML)

Code :

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

    property VR_Read[Index: Integer]: IXMLVR_ReadType read Get_VR_Read; default;

[rotule]

Utilise ChildNodes pour parcourir les enfants d'un noeud :

Code :

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

1
2
3
4
5
6
7
8
  for i_VR := 0 to LCapture.ChildNodes.Count-1 do
  begin
    for i_Read := 0 to LCapture.VR_Read[i_VR].ChildNodes.Count - 1 do
    begin
      Memo2.Lines.Add('Alias: ' + LCapture.VR_Read[i_VR].Reader[i_Read].Alias + ', Machine_Name: ' + LCapture.VR_Read[i_VR].Reader[i_Read].Machine_Name)
    end;
  end;