DECODIFICAR SMS COM ASCII

[marciomtk]

1 minuto atrás, Daniel Simoes disse:

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

tenho um disponivel..... posso te mandar, seria um forma de contribuir com o projeto

[Daniel Simoes]

Puxa, agradeço muito...

Eu não foi o autor do ACBrSMS, e por não ter um modem, fica difícil de dar manutenção nele...

O Endereço do ACBrLab é:
Rua Coronel Aureliano de Camargo, 963, Centro, Tatuí - SP, CEP 18270-170

https://goo.gl/maps/EMUAGNNr6H8zShuM9

[marciomtk]

1 minuto atrás, Daniel Simoes disse:

Puxa, agradeço muito...

Eu não foi o autor do ACBrSMS, e por não ter um modem, fica difícil de dar manutenção nele...

O Endereço do ACBrLab é:
Rua Coronel Aureliano de Camargo, 963, Centro, Tatuí - SP, CEP 18270-170

https://goo.gl/maps/EMUAGNNr6H8zShuM9

 

Agora, marciomtk disse:

 

Show, segunda eu posto no correios e te mando o código 

[marciomtk]

3 horas atrás, Daniel Simoes disse:

Puxa, agradeço muito...

Eu não foi o autor do ACBrSMS, e por não ter um modem, fica difícil de dar manutenção nele...

O Endereço do ACBrLab é:
Rua Coronel Aureliano de Camargo, 963, Centro, Tatuí - SP, CEP 18270-170

https://goo.gl/maps/EMUAGNNr6H8zShuM9

no proximo committ imprementa essa correção.... tinha lido aqui no post anterior e corrigir, mais quando vc lançou o novo comitt o erro voltou.... seguei o post onde um alguem postou a solução....

 

[Daniel Simoes]

Não compreendi... eu não modifiquei os comandos enviados...

[EMBarbosa]

Em 14/03/2020 at 10:48, marciomtk disse:

E2003 Undeclared identifier: 'Mensagem'

Isso pode indicar que você tem cópias do arquivo em questão ou da sua versão compilada (.dcu) sendo encontrada pelo Delphi. Não é uma afirmação, mas uma possibilidade.

[marciomtk]

3 horas atrás, Daniel Simoes disse:

Não compreendi... eu não modifiquei os comandos enviados...

Nesse post que eu comentei.... o usuário questionou que a lista de mensagens  só carrega se realizar o envio de um sms primeiro...... ai o outro usuário postou uma correção onde a lista de mensagem carrega sem ter que realizar o envio.... 

 

Envie o modem pela transportadora.... deve chega no máximo em 7 dias.

dar pra rastrear por aqui http://www.jadlog.com.br/jadlog/home

procedure TACBrSMSClass.ListarMensagens(const AFiltro: TACBrSMSFiltro;
  const APath: String);
var
  cmd: String;
  Retorno: String;
  I: Integer;
begin
  // ESSA ERA A PARTE QUE FALTAVA
  // definir o modo de envio ***************************************************
  Cmd := 'AT+CMGF=1';
  Self.EnviarComando(Cmd);
  if not Self.ATResult then
    raise EACBrSMSException.Create(FALHA_INICIALIZACAO + sLineBreak + fpUltimaResposta);
  // FIM DA PARTE QUE FALTAVA

  case AFiltro of
    fltTudo:     cmd := 'AT+CMGL="ALL"';
    fltLidas:    cmd := 'AT+CMGL="REC READ"';
    fltNaoLidas: cmd := 'AT+CMGL="REC UNREAD"';
  end;
  Self.EnviarComando(cmd);
  if Self.ATResult then
  begin
    Retorno := EmptyStr;
    for I := 0 to Length(fpUltimaResposta) - 1 do
    begin
      if not(fpUltimaResposta[I] in [#0, #5, #$18, #$C]) then
        Retorno := Retorno + fpUltimaResposta[I];
    end;
    fpUltimaResposta := Trim(Retorno);
    WriteToTXT(AnsiString(APath), AnsiString(fpUltimaResposta), False, True);
  end;
end;

[Daniel Simoes]

Muito Obrigado...

Assim que tiver o Modem para testes... eu analiso esse caso e o indicado no tópico...

[Daniel Simoes]

Em 16/03/2020 at 13:51, marciomtk disse:

Envie o modem pela transportadora.... deve chega no máximo em 7 dias.

Recebi o modem... muito obrigado...

Agora preciso achar um adaptador de Micro SIM, para SIM... após isso devo iniciar os teste...