ACBrWinReqRespClass - Erro Interno: 183 - HederReq não está sendo Limpado.

[HelioNeto]

Boa Tarde!

Estava realizando Teste no TimeOut, seguindo este Post:

 

NFeAutorizacao_4.00=https://hom.nfe.sefaz.ms.gov.br:81/ws/NFeAutorizacao4

Quando ocorre uma exceção, Na lib = ..trunk2\Fontes\ACBrTCP\ACBrWinReqRespClass.pas

entra no  RaiseException, Não Executando o FHeaderReq.Clear :

procedure TACBrWinReqResp.Send;
var
  Ok: Boolean;
  DataToSend: AnsiString;
begin
  DoLog('Send');

  Ok := SetHeaderReq;
  if not Ok then
    raise EACBrWinReqResp.CreateFmt(ACBrStr(sErrSetHeader), [GetWinInetError(FInternalErrorCode)] );

  if EncodeDataToUTF8 then
    DataToSend := UTF8Encode(Data)
  else
    DataToSend := Data;

  Ok := SendData(DataToSend);
  if not Ok then
    raise EACBrWinReqResp.CreateFmt(ACBrStr(sErrSentData), [GetWinInetError(FInternalErrorCode)] );

  FHeaderReq.Clear; //<== Não Executa o Clear.
end;

Desta forma, descobri que ao, ativar o Servidor de Backup.

Trocando o que é necessário no ACBrNFe e a propriedade

FobjNFe.Configuracoes.Geral.FormaEmissao = teSVCRS; //Para o Mato Grosso do Sul.

Ao Enviar retorna a Mensagem do "Falha Enviando a Requisição. Erro: 183 -"

Observei que o Header estava Concatenando a URL antiga com a Nova

'Host: nfe-homologacao.svrs.rs.gov.br'#$D#$A'
Host: hom.nfe.sefaz.ms.gov.br:81'#$D#$A'
Content-Type: application/soap+xml; charset=utf-8; charset=utf-8'#$D#$A'
Accept-Charset: utf-8'#$D#$A'SOAPAction: "http://www.portalfiscal.inf.br/nfe/wsdl/NFeAutorizacao4/nfeAutorizacaoLote"'#$D#$A

Quando fiz esse ajuste abaixo funcionou perfeitamente e parou de ocorrer o erro: "Falha Enviando a Requisição. Erro: 183 -"

procedure TACBrWinReqResp.InitExecute;
begin
  CloseConnection;
  FHeaderReq.Clear;	//Inclusão desta Linha.
  FHeaderResp.Clear;
  FRedirections := 0;
end;

Fiz os Testes aqui e Funcionou Certinho.

para testar precisa trocar a propriedade:

ACBrNFe.Configuracoes.Geral.SSLHttpLib = httpWinHttp;

O OpenSSL está funcionando Perfeitamente.

Quem puder analisar, para corrigir, temos clientes configurados com o httpWinHttp e não queriamos ter de trocar todos para httpOpenSSL

Desde já agradeço!

[Daniel Simoes]

Muito obrigado pela analise e sugestão (proglemas como esse são realmente difíceis de pegar)

Poderia por favor anexar as Units modificadas ?

[HelioNeto]

Bom dia!

Segue anexo do ..\trunk2\Fontes\ACBrTCP\ACBrWinReqRespClass.pas modificado.

Sem mais,

atenciosamente.

ACBrWinReqRespClass.pas

[Daniel Simoes]

@HelioNeto,

Eu creio que essa modificação, poderia causar problemas em rotinas que manipulam o Header, antes de chamar TACBrWinReqResp.Execute...

Por favor tente com a Unit modificada em anexo...  Observe que ela limpa o Header em TDFeHttpWinHttp.ConfigConnection;  
Note ainda, que o mesmo já é feito em: TDFeHttpOpenSSL.ConfigConnection

 

 

ACBrDFeHttpWinApi.pas

[HelioNeto]

Boa Tarde!

Após testes  realizados com o ACBrDFeHttpWinApi.pas em anexo, funcionou perfeitamente.

Desde já agradeço!

[Daniel Simoes]

Obrigado pelos testes... Commit [r21255]