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;