Possível Falha Em Tacbrhttpreqresp.getwinineterror

[Gabriel Bonzanini]

Bom dia.

 

Verifiquei uma falha na função TACBrHTTPReqResp.GetWinInetError, da unit ACBrHTTPReqResp. Estou utilizando Delphi 2010 e Windows 7. A mensagem de erro retornada apresenta apenas o primeiro caracter, devido ao tipo PAnsiChar da variável Buffer. Alterando para PChar funciona corretamente. Poderiam verificar se isto terá algum impacto em outros ambientes, e se poderia ser alterado para as próximas versões?

 

Muito obrigado,

 

Gabriel.

ACBrHTTPReqResp.pas

[Gabriel Bonzanini]

Algum moderador poderia verificar isto? É uma correção pontual, acredito que vá ajudar.

[Juliomar Marchetti]

tentou isso

[Gabriel Bonzanini]

Juliomar, obrigado pelo retorno.

 

Fiz o teste, mas a mensagem continua retornando apenas o primeiro caracter. Parece ser problema no tipo de dado da variável mesmo, e já vi o mesmo ocorrer em outro tópico (apesar de não ser a questão central):

 

 

'Requisição não enviada. 12157 - E' - Este 'E' é a letra inicial da mensagem correta. É o mesmo que ocorreu comigo, e a solução foi alterar o tipo de dado da variável Buffer. Apenas gostaria de ver se isso confere, e se pode ser alterado no projeto principal para que não tenha que lembrar de alterar toda vez que sincronizá-lo.

 

Abraço,

 

Gabriel.

Editado 10 Fevereiro, 2015 por Gabriel Bonzanini

[Régys Silveira]

Eu havia verificado este erro agora de manhã, estou efetuando o acerto e testando nas versões de Delphi, até o fim da tarde a correção estará no repositório.

[Gabriel Bonzanini]

Obrigado Régys! Fico no aguardo

[Régys Silveira]

Obrigado Régys! Fico no aguardo

 

 

Já está no repositório desde ontem de manhã.

 

Testei aqui com D7, D2010 e XE7, está funcionando perfeitamente agora.

[Gleidson Moreira da Silva]

ola boa tarde a todos, atualizei o ACBR hoje e me deparei com um problema que pode ser o mesmo, nesta mesma unit ACBrHTTPReqResp.pas da um erro de 'Requisição não enviada' tambem para envido de DPEC, todo envio que se faz no modo DPEC esta dando este erro na lina 361 desta unit, lembrando que a emissão em modo normal esta ok.

Ao debugar o codigo abaixo a varialvel result da linha 354 ( Result := {$IFDEF FPC} AnsiToUtf8(PChar(BufStream.Memory)) {$ELSE} PAnsiChar(BufStream.Memory) {$ENDIF}; )

recebe '' (vazio), e acaba entrando no if seguinte causando a excessão.

                     aBuffer[0] := #0;
                     BufStream.Write(aBuffer, 1);
                     Result := {$IFDEF FPC} AnsiToUtf8(PChar(BufStream.Memory)) {$ELSE} PAnsiChar(BufStream.Memory) {$ENDIF};
                     if Result = '' then
                      begin
                        ErrorCode := GetLastError;
                        {$IFDEF FPC}
                        raise Exception.Create(AnsiToUtf8('Erro: Requisição não enviada.'+sLineBreak+IntToStr(ErrorCode)+' - '+GetWinInetError(ErrorCode)));
                        {$ELSE}
                        raise Exception.Create('Erro: Requisição não enviada.'+sLineBreak+IntToStr(ErrorCode)+' - '+GetWinInetError(ErrorCode));
                        {$ENDIF}
                      end
                     else if Pos('<TITLE',UpperCase(Result)) > 0 then
                      begin
                        PosError := Pos('<TITLE>',UpperCase(Result))+7;
                        ErrorMsg := trim(copy(Result, PosError, (pos('</TITLE>', UpperCase(Result)) - PosError)));
                        {$IFDEF FPC}
                        raise Exception.Create(AnsiToUtf8('Erro: Requisição não enviada.'+sLineBreak+ErrorMsg));
                        {$ELSE}
                        raise Exception.Create('Erro: Requisição não enviada.'+sLineBreak+ErrorMsg);
                        {$ENDIF}
                      end;

desde ja agradeço a atenção!

[Italo Giurizzato Junior]

Bom dia Gleidson,

 

Em vez do DPEC já pensou em utilizar o EPEC ou SVC?

[Gleidson Moreira da Silva]

oi Italo, obrigado pela atenção,  ainda não tentei essas opções (EPEC ou SVC) , vou verifica-las para implementar no sistema, mas esse erro do envio em DPEC pode ser corrigido?

 

 

obrigado.

[Tiago Ravache]

Bom dia Gleidson, não sei se vale a pena já que o EPEC vem substituir o DPEC, me corrijam se entendi errado

[Italo Giurizzato Junior]

Bom dia a todos,

 

Segundo a Nota Técnica 2014/001 versão 1.10, o DPEC será desativado em 31/03/2015.

 

Como hoje é 02/03/2015, será que vale a pena, perder tempo com o DPEC?

[Gleidson Moreira da Silva]

oi obrigado pela atenção de todos, realmente um mes não vale mais a pena, vou correr atras das outras alternativas de emissão em contingencia ok.

 

 

obrigado mesmo !!