DECODIFICAR SMS COM ASCII

[marciomtk]

Ola,

Quando eu listo as msg usando a demo, as msg com caracteres especiais aparecem codifificadas.

 

 exempo : "não" a palavra vem assim 004E003006F0020

 

 

existe uma forma de decodificar o texto??

[Daniel Simoes]

deve ser uma forma interna que esse modem codifica os caracteres... o fabricante precisaria fornecer o algoritmo de conversão

[marciomtk]

19 horas atrás, Daniel Simoes disse:

deve ser uma forma interna que esse modem codifica os caracteres... o fabricante precisaria fornecer o algoritmo de conversão

liguei no fabrincante... ele não disponibiliza

[Daniel Simoes]

Se você tiver vários exemplos de palavra, retorno... talvez seja possível deduzir...

Qual seria o retorno de:

"ÁÉÍÓÚ"
"áéíóú"
"NÃO"
"não"

(por favor envie respeitando maiúsculas e minúsculas)

[marciomtk]

6 minutos atrás, Daniel Simoes disse:

Se você tiver vários exemplos de palavra, retorno... talvez seja possível deduzir...

Qual seria o retorno de:

"ÁÉÍÓÚ"
"áéíóú"
"NÃO"
"não"

(por favor envie respeitando maiúsculas e minúsculas)

vou fazer o envio

 

[marciomtk]

ÁÉÍÓÚ = 00C100C900CD00D300DA

áéíóú = 00E100E900ED00F300FA

NÃO =  004E00C3004F

não = 006E00E3006F

 

 

[marciomtk]

 uma frase 

Não quero mais Açái = 004E006F0020006D00E900730020006E00E3006F00200071007500650072006F0020004100E700E10069

[Daniel Simoes]

Apenas as frases com acentos, que ele retorna dessa maneira ?

[marciomtk]

Isso... A mesma frase sem acento o retorno é normal 

[EMBarbosa]

Isso daí é está parecendo UTF-8 convertido pra Hexadecimal. Só que não parece totalmente correto.

A conversão de:

Citar

NÃO =  004E00C3004F

Deveria ser algo como:

Citar

NÃO =  0x4E 0xC3 0x83 0x4F

 

[marciomtk]

Pois he... Há, testei diversos modems e o retorno é sempre assim.... 

[Daniel Simoes]

Sim... mas parece ser UTF16, com BigEndian... vou tentar criar uma rotina de conversão...

[Daniel Simoes]

Deve haver uma forma mais automatizada, de converter... mas criei uma rotina... veja se dá certo... (projeto com fontes, em anexo)

function TForm1.Convert(AData: String): String;
var
  BinaryStr: AnsiString;
  WideStr: WideString;
  LenData, i: Integer;
  B1, B2: Byte;
begin
  BinaryStr := '';
  LenData := Length(AData);

  i := 1;
  while i < LenData do
  begin
     B2 := StrToInt('$' + copy(AData, i  , 2));
     B1 := StrToInt('$' + copy(AData, i+2, 2));
     BinaryStr := BinaryStr + AnsiChr(B1)+AnsiChr(B2) ;
     Inc(i, 4) ;
  end ;

  LenData := Trunc(Length(BinaryStr)/2);
  SetLength(WideStr, LenData);
  StrLCopy(PWideChar(WideStr), PWideChar(BinaryStr), LenData*2);
  Result := String(WideStr);
end;  

 

Converte.zip

[marciomtk]

1 hora atrás, Daniel Simoes disse:

Deve haver uma forma mais automatizada, de converter... mas criei uma rotina... veja se dá certo... (projeto com fontes, em anexo)

function TForm1.Convert(AData: String): String;
var
  BinaryStr: AnsiString;
  WideStr: WideString;
  LenData, i: Integer;
  B1, B2: Byte;
begin
  BinaryStr := '';
  LenData := Length(AData);

  i := 1;
  while i < LenData do
  begin
     B2 := StrToInt('$' + copy(AData, i  , 2));
     B1 := StrToInt('$' + copy(AData, i+2, 2));
     BinaryStr := BinaryStr + AnsiChr(B1)+AnsiChr(B2) ;
     Inc(i, 4) ;
  end ;

  LenData := Trunc(Length(BinaryStr)/2);
  SetLength(WideStr, LenData);
  StrLCopy(PWideChar(WideStr), PWideChar(BinaryStr), LenData*2);
  Result := String(WideStr);
end;  

 

Converte.zip 784 kB · 1 download

Boa noite meu amigo, não tenho nem palavras para agradece,deu super certo. fiz vários teste, e o que notei e que as mensagem que precisam se convertida começa com 00(zero zero) então e so fazer uma validação no retorno para ver se começa com 00 se não  nem precisa converte.. espero que seja assim. sou novo nessa area.

 

[Daniel Simoes]

Que bom que deu certo... 

Você modificou nas Units do ACBrSMS ?

Se sim, Poderia compartilhar as Units modificadas ?

Talvez seja útil enviarmos esses ajustes ao SVN 

[marciomtk]

38 minutos atrás, Daniel Simoes disse:

Que bom que deu certo... 

Você modificou nas Units do ACBrSMS ?

Se sim, Poderia compartilhar as Units modificadas ?

Talvez seja útil enviarmos esses ajustes ao SVN 

Bom dia, então eu modifiquei apenas a unit : uListaMensagem.pas para criar a função de validar se a msg ta codificada e converter seguindo o modelo acima. e na unit ACBrSMSClass.pas

corrigir a função de formatação de data..... todas as modificações funcionaram perfeimentte nos seguente modem

HWAWEI - E392

ZTE MF190

ZTE MF191

ACBrSMSClass.pas uListaMensagem.pas

[Daniel Simoes]

Apliquei ajustes nos fontes do SVN, para tentar corrigir essas duas situações...

Commit [r19392]

pode por favor atualizar os fontes e testar ?

Citar

-- ACBrSMSClass --
[-] Ajuste para leitura de Data/Hora com retorno de apenas 2 dígitos no ano
[-] Ajuste para leitura de mensagens codificadas, por motívos de acentuação
    (por: DSA)

 

[marciomtk]

7 horas atrás, Daniel Simoes disse:

Apliquei ajustes nos fontes do SVN, para tentar corrigir essas duas situações...

Commit [r19392]

pode por favor atualizar os fontes e testar ?

 

Boa noite, atualizei o fonte, fiz o teste.... a data funcionou corretamente. deu um exception  mais listou a data certo,

 

 

 

quanto a questão conversão, não funcionou.... com esse novo comit

se quiser eu disponibilizou o acesso a minha maquina para remotamente voce fazer os teste e realizar o debug...

[Daniel Simoes]

13 horas atrás, marciomtk disse:

Boa noite, atualizei o fonte, fiz o teste.... a data funcionou corretamente. deu um exception  mais listou a data certo,

É um exception controlado... não vaza para a aplicação... e pode ser ignorado em tempo de Debug 

[Daniel Simoes]

Em 12/03/2020 at 20:06, marciomtk disse:

quanto a questão conversão, não funcionou.... com esse novo comit

Ele não está entrando no IF abaixo, na linha 282 de ACBrSMSClass.pas ?

Se não estiver, por favor teste essa modificação

          if (copy(Mensagem,1,2) = '00') and StrIsNumber(Trim(Mensagem)) then
            Mensagem := ConvertMsg(Mensagem);

 

[marciomtk]

4 minutos atrás, Daniel Simoes disse:

Ele não está entrando no IF abaixo, na linha 282 de ACBrSMSClass.pas ?

Se não estiver, por favor teste essa modificação

          if (copy(Mensagem,1,2) = '00') and StrIsNumber(Trim(Mensagem)) then
            Mensagem := ConvertMsg(Mensagem);

 

vou tentar agora

[marciomtk]

então.... não tava entrando ..... e também não entrou com a modificação

[Daniel Simoes]

Por favor use o Debug, e veja o conteúdo de '"Mensagem"

[marciomtk]

1 minuto atrás, Daniel Simoes disse:

Por favor use o Debug, e veja o conteúdo de '"Mensagem"

E2003 Undeclared identifier: 'Mensagem'

se quiser o anydesk ta aberto

[Daniel Simoes]

Não tenho como acessar...  vou deixar como está... o dia que tiver um modem nas mãos, tento novamente...