ACBrNCMs - Caractere especial ( Descrição )

[SISBLU Software]

Bom dia, como posso importar a tabela com a descrição com acento correto?

 

[Juliomar Marchetti]

até fiz um teste aqui e não ocorreu o erro relatado

mas estou desconfiado da versão do delphi. é o 7

[Dangelo2010]

  Em 12/08/2024 at 12:38, SISBLU Software disse:

Bom dia, como posso importar a tabela com a descrição com acento correto?

 

Expandir  

Estou com o mesmo problema, meu Delphi e o 11

[Juliomar Marchetti]

até rodei e abri o exemplo aqui e vejam

dúvida estão com mais de um delphi no mesmo windows

[SISBLU Software]

Não, estou com DELPHI 10.3.3

Windows 11

[Dangelo2010]

  Em 12/08/2024 at 19:00, Juliomar Marchetti disse:

até rodei e abri o exemplo aqui e vejam

dúvida estão com mais de um delphi no mesmo windows

Expandir  

Eu vi aqui que dentro do arquivo json esta certinho, so quando vem para o grid que fica assim

function TACBrNCMs.CarregarCache: String;
var
  wArq: String;
  wSL: TStringList;
  wJson: TACBrJSONObject;
  wDataCache: TDateTime;
  xData: string;
begin
  Clear;
  wJson := Nil;
  Result := EmptyStr;
  wArq := CacheArquivo;

  if (wArq = EmptyStr) or (not FileExists(wArq)) then
    Exit;

  try
    wSL := TStringList.Create;
    try

       wSL.LoadFromFile(wArq); //    aqui ja vem com os caracteres 

      wJson := CriarEValidarJson(wSL.Text);
            try
        xData := TratarCampoData(wJson.AsString['DataCache']);
                wDataCache := StringToDateTimeDef(xData, 0, 'dd/mm/yyyy');

                if (CacheDiasValidade > 0) and (DaysBetween(Now, wDataCache) > CacheDiasValidade) then
                begin
                    DeleteFile(wArq);
                    Exit;
                end;

                Result := wSL.Text;
            finally
                wJson.Free;
            end;
    finally
      wSL.Free;
    end;
  except
    DeleteFile(wArq);
  end;
end;
 

[Juliomar Marchetti]

Sim abri o delphi e vi que no Delphi ocorre.
deixa entender o que está ocorrendo.

[Dangelo2010]

Tranquilo

Até dessa forma eu fiz mais não resolveu 

      // Tente ler com ISO-8859-1 (ou ajuste se precisar de outra codificação)
      wSL.Encoding := TEncoding.GetEncoding(28591); // ISO-8859-1
      wSL.LoadFromFile(wArq);
      // Se você tiver certeza da codificação correta, pode ajustar isso
      FileText := wSL.Text;
      // Se a leitura estiver errada, você pode tentar uma codificação diferente
      if ContainsStr(FileText, 'Caracteres estranhos') then
      begin
        // Tente uma codificação alternativa se necessário
        wSL.Encoding := TEncoding.GetEncoding(1252); // Windows-1252
        wSL.LoadFromFile(wArq);
        FileText := wSL.Text;
      end;
      // Converta para UTF-8 se necessário
      FileText := TEncoding.Convert(TEncoding.GetEncoding(28591), TEncoding.UTF8, TEncoding.GetEncoding(28591).GetBytes(FileText));
      wJson := CriarEValidarJson(FileText);
 

 

[Juliomar Marchetti]

na verdade ele tá em UTF-8.

se fosse só a versão mais nova  era só colocar

wSL.LoadFromFile(wArq, TEncoding.UTF8);

e tá resolvido

Mas temos que ter compatibilidade com os demais delphi

[Dangelo2010]

  Em 12/08/2024 at 20:14, Juliomar Marchetti disse:

na verdade ele tá em UTF-8.

se fosse só a versão mais nova  era só colocar

wSL.LoadFromFile(wArq, TEncoding.UTF8);

e tá resolvido

Mas temos que ter compatibilidade com os demais delphi

Expandir  

wSL.LoadFromFile(wArq, TEncoding.UTF8);

fiz assim tambem e nao deu certo

[Juliomar Marchetti]

Dá sim. só exclui o arquivo de cache

[Dangelo2010]

  Em 12/08/2024 at 20:47, Juliomar Marchetti disse:

Dá sim. só exclui o arquivo de cache

Expandir  

Você fala de excluir o arquivo ACBrNCM.json que esta na pasta?

[Juliomar Marchetti]

  Em 12/08/2024 at 22:46, Dangelo2010 disse:

Você fala de excluir o arquivo ACBrNCM.json que esta na pasta?

Expandir  

Sim

[Dangelo2010]

  Em 12/08/2024 at 23:06, Juliomar Marchetti disse:

Sim

Expandir  

Não deu certo, pois ele faz o download novamente e alimenta wSL.LoadFromFile(wArq, TEncoding.UTF8);

[Diego Foliene]

Bom dia!

Foi criada a #TK-5857 para análise do caso e parecer por parte da equipe de consultores.

[BigWings]

Pelo que vi o problema foi após o refactoring que foi feito no ACBrHTTP.

O método RespIsUTF8 falha em detectar a codificação do arquivo.

Segue sugestão para correção.

ACBrNCMs.pasUnavailable ACBrSocket.pasUnavailable

[SISBLU Software]

Coloquei UTF8ToString para importar CONVERTIDO para minha tabela e deu certo.

 

ClientDataSet1DESCRICAO.Value := UTF8ToString( aListaNCM[I].DescricaoNcm);

[Diego Foliene]

  Em 13/08/2024 at 13:27, BigWings disse:

Pelo que vi o problema foi após o refactoring que foi feito no ACBrHTTP.

O método RespIsUTF8 falha em detectar a codificação do arquivo.

Segue sugestão para correção.

ACBrNCMs.pas 22.45 kB · 2 downloads ACBrSocket.pas 44.58 kB · 2 downloads

Expandir  

Bom dia!

Contribuição enviada ao SVN na Rev-34874.

A todos que estiverem tendo problemas, por favor, queiram atualizar seus fontes, reinstalar o ACBr para realizar novos testes e reportar qualquer problema.