Codificação de caracteres inválida no retorno do webservice da prefeitura

[João Antônio]

Ao emitir uma nfse em webservices que retornam dados como utf8 (Content-type: text/xml; charset=utf-8) não está fazendo a conversão correta dos caracteres.

Estou usando Delphi Sydney compilando para Windows64.

Modifiquei o método  TACBrNFSeXWebservice.Executar() da unit  ACBrNFSeXWebserviceBase conforme a imagem abaixo e resolveu esse problema de codificação. 

 

            HttpClient.Execute;

            HttpClient.DataResp.Position := 0;
            if ContainsText(HttpClient.HeaderResp.GetHeaderValue('Content-Type'), 'utf-8') then
              FPRetorno := UTF8ToNativeString(ReadStrFromStream(HttpClient.DataResp, HttpClient.DataResp.Size))
            else
              FPRetorno := ReadStrFromStream(HttpClient.DataResp, HttpClient.DataResp.Size);

 

[Italo Giurizzato Junior]

Bom dia João,

Por favor anexe a unit alterada para que possamos analisar.

[João Antônio]

Segue a unit alterada

ACBrNFSeXWebserviceBase.pas

[Italo Giurizzato Junior]

Bom dia João,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-2158 

[Italo Giurizzato Junior]

Boa tarde João,

Fiz mais alguns ajustes para poder compilar no Delphi 7 e enviei para o SVN.

Favor atualizar os fontes e faça novos testes.

[João Antônio]

Boa noite,

Fiz alguns testes após o ajuste do charset. Fiz mais um ajuste na verificação do Content-Type do response para que funcione perfeitamente. Segue a unit em anexo.

ACBrNFSeXWebserviceBase.pas

[Italo Giurizzato Junior]

Bom dia João,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-2262

[Italo Giurizzato Junior]

Boa tarde João,

Notei que os seus fontes estão desatualizados.

Faça uma cópia da unit que você alterou e atualize todos os fontes de todas as pastas, reinstale o ACBr e depois aplique se necessário a alteração que você fez.

Detalhe, essa unit que esta no SVN já contempla a verificação que você esta propondo.

Foi feita uma alteração para que compila-se no Delphi 7.

[João Antônio]

37 minutos atrás, Italo Giurizzato Junior disse:

Boa tarde João,

Notei que os seus fontes estão desatualizados.

Faça uma cópia da unit que você alterou e atualize todos os fontes de todas as pastas, reinstale o ACBr e depois aplique se necessário a alteração que você fez.

Detalhe, essa unit que esta no SVN já contempla a verificação que você esta propondo.

Foi feita uma alteração para que compila-se no Delphi 7.

Essa última alteração que fiz foi em cima da última modificação que você fez. 

[Italo Giurizzato Junior]

João,

Não me recordo qual é o provedor que ele retorna "text/xml" e "utf-8" e se executar a função UTF8ToNativeString não funciona.

Acredito que vamos ter que buscar uma solução melhor, pois você deixa funcionando para alguns provedores e para outros a coisa não funciona.

[João Antônio]

8 minutos atrás, Italo Giurizzato Junior disse:

João,

Não me recordo qual é o provedor que ele retorna "text/xml" e "utf-8" e se executar a função UTF8ToNativeString não funciona.

Acredito que vamos ter que buscar uma solução melhor, pois você deixa funcionando para alguns provedores e para outros a coisa não funciona.

Para o provedor Pronim versão 2 o retorno do content-type é text/xml;charset=utf-8. Os caracteres só são exibidos de forma correta quando uso UTF8ToNativeString

Acredito que outros provedores com esse mesmo retorno deveriam funcionar também. 

[Italo Giurizzato Junior]

Bom dia João,

Infelizmente isso não ocorre.