Ver Mensaje Individual
  #1  
Antiguo 09-01-2020
cocute cocute is offline
Miembro
 
Registrado: nov 2008
Posts: 403
Reputación: 16
cocute Va por buen camino
Leer valores XML

Hola han cambiado el formato del xml que necesito leer y no doy como leerlo:
Cita:
<?xml version="1.0" encoding="ISO-8859-1"?>
<observations xmlns="">
<observations>
<observations>
<stationID>IALMUDIDI</stationID>
<obsTimeUtc>2020-01-09T09:40:24Z</obsTimeUtc>
<obsTimeLocal>2020-01-09 10:40:24</obsTimeLocal>
<neighborhood>Abalate</neighborhood>
<softwareType>EasyWeatherV1.4.5</softwareType>
<country>ES</country>
<solarRadiation>91.13</solarRadiation>
<lon>-0.58356375</lon>
<epoch>1578562824</epoch>
<lat>42.04382324</lat>
<uv>1</uv>
<winddir>213</winddir>
<humidity>99</humidity>
<qcStatus>-1</qcStatus>
<metric>
<temp>-0.3888888888888885</temp>
<heatIndex>-0.3888888888888885</heatIndex>
<dewpt>-0.6111111111111119</dewpt>
<windChill>-0.3888888888888885</windChill>
<windSpeed>0</windSpeed>
<windGust>0</windGust>
<pressure>1020.522068496</pressure>
<precipRate>0</precipRate>
<precipTotal>0</precipTotal>
<elev>437.08320000000003</elev>
</metric>
</observations>
</observations>
</observations>
Alguien me puede decir como leo por ejemlo el valor neighborhood y el valor temp ?

tengo algo así pero se me ha olvidado como me muevo por los distintos nodos y demás y no doy
Código Delphi [-]

 try

XmlContent := GetContent('enlace del xml')
  except
    on E: Exception do
    begin
      Exit;
    end;
  end;

  if (not XmlContent.IsEmpty()) then
  begin
    XMLDoc.LoadFromXML(XmlContent);


begin

 StartItemNode := XMLDoc.DocumentElement.ChildNodes.FindNode('observations');
 label3.Text:=StartItemNode.childNodes['neighborhood'].Text;


 StartItemNode := XMLDoc.DocumentElement.ChildNodes.FindNode('metric');
  StartItemNode := XMLDoc.DocumentElement.ChildNodes.FindNode('temp') ;
 label1.Text:=  StartItemNode.Text+'ºC';



muuuchas gracias
Responder Con Cita