rlind

Boa Tarde.
Consegui resolver.
Esqueci de  usar StrMD5 no password.
Obrigado pelo retorno.
 
 

Bom dia, consegui usando outro  componente :
Response := TStringStream.Create(''); HTTP_Emitir := TIdHTTP.Create(nil); if not DirectoryExists(PAnsiChar(pPastaRetorno)) then if not CreateDir(PAnsiChar(pPastaRetorno)) then ForceDirectories(PAnsiChar(pPastaRetorno)); ArquivoRetorno := PAnsiChar(pPastaRetorno) + ExtractFileName(ArquivoRetorno); HTTP_Emitir.Request.CustomHeaders.FoldLines := False; HTTP_Emitir.Request.CustomHeaders.Add('Authorization: Bearer ' + PAnsiChar(pToken)); HTTP_Emitir.Request.CharSet := ''; HTTP_Emitir.Request.ContentType := 'application/xml'; HTTP_Emitir.Request.ContentEncoding := 'raw'; try HTTP_Emitir.Post(sLinkEmitir, PAnsiChar(pArquivoXML), Response); except on E: EIdHTTPProtocolException do begin iPos := Pos('<message>', E.ErrorMessage); if iPos > 0 then sMsgErro := Copy(E.ErrorMessage, iPos + 9, 200); sMsgErro := StringReplace(sMsgErro, '</message>', '', [rfReplaceAll]); sMsgErro := StringReplace(sMsgErro, '</xmlNfpse>', '', [rfReplaceAll]); MessageDlg('Retorno da Emissão' + #13 + #13 + 'Código Reposta: ' + IntToStr(HTTP_Emitir.Response.ResponseCode) + #13 + 'Erro: ' + sMsgErro, mtError, [mbOK], 0); end; end; iResult := HTTP_Emitir.Response.ResponseCode; if IntToStr(HTTP_Emitir.Response.ResponseCode) = '200' then begin ArquivoXML := TXMLDocument.Create(nil); ArquivoXML.LoadFromXML(Response.DataString); ArquivoXML.SaveToFile(ArquivoRetorno); end;
 

Bom dia,
Venho informar o que indentifiquei após verificações que fiz aqui.
Usando demo no botão "Imprimir DANFSe" , abrindo XMLs gerados ontem (apos update), e de dias anteriores :
   - de dia anteriores carregou o Preview do danfe sem erros
   - de ontem ao tentar carregar gera o erro anexado no chamado no seguinte trecho de codigo:
              loadedDoc := xmlParseDoc(PAnsiChar(ansistring(AXmlDocument))); em ABCrXmlDocument.pas (fica nil e sai no else)
diferença entre XMLs :
    de ontem           : TAG <Endereco>Ambiente de testes não requer endereço</Endereco>
    de dias anteriores : TAG <Endereco>Ambiente de testes nA o requer endereA o</Endereco>
Ao retirar "ã" e "ç" do xml com erro,  resolveu e abriu o preview do danfe sem erros.
Obrigado.
 
 
                          
 
  
 
 

poxa, o problema e com os dados que estou validando a rotina. Obrigado pela orientação peterson161