AcbrIBGE parou???

[flexsistemas]

Olá,

atualizei o meu trunk2 ontem a noite e estou fazendo uma verificação de todas as funcionalidades e notei que o componente ACBrIBGE não está funcionando. Sempre que busco uma cidade ele retorna a mensagem dizendo Nenhum Município Encontrado

Será que pelas mudanças no site do IBGE parou?

Editado 14 Fevereiro, 2018 por flexsistemas

[Daniel Simoes]

Parece que o portal foi modificado... o componente precisará ser ajustado...

[Valdir Dill]

Boa tarde,

Não sei se vai ser de ajuda para os responsáveis pelos ajustes, mas, provisoriamente, estou fazendo assim para meus usuários terem um acesso mais rápido ao código.

procedure AbreSiteIBGEConsulCodigo(VCidade, VUF : String);
Var
 VLink : String;
 Const 
  VURL = 'https://cidades.ibge.gov.br/brasil/';
begin
 VCidade := StringReplace(VCidade, ' ', '-', [rfReplaceAll]); //troca espaços por hífen para não dar erro no site na url final.

 VLink := VURL + lowerCase(VUF) +  '/' + lowerCase(VCidade) + '/panorama';
  
 HlinkNavigateString(nil, PChar(VLink));
end;

 

Abraços.

Editado 14 Fevereiro, 2018 por valdirdill

[flexsistemas]

Daniel, não querendo ser intransigente e também não entendo do Código do ACBr...mas isso teria uma previsão para correção?

[Daniel Simoes]

Não tenho no momento... ainda não analisei o problema...

[Valdir Dill]

Bom dia,

Que tal essa função?

function GetIBGE(VUF, VCidade : String) : String;
Var 
 VConteudo : TStringList;
 I : Integer;
 VAcbrIBGE : TACBRIBGE;
Const
 VURLBase = 'https://cidades.ibge.gov.br/brasil/';
begin
 VConteudo := TStringList.Create;
 VAcbrIBGE := TACBRIBGE.Create(nil);

 try
  VCidade := TiraAcentos(VCidade);
  VCidade := StringReplace(VCidade, ' ', '-', [rfReplaceAll]); //troca espaços por hífen para não dar erro no site na url final.

  VAcbrIBGE.HTTPGet(VURLBase + lowerCase(VUF) +  '/' + lowerCase(VCidade) + '/panorama');
  VConteudo.text := VAcbrIBGE.RespHTTP.Text;

  for I := 0 to VConteudo.Count-1 do
   begin
    if (trim(VConteudo[ i ] ) = 'Código do Município') and (pos('class="topo__valor">', VConteudo[I+2]) > 0) then
     result := trim(VConteudo[I+3]);
  end;

 finally
  freeAndNil(VConteudo); freeAndNil(VAcbrIBGE);
 end;
end;

Obs.: aceito sugestões para melhorar.

Abraços!

Editado 19 Fevereiro, 2018 por valdirdill

[flexsistemas]

muito útil enquanto não conseguimos uma solução no componente.

[Daniel Simoes]

Por favor atualizem e testem...