Discussion :

[bip98]

Bonjour
J'ai un problème.. le voici..

J'ai ce 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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
<?xml version="1.0" encoding="UTF-8"?>
 <kml>
  <Document>
   <name>hollande.kml</name>
   <LookAt>
     <longitude>8.84951614383266</longitude>
     <latitude>54.9296676053168</latitude>
     <altitude>5000</altitude>
     <rang>5000</rang>
     <tilt>0</tilt>
     <altitudeMode>RelativeToGround</altitudeMode>
  </LookAt>
<Style id="route">
 <LineStyle>
   <color>D80000FF</color>
   <width>4</width>
 </LineStyle>
 </Style>
<Placemark>
 <styleUrl>#route</styleUrl>
 <name>VirtualBikePath</name>
 <visibility>1</visibility>
 <LineString>
    <tessellate>1</tessellate>
    <coordinates>8.84951614383266,54.9296676053168,0.0420476804603833
8.84947705966923,54.9297642750836,0 </coordinates>
 </LineString>
</Placemark>
</Document>
</kml>

Mon code en delphi est utilisé pour obtenir le champ <coordinates>

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
 
function TXmlDatas.ReturnPointOnString(FileName  : String {In} ): String;
var
  //Node      : IXMLNode;
  Node : IDOMNode;
 
begin
  //Ouvre le fichier kml
  FXMLDoc.LoadFromFile(FileName);
  //Valide le fichier XML
  FXMLDoc.Active:=true;
 
  //Recherche en Xpath avec Dom.
  Node := (FXMLDoc.DOMDocument as IDOMNodeSelect).SelectNode('//coordinates/text()');
  if Assigned(Node) then
  begin
    //Retourne toutes les coordonnées
    ReturnPointOnString:=Node.nodeValue;
  end;
  FXMLDoc.Active:=False;
end;

Cela fonction parfaitement ! Mais quand je veux changer la balise <kml> en

Code :

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

1
2
 
<kml xmlns="http://earth.google.com/kml/2.0">

Plus rien ne fonction ! Pourquoi ??

[Raylemon]

Tu utilises quoi pour parser ton xml ? MSXML, omniXML, ou le TXMLDocument ?

[Linkin]

J'ai trouvé ça:
http://www.pluralsight.com/blogs/kei.../19/15714.aspx, les commentaires donne une solution pour gérer avec les namespaces, le reste de l'article est une bidouille pour enlever les namespaces, mais ce n'est pas propre.

[bip98]

J'utilise IXMLDocument

Pour la solution d'enlever les namespaces c'est bizard ! A mon avis il doit y avoir une autre solution ! J'ai essayé 2-3 trucs mais rien ne fonctionne !
Sinon je prendrai celle la.. !
mais une autre solution serait la bien venue !

[Aka Guymelef]

Une solution peut-être, d'après ce que j'ai lu, serait d'utiliser un IXMLDOMDocument2 et d'affecter le NameSpace via la méthode setProperty et en lui donnant en premier paramètre "SelectionNamespaces" et en second le nom du NameSpace.

[Raylemon]

Je pencherais plus pour IXMLDOMDocument3, moi, de l'API msxml6.

[Aka Guymelef]

D'après la MSDN c'est disponible depuis la 2 mais bon ce qui est valable pour la 2 et valable pour la 3.

[bip98]

Aie dur !!

J'utilise IXMLDocument, en intergrant la lib MSXML y'a tout le reste qui fonctionne plus du (ce genre la):

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
 
  //Ouvre le fichier kml
  FXMLDoc.LoadFromFile(FileName);
  //Valide le fichier XML
  FXMLDoc.Active:=true;
  //Recherche LineStyle
  Node:=FXMLDoc.ChildNodes['kml'].ChildNodes.Nodes['Document']
               .ChildNodes.Nodes['Style'].ChildNodes.Nodes['LineStyle'];
 
  //Change la couleur et la taille de la ligne directrice
  Node.ChildNodes['color'].Text:=ColorLine;
  Node.ChildNodes['width'].Text:=IntToStr(WithLine);
 
  //Sauvegard le fichier Kml.
  FXMLDoc.SaveToFile(FileName);
  FXMLDoc.Active:=False;

Je voudrais bien pourvoir utilisé IXMLDOMDocument2 mais je devrais retaper des heures de codes ! Vous savez comment je peux contourner cela ?

[Raylemon]

Normalement le code ne devrait pas changer...
Tu as mis quoi dans tes uses ?

Pour utiliser IXMLDOMDocument2 (ou 3), il te faut la dll msxml4, ou 6.
Ensuite tu dois "l'importer" (je ne me souviens plus du terme exact). Delphi va alors te générer un fichier nommé MSXML2_TLB.pas.

Et comme IXMLDOMDocument est une interface, théoriquement ton code ne doit pas être changé

[Linkin]

Il y a une interface IXMLDocument de Delphi que n'est pas la même que celle de Microsoft (dans XmlIntf sur Delphi7):

Code :

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

1
2
3
4
5
6
7
8
 
{$IFDEF MSWINDOWS}
{ MSXML.H defines another IXMLDocument and references the type...
  The compiler must see this before it sees the IXMLDocument
  introduced in this unit - otherwise, references will cause
  ambiguity errors }
(*$HPPEMIT '#include <msxml.h>' *)
{$ENDIF}