Estou fazendo uma “alternativa” por enquanto aqui, até termos uma solução melhor.
Eu consigo pegar o texto do XML pela propriedade:
ACBrReinf1.WebServices.Consultar.RetWS;
Com isso, eu salvo o XML que veio da Consulta usando o componente TXMLDocument, que me ajuda a formatar o arquivo XML.
if ACBrReinf1.Consultar( edt_infoRecEv_NProtocoloEntregaEvento.Field.AsString ) then
begin
s_CaminhoDoArqXML := IncludeTrailingPathDelimiter( ACBrReinf1.Configuracoes.Arquivos.PathSalvar ) + 'Reinf-sit.xml';
XMLDocumentRecebido.Active := False;
XMLDocumentRecebido.XML.Clear;
XMLDocumentRecebido.LoadFromXML( ACBrReinf1.WebServices.Consultar.RetWS );
XMLDocumentRecebido.Active := True;
XMLDocumentRecebido.Version := '1.0';
XMLDocumentRecebido.Encoding := 'UTF-8';
XMLDocumentRecebido.SaveToFile( s_CaminhoDoArqXML );
XMLDocumentRecebido.Active := False;
XMLDocumentRecebido.XML.Clear;
// Segue o jogo...
end;
Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.