1

Estou tentando recuperar os dados do XML mas nao consigo , o TXMLDocument esta sendo criado dinamicamente e provavelmente esta faltando alguma configuração, pois quando eu estou usando ele visualmente no projeto consigo extrair os dados.

function TNFSe.getNumeroRPS(aCodCid, aCpfCnpjPrestador, aInscPrestador, aSerie:           string):   Integer;
    var EnviarRPS : LoteRps;
    sXML      : WideString;
    XMLDoc    : TXMLDocument;
    HTTR      : THTTPRIO;
    ANode     : IXMLNode;
   sNroUltimoRps,sArqEnvio,sRetorno : string ;
begin
try
  HTTR               := THTTPRIO.Create(nil);
  HTTR.URL           := URL;
  EnviarRPS          := HTTR as LoteRps;
  //busca o xml de envio
  sXML :=         '<?xml version="1.0" encoding="UTF-8"?>  ';
  sXML := sXML  + '<ns1:ConsultaSeqRps    xsi:schemaLocation="http://localhost:8080/WsNFe2/lote   http://localhost:8080/WsNFe2/xsd/ConsultaSeqRps.xsd" ';
  sXML := sXML  + 'xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"    xmlns:tipos="http://localhost:8080/WsNFe2/tp" xmlns:ns1="http://localhost:8080/WsNFe2/lote">';
  sXML := sXML  + '<Cabecalho> ';
  sXML := sXML  + '<CodCid>'+ aCodCid +'</CodCid> ';
  sXML := sXML  + '<IMPrestador>'+aInscPrestador +'</IMPrestador> ';
  sXML := sXML  + '<CPFCNPJRemetente>'+aCpfCnpjPrestador+'</CPFCNPJRemetente> ';
  sXML := sXML  + '<SeriePrestacao>'+aSerie+'</SeriePrestacao> ';
  sXML := sXML  + '<Versao>1</Versao> ';
  sXML := sXML  + '</Cabecalho> ';
  sXML := sXML  + '</ns1:ConsultaSeqRps> ';

  //xml de envio
  FXMLEnvio  := sXML;

  //recupera o xml de retorno
  FXMLRetorno := EnviarRPS.consultarSequencialRps(sXML);

  XMLDoc             := TXMLDocument.Create(nil);
  XMLDoc.LoadFromXML(FXMLRetorno) ;
  XMLDoc.Active:=True;

  //aqui varias tentativas de pegar os valores constante dentro do XML de retorno
  sNroUltimoRps :=   XMLDoc.DocumentElement.ChildNodes.First.ChildNodes.FindNode('NroUltimoRps').Text ;
  sNroUltimoRps := XMLDoc.DocumentElement.ChildNodes.FindNode('NroUltimoRps').Text;
  sNroUltimoRps := XMLDoc.DocumentElement.ChildNodes['NroUltimoRps'].text;

  //carrega as propriedades de retorno nas variaveis  
  FNroUltimoRps := StrToInt(sNroUltimoRps);
  FNroProximoRps := FNroUltimoRps + 1 ;
finally
  FreeAndNil(HTTR);
  FreeAndNil(XMLDoc);
end;
end;

1 Resposta 1

0

No parâmetro do método Create do TXMLDocument você não pode passar Nil, deve passsar algum objeto TComponent. Você pode utilizar o Application , assim:

XMLDoc := TXMLDocument.Create(Application);

2
  • Perfeito Muito Obrigado... Valeu
    – Ailton
    Commented 14/07/2014 às 12:22
  • De nada... Estamos aí ;)
    – TheWesDias
    Commented 14/07/2014 às 12:25

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .