Fórum Como extrair um XML de WebBrowser #10168

Olá meu caro, estamos preparando um exemplo.

Peço que aguarde um pouco.

Att,

Wesley Y

Olá meu amigo,
   Acho que não entendi muito bem, você quer extrair o conteúdo do XML do brownser ? Mas qual é a fonte de dados do XML ? QUal a URL que você esta acessando, é um WEBSERVICE ? Se for não é desta forma que você esta pensando não.


Att,

Wesley Y

Boa tarde! Wesley   Tenho um arquivo xml gravado em c:\consulta.xml como segue:   <?xml version="1.0"?>
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:hsb="http://www.EMPRESASA.com.br/EMPRESASAMGAMensageria/">
 <soapenv:Header/>
 <soapenv:Body>
  <hsb:consultarInforMGAoesCobrancaResponse>
   <dadosCliente>
    <indicadorFuncionarioEMPRESASA>S</indicadorFuncionarioEMPRESASA>
    <indicadorBloqueioJudicial>S</indicadorBloqueioJudicial>
    <indicadorGrupoEconomico>S</indicadorGrupoEconomico>
    <indicadorGradVencimento>S</indicadorGradVencimento>
   </dadosCliente>
   <dadosContrato>
    <nrPagina>1</nrPagina>
    <indicadorUltimaPagina>S</indicadorUltimaPagina>
    <contratos>
     <siglaAplicativo>COB</siglaAplicativo>
     <nrContrato>99999999999</nrContrato>
     <qtdeDiasAtraso>0</qtdeDiasAtraso>
     <bduUnidadeOperadora>5214896</bduUnidadeOperadora>
     <dataVencimento>2009-08-08</dataVencimento>
     <codigoProduto>14528745968</codigoProduto>
     <sitCobranca>55</sitCobranca>
     <saldoAtualizado>150.66</saldoAtualizado>
     <saldoNegociavel>200.00</saldoNegociavel>
     <saldoNaoNegociavel>201.10</saldoNaoNegociavel>
     <valorLimiteCredito>120.11</valorLimiteCredito>
     <dataVencimentoLimiteCredito>2009-10-10</dataVencimentoLimiteCredito>
     <qtdeParcelasEmAtraso>0</qtdeParcelasEmAtraso>
     <qtdeParcelasPagas>0</qtdeParcelasPagas>
     <qtdeParcelasAVencer>1</qtdeParcelasAVencer>
     <nomeAssessoriaSYS>Assessoria X</nomeAssessoriaSYS>
     <dddAssessoriaSYS>41</dddAssessoriaSYS>
     <telAssessoriaSYS>32345678</telAssessoriaSYS>
     <nomeCredenciadoJsg>Credenciado X</nomeCredenciadoJsg>
     <dddCredenciadoJsg>41</dddCredenciadoJsg>
     <telCredenciadoJsg>32346666</telCredenciadoJsg>
     <indicadorElegibilidadeMGA>S</indicadorElegibilidadeMGA>
     <indicadorAcordoAndamento>S</indicadorAcordoAndamento>
     <parcelas>
      <nossoNumero>14588965874</nossoNumero>
      <dataVencimento>2010-05-01</dataVencimento>
      <valorOrigem>200.00</valorOrigem>
      <valorAtualizado>200.00</valorAtualizado>
     </parcelas>
    </contratos>
   </dadosContrato>
   <mensagemRetorno>
    <returnCode>0</returnCode>
    <reasonCode>0</reasonCode>
    <mensagem>OPERAÇÃO REALIZADA COM SUCESSO</mensagem>
   </mensagemRetorno>
  </hsb:consultarInforMGAoesCobrancaResponse>
 </soapenv:Body>
</soapenv:Envelope>
  Como faço para ler esse arquivo pelo delphi e colocar os campos em edit.text   estou tentando da seguinte forma:   procedure TFrmPAcesso.LerClick(Sender: TObject);
var vXMLDoc: TXMLDocument;
    NodeRec: IXMLNode;
    a,b : WideString;
begin
  vXMLDoc := TXMLDocument.Create(self);
  vXMLDoc.LoadFromFile('C:\consulta.xml'); //Le Arquivo XML');
  // Lendo os campos da tag  NodeRec := vXMLDoc.DocumentElement.ChildNodes.FindNode('dadosCliente');
  // Lendo os campos da tag 
  a := NodeRec.ChildNodes['indicadorFuncionarioEMPRESASA].text;     
  b := NodeRec.ChildNodes['indicadorBloqueioJudicial'].text;   Edit2.Text:=a;
  Edit3.Text:=b;
MAS DA ERRO...   HELP...   Henrique 11 67253401        

Olá meu amigo, acho que o exemplo que tenho para você vai te ajudar bastante. De uma olhada no link abaixo.

  www.rwsolution.com.br/Chamado XML.rar


OBS : Teu XML, não esta funcionando não, eu mandei um meu de exemplo, teste com o meu e reveja o teu XML.

Um abraço

Wesley Y

Olá amigo,
  O exemplo lhe ajudou ? podemos fechar o chamado ? Existe alguma dúvida ?

Abraço

Wesley Y