XML Okuma İşlemi konusunda

[adelphiforumz]

S.A

Elimde bir Web servisten dönen xml string var bu stringin içerisindeki istediğim bölümleri nasıl okuyabilirim
amacım "durum" içindeki "code" 500 ise "sonuc" taki "sdegeri" alıp kullanmak istiyorum

Teşekkürler

<?xml version="1.0" encoding="UTF-8"?>
<response>
<durum>
<code>500</code>
<message>Tamam</message>
</durum>
<sonuc>
<scode>500</scode>
<sdeger>45</sdeger>
</sonuc>
</response>

[muratmutlu]

Kod: Tümünü seç

uses XMLDoc;

procedure TForm1.Button1Click(Sender: TObject);
var
  S, Deger: String;
  Dokuman: TXMLDocument;
begin
  S := 'Burası XML den gelen string';

  try
    Dokuman := TXMLDocument.Create(Self);
    try
      Dokuman.LoadFromXML(S);;
      Dokuman.Active := True;
      if Dokuman.DocumentElement.ChildNodes.FindNode('durum').ChildNodes.FindNode('code').NodeValue = '500'
        then Deger := Dokuman.DocumentElement.ChildNodes.FindNode('sonuc').ChildNodes.FindNode('sdeger').NodeValue
        else Deger := '';
    except
    end;
  finally
    Dokuman.Free;
  end;

  ShowMessage(Deger);
end;