ACBrSocket - ResultCode diferente de 200

[Innovae Brasil Engenharia]

Boa tarde!

Estou desenvolvendo uma integração com um webservice e o mesmo está retornando o resultcode 201 e não 200.

Na classe TACBrHTTP, quando o resultcode não é 200, é gerada uma exception.

Para atender a minha necessidade, eu criei uma nova property e chamei de ExpectedResultCode, do tipo integer e valor default 200 e onde era feito o teste para determinar se a requisição foi realizada, troquei o valor fixo 200 pela variável FExpectedResultCode, relacionada à propriedade.

Segue anexo a arquivo com os ajustes para verificação e possível inclusão no repositório.

 

ACBrSocket.pas ACBrSocket.diff

[antonio.carlos]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[Daniel Simoes]

Obrigado pela contribuição... em analise...

[Daniel Simoes]

Será que não ficaria mais versátil se ExpectedResultCode, fosse um array de Integer ?  Assim poderiamos atribuir vários valores como válidos, exemplo: [200, 201]

[Innovae Brasil Engenharia]

Boa tarde!

Alterei novamente a classe, para atenda uma lista de possíveis retornos.

Segue anexo o arquivo ajustado para apreciação.

ACBrSocket.pas