ACBrConsultaCNPJ problemas com UTF8

[almp1]

Olá Amigos,

Estou enfrentando um problema em uma maquina Linux CentOs 6.0 32-bits.

Para poder ler a resposta da consulta corretamente, precisei fazer a seguinte alteração.

Resposta.Text := StripHTML(CP1252ToUTF8(RespHTTP.Text));

Acredito que seja um problema local, pois em outras maquinas a consulta funciona sem a necessidade de usar a função CP1252ToUTF8() da LConvEncoding, mas não sei como resolver isso, alguém já teve este problema ou tem alguma ideia de como posso resolver.

Abraços,

[Daniel Simoes]

Qual é exatamente o problema ??

[almp1]

Olá Daniel,

Quando lemos a resposta os caracteres acentuados ficam assim por exemplo "NÚMERO DE INSCRIÇÃO"

Ai na leitura do campo LerCampo(Resposta, 'NÚMERO DE INSCRIÇÃO'); o conteúdo não é encontrado. Neste caso os dados não são preenchidos usando títulos que possuem acentos.

Abraços 

[Daniel Simoes]

O problema parece ser o fato de estar ocorrendo uma dupla conversão para UTF8...

Como reproduzir o problema com o Demo do ACBr ?

(qual o ambiente ?)

[almp1]

O ambiente que eu estou usando é

Lazarus 1.4.4 FPC 2.6.4

CentOS 6.7 32bits

Estou enviando anexo o arquivo cnpjsemconv.txt onde não usei a função CP1252ToUTF8 e outro arquivo cnpjconvertido.txt onde usei a função

Mais uma vez obrigado pela ajuda

 

cnpjconvertido.txt

cnpjsemconv.txt

[Daniel Simoes]

Por favor ative as linhas de Debug em ACBrSocket.pas

       // DEBUG //
773    RespHTTP.SaveToFile('c:\temp\HttpResp.txt');
774    HTTPSend.Headers.SaveToFile('c:\temp\HeaderResp.txt'); 

Isso irá salvar em arquivo, a exata resposta do Servidor, e o Header do HTTP... com isso poderemos compreender o que pode estar ocorrendo...

 

[Daniel Simoes]

Hummm.. o problema pode estar na ACBrUtil... ela não deve estar conseguindo detectar qual o Encoding de ANSI para ser usado com essa distribuição

Pode ser ainda, algo relacionado ao FPC 2.6.4...

Verifique, qual é o retorno do método a seguir:

{$IfDef FPC}
function GetSysANSIencoding: String;
begin
  Result := {$IfDef NOGUI}GetConsoleTextEncoding{$Else}GetDefaultTextEncoding{$EndIf};
  if Result = EncodingUTF8 then
    Result := 'cp1252';  // Usando página de código ANSI padrão para o Brasil
end;
{$EndIf}   

(deve ser algo diferente de UTF8)

[almp1]

Olá Daniel

Segue os arquivos conforme solicitado.

Fiz também o debug que você me pediu, na minha maquina de desenvolvimento a função retorna 'cp1252', na maquina de produção retorna 'ansi'

As duas maquinas são CentOS 6.7, porém na maquina de produção não tenho Lazarus+FPC instalado

O "NOGUI" esta ativado na minha compilação.

Abraços,

HttpResp.txt

HttpResp2.txt

[almp1]

Olá Daniel

Baseado nos posts que trocamos fiz assim na função GetSysANSIencoding

  if (Result = EncodingUTF8) or (Result = EncodingAnsi) then 

Isso resolveu o problema, mas não sei se este é o caminho correto

Abraços,

[Daniel Simoes]

Parece correto... pois o problema.. irá ocorrer na chamada de "ACBrAnsiToUTF8", que chama o método do "LConvEncoding.ConvertEncoding"...

e esse método do Lazarus, se receber o parâmetro como "ANSI", irá tentar descobrir qual é o Encoding do sistema operacional... que no seu caso, resultará em UTF8

Ou seja, o método  " LConvEncoding.ConvertEncoding" não faz nada...se o parâmetro de "FromEncoding" for "ansi"

Correção  já está no SVN...

 

[almp1]

Obrigado Daniel

Grande abraço