Eu comentei as linhas da procedure e não ocorreu mais o erro. Acredito que esteja nesta atualização a falha.
procedure TACBrNFSeXWebservice.EnvioInterno(var CodigoErro, CodigoInterno: Integer);
begin
ConfigurarHttpClient;
try
try
HttpClient.Execute;
finally
CodigoErro := HttpClient.HTTPResultCode;
CodigoInterno := HttpClient.InternalErrorCode;
end;
HttpClient.DataResp.Position := 0;
FPRetorno := ReadStrFromStream(HttpClient.DataResp, HttpClient.DataResp.Size);
if FPRetorno = '' then
raise EACBrDFeException.Create('WebService retornou um XML vazio.');
//if ((Pos('iso-8859-1', LowerCase(FPRetorno)) > 0) or
// (Pos('encoding', LowerCase(FPRetorno)) = 0)) and
// StringIsXML(FPRetorno) then
//begin
// FPRetorno := RemoverDeclaracaoXML(FPRetorno);
// FPRetorno := AnsiToNativeString(FPRetorno);
// FPRetorno := NativeStringToUTF8(FPRetorno);
// FPRetorno := '<?xml version="1.0" encoding="UTF-8"?>' + FPRetorno;
//end;
if StringIsXML(FPRetorno) then
LevantarExcecaoHttp;
except
on E:Exception do
begin
raise EACBrDFeException.CreateDef(Format(ACBrStr(cACBrDFeSSLEnviarException),
[HttpClient.InternalErrorCode, HttpClient.HTTPResultCode, HttpClient.URL])
+ sLineBreak + HttpClient.LastErrorDesc+ sLineBreak + E.Message);
end;
end;
end;