4

私は 2 つの XML ファイルを持っています。最初はこれで問題なく動作します。

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<ns3:ConsultarSituacaoLoteRpsResposta xmlns:ns2="http://www.ginfes.com.br/tipos_v03.xsd" xmlns:ns3="http://www.ginfes.com.br/servico_consultar_situacao_lote_rps_resposta_v03.xsd">
  <ListaMensagemRetorno>
    <ns2:MensagemRetorno>
      <ns2:Codigo>E172</ns2:Codigo>
    </ns2:MensagemRetorno>
  </ListaMensagemRetorno>
</ns3:ConsultarSituacaoLoteRpsResposta>

私がそれを読むために使用しているコードは次のようなものです：

MyNode := Doc.DocumentElement.ChildNodes.First.ChildNodes.FindNode('MensagemRetorno');
MyValue := MyNode.ChildValues['Codigo'];

問題は、2 番目の XML があることです。

<?xml version="1.0" encoding="utf-8"?>
<ConsultarSituacaoLoteRpsResposta xmlns="http://www.issnetonline.com.br/webserviceabrasf/vsd/servico_consultar_situacao_lote_rps_resposta.xsd">
  <ListaMensagemRetorno>
    <MensagemRetorno>
        <Codigo xmlns="http://www.issnetonline.com.br/webserviceabrasf/vsd/tipos_complexos.xsd">E156</Codigo>
    </MensagemRetorno>
  </ListaMensagemRetorno>
</ConsultarSituacaoLoteRpsResposta>

この XML には「Codigo」ノードに名前空間があるため、コードはこのノードを見つけられないことに注意してください。

この 2 番目の XML から "Codigo" 値を読み取る唯一の方法は、次のようなものでした。

for I := 0 to MyNode.ChildNodes.Count -1 do
begin
  ChildNode := RetornoNode.ChildNodes[I];
  if ChildNode.NodeName = 'Codigo' then
    Codigo := ChildNode.NodeValue;
end;

しかし、最初のコードが 2 番目の XML で機能しない理由がまだわからなかったので、これを行うにはもっと良い方法があるはずだと思います。

誰でも私のためにそれを明確にしてもらえますか?

4

1 に答える 1

6

これはChildValuesプロパティの制限のようです

これらの代替のいずれかを使用して値を返すことができます

 MyNode := Doc.DocumentElement.ChildNodes.First.ChildNodes.FindNode('MensagemRetorno');
 MyValue :=MyNode.ChildNodes.First.Text;

またはオーバーロードされたバージョンのFindNodeメソッドを使用する

 MyNode := Doc.DocumentElement.ChildNodes.First.ChildNodes.FindNode('MensagemRetorno');
 MyValue:= MyNode.ChildNodes.FindNode('Codigo','http://www.issnetonline.com.br/webserviceabrasf/vsd/tipos_complexos.xsd').Text;
于 2012-05-24T14:44:13.857 に答える