Falha na busca de cidades do ACBrIBGE

[leandroksc]

Ao carregar a lista de cidades, este componente não estava convertendo o UTF8. Eu fiz um ajuste no código pra funcionar corretamente a busca por cidades que contenham acentos.

Favor verificar se esta modificação procede, aqui pra mim funcionou! Obrigado!

Segue arquivo fonte em anexo

ACBrIBGE.pas

[Daniel Simoes]

O Ajuste quebrará Compiladores que usam UTF8.. como FPC e DelphiXE...

Vou verificar onde podemos inserir a conversão, sem quebrar as diversas IDEs que suportamos...

[leandroksc]

Perfeito Daniel, vou ficar no aguardo de uma correção definitiva então. Obrigado!

[Daniel Simoes]

Por favor teste com a Unit em anexo...

ACBrIBGE.pas

[leandroksc]

Bom dia Daniel, fiz o teste com esta unit, porém o problema persiste. Ele está encontrando a cidade, mas encontra por ser o nome mais próximo do pesquisado. No meu exemplo,  a cidade pesquisada é "Tubarão" (SC), e ao debugar, na rotina "fListaCidades.Find" na linha 938, dentro da subrotina "CompCidadeMunicipioAsc" onde ele compara o "MunicipioIdx", o nome da cidade aparece como "Tubarão". Estes nomes também ficam desta forma no arquivo de cache ACBrIBGE.txt.

Obrigado pela atenção!

[Daniel Simoes]

Qual a sua IDE ?

[leandroksc]

Delphi 10.2 Tokyo

[Daniel Simoes]

Testei em um Delphi Rio e funcionou a contento...

 

Acho que o seu arquivo de Cache ACBrIBGE.txt, está com o Encoding errado... experimente apagar esse arquivo e testar novamente...

[leandroksc]

O problema estava no arquivo de cache mesmo, apagando resolveu! Eu achei que o arquivo era substituído ao salvar novamente a lista de cidades... Muito Obrigado!!

[Daniel Simoes]

22 minutos atrás, leandroksc disse:

O problema estava no arquivo de cache mesmo, apagando resolveu! Eu achei que o arquivo era substituído ao salvar novamente a lista de cidades... Muito Obrigado!!

Tem um propriedade com o número de Dias de validade do arquivo de Cache

CacheDiasValidade: Integer default 0

0 - não apaga nunca o Cache

[Daniel Simoes]

Modificações enviadas para o SVN...

[wilson_jr]

Boa tarde, 

Em meu sistema está ocorrendo o mesmo problema. Observação: Atualizei somente a unit do IBGE.

já ativei/desativei as propriedades de isUTF8 e TextParse para testar e não está localizando cidades com acento.

A cada teste exclui o arquivo cache, mas aparentemente ele está ok, só no Delphi Xe7 que fica errado.

Há mais alguma coisa que possa verificar?

Grato!

Wilson

[Daniel Simoes]

Verifique com o NotePad++ se o Cache está sendo salvo em UTF8

[wilson_jr]

Bom dia Daniel!

Está como UTF8.

Att,

Wilson.

[Daniel Simoes]

Apague o arquivo de Cache, e deixe um BkPoint no método abaixo:

function TACBrIBGE.UnZipDoc: String;
var
  CT, UnZipStr: String;
  RespIsUTF8: Boolean;
begin
  UnZipStr := UnZip(HTTPSend.Document);

  CT := LowerCase( GetHeaderValue('Content-Type:') );
  RespIsUTF8 := (pos('utf-8', CT) > 0);
  if RespIsUTF8 then
    Result := UTF8ToNativeString(UnZipStr)
  else
    Result := UnZipStr;
end;    

Observe se o método UTF8ToNativeString é invocado...

[wilson_jr]

Boa tarde Daniel!

Falha minha! durante minhas férias o outro programador alterou a pasta do nosso ACBR.

Olhei várias vezes isso ontem e não notei.

Obrigado!

[Daniel Simoes]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.