Ir para conteúdo
  • Cadastre-se

dev botao

DECODIFICAR SMS COM ASCII


  • Este tópico foi criado há 1456 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Fundadores

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

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

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 

Link para o comentário
Compartilhar em outros sites

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....

 

Link para o comentário
Compartilhar em outros sites

  • Consultores
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.

  • Curtir 1

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

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;

2020.jpg

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • 3 semanas depois ...
  • Fundadores
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...

  • Curtir 2
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.