ACBrSMS

[Dangelo2010]

Como funciona esse novo projeto, o que precisa para ele funcionar corretamente?

Grato!

[Régys Silveira]

O ACBrSMS permite enviar SMS de modens Daruma e Modens 3G normais utilizando um chip de celular normal e o seu plano de envio de mensagens, dê uma olha no Demo disponível na pasta Exemplos, lá já tem a demonstração de todas as rotinas.

[dionatan]

Interessante, acho so que faltou um pouco mais de explicação do COMPONENTE..

olhei o exemplo agora e surgiu varias e varias duvidas....

[Régys Silveira]

Ainda estou fazendo o componente, e algumas coisas ainda não foram colocadas, mas o Demo está bem completo e explicado, o componente não é muito complexo, bem simples até.

Ele visa simplesmente utilizar modens 3G ou industriais para o envio de sms, somente isso, o componente nasceu da demanda de vários usuários por esse tipo de aplicação.

[sandrojca]

Parabéns pela iniciativa regys.silveira.

Vou testar o componente.

[Rafael Oliveira]

Olá amigos do fórum fiquei muito interessado neste componente, mas ficou uma duvida

ele só envia os sms teria como eu ver as mensagens recebidas?

[Régys Silveira]

Ele vai ler as mensagens recebido, e que ainda não tive tempo de terminar, está semana estava viajando e agora estou parado porque fiquei doente, mas farei o possível para semana que vem liberar a leitura das mensagens também.

[wagner aragao]

Olá Regys,

Esse projeto poderá ser utilizado com arquivo TXT como o ACBRNFeMonitor e ACBRMonitor ou somente atraves dos componentes do delhpi/lazarus ??

t+

[Régys Silveira]

Depois que ele estiver totalmente pronto podemos sim verificar uma forma de incorporá-lo ao ACBrMonitor, só peço que espero mais um tempo porque o componente ainda está em fase de desenvolvimento.

[igoluciano]

Olá pessoal, estou testando o ACBrSMS com o modem ZTE MF100 e ao tentar enviar uma mensagem tanto individual quanto em lote pelo sistema demo o mesmo dá um erro "Communication error 9997: Timeout during operation" alguém sabe como resolver? (em lote o mesmo só envia a mensagem para o primeiro número do lote)

[Régys Silveira]

Essa mensagem provavelmente acontece porque tua operadora está levando mais do que os 10 segundos configurados por padrão para enviar o SMS, aumente o valor da propriedade ATTimeout, já vi casos de ter que colocar 30 segundos para passar, depende de cada operadora.

O envio em lote permite enviar para mais de um número de telefone, basta formar o lote com as mensagens que deseja seguindo os padrões mostrados no demo.

[igoluciano]

Pessoal, encontrei o erro ... no arquivo ACBrSMSClass.pas onde tem:

// definir o número de telefone do destinatário ******************************

Cmd := 'AT+CMGS="' + ATelefone + '"';

Self.EnviarComando(Cmd);

if not Self.ATResult then

raise EACBrSMSException.Create(FALHA_NUMERO_TELEFONE + sLineBreak + fpUltimaResposta);

// Enviar a mensagem *********************************************************

Cmd := Trim(AMensagem) + CTRL_Z;

Self.EnviarComando(Cmd);

if not Self.ATResult then

raise EACBrSMSException.Create(FALHA_ENVIAR_MENSAGEM + sLineBreak + fpUltimaResposta);

######################################################################

Substituir por:

// definir o número de telefone do destinatário ******************************

Cmd := 'AT+CMGS="' + ATelefone + '"' + #13#10; // Modificado

Self.EnviarComando(Cmd);

if not Self.ATResult then

raise EACBrSMSException.Create(FALHA_NUMERO_TELEFONE + sLineBreak + fpUltimaResposta);

// Enviar a mensagem *********************************************************

Cmd := Trim(AMensagem) + #26; // Modificado

Self.EnviarComando(Cmd);

if not Self.ATResult then

raise EACBrSMSException.Create(FALHA_ENVIAR_MENSAGEM + sLineBreak + fpUltimaResposta);

[igoluciano]

O problema que estou enfrentando agora é em Ler as mensagens recebidas ... não estou conseguindo! Se alguém tiver uma sugestão ....

[Régys Silveira]

Pessoal, encontrei o erro ... no arquivo ACBrSMSClass.pas onde tem:

// definir o número de telefone do destinatário ******************************

Cmd := 'AT+CMGS="' + ATelefone + '"';

Self.EnviarComando(Cmd);

if not Self.ATResult then

raise EACBrSMSException.Create(FALHA_NUMERO_TELEFONE + sLineBreak + fpUltimaResposta);

// Enviar a mensagem *********************************************************

Cmd := Trim(AMensagem) + CTRL_Z;

Self.EnviarComando(Cmd);

if not Self.ATResult then

raise EACBrSMSException.Create(FALHA_ENVIAR_MENSAGEM + sLineBreak + fpUltimaResposta);

######################################################################

Substituir por:

// definir o número de telefone do destinatário ******************************

Cmd := 'AT+CMGS="' + ATelefone + '"' + #13#10; // Modificado

Self.EnviarComando(Cmd);

if not Self.ATResult then

raise EACBrSMSException.Create(FALHA_NUMERO_TELEFONE + sLineBreak + fpUltimaResposta);

// Enviar a mensagem *********************************************************

Cmd := Trim(AMensagem) + #26; // Modificado

Self.EnviarComando(Cmd);

if not Self.ATResult then

raise EACBrSMSException.Create(FALHA_ENVIAR_MENSAGEM + sLineBreak + fpUltimaResposta);

Se você prestou atenção aos fontes percebeu que o método enviarcomando adiciona automaticamente o #13#10 ao final do comando e que a constante CTRL_Z é igual ao #26, estas modificações portanto não fariam efeito algum, aumento o tempo no ATTimeout que vai funcionar.

Você instalou corretamente o driver do modem?

[igoluciano]

É Regys, verdade .... acho que na hora que testei na primeira vez não estava instalado o drive correto ... e sobre o recebimento vc tem alguma idéia?

[Régys Silveira]

Quanto as mensagens recebidas, veja no demo, o método ainda não está terminado mas ele retorna um arquivo com as mensagens, no futuro ao invés do arquivo será criada uma lista estou trabalhando nisso ainda e como tenho pouca informação dos retornos disponíveis e ando meio doente, então ta andando meio devagar essa parte.

[igoluciano]

Régys, no Demo aqui só aparece OK no arquivo mensagens.txt .... não chega nenhuma mensagem.

[Régys Silveira]

Régys, no Demo aqui só aparece OK no arquivo mensagens.txt .... não chega nenhuma mensagem.

veja nos fontes do demo, é passado ao método um parametro string com o path do arquivo, basta procurar por este arquivo que as mensagens estarão dentro dele, você pode personalizar também onde será gravado.

[igoluciano]

Régys, eu achei o arquivo e como lhe disse ... "dentro dele só aparece um OK e mais nada de mensagem"... será que num falta algum loop para obter o restante das mensagens?

[Régys Silveira]

Tem certeza que tem mensagens para esse SimCard? Aqui eu fiz testes com dois SimCards diferentes e todos retornaram corretamente.

O normal do arquivo quando tem mensagens e ter a lista das mensagens, saltar uma linha e depois um OK mostrando o fim do arquivo.

[igoluciano]

Régys, para conseguir ler eu tive de fazer as seguintes alterações em "procedure TACBrSMSClass.ListarMensagens(const AFiltro: TACBrSMSFiltro;

const APath: String);" ... e antes de ...

###############################

case AFiltro of

fltTudo: cmd := 'AT+CMGL="ALL"';

fltLidas: cmd := 'AT+CMGL="REC READ"';

fltNaoLidas: cmd := 'AT+CMGL="REC UNREAD"';

end;

###############################

Coloquei:

###############################

// definir o modo de envio ***************************************************

Cmd := 'AT+CMGF=1';

Self.EnviarComando(Cmd);

if not Self.ATResult then

raise EACBrSMSException.Create(FALHA_INICIALIZACAO + sLineBreak + fpUltimaResposta);

// definir ver todas as mensagens ***************************************************

Cmd := 'AT+CPMS="MT"';

Self.EnviarComando(Cmd);

if not Self.ATResult then

raise EACBrSMSException.Create(FALHA_LEITURA_MENSAGEM + sLineBreak + fpUltimaResposta);

case AFiltro of

fltTudo: cmd := 'AT+CMGL="ALL"';

fltLidas: cmd := 'AT+CMGL="REC READ"';

fltNaoLidas: cmd := 'AT+CMGL="REC UNREAD"';

end;

#####################################

Sem essas linhas que lhe informei ai, o comando AT+CMGL="ALL" dava ERROR

[igoluciano]

Régys, qual o modelo de modem que vc usa ai?

[Régys Silveira]

Posta o arquivo alterado para comparar, é mais simples.

Meu modelo é daruma.

Talvez o teu caso seja igual o ZTE que precisa de parametros adicionais, posta o arquivo que a noite eu acerto a classe.

Qual é o modelo do modem que você está utilizando?

[igoluciano]

Régys, o modelo do meu modem é um ZTE MF100, segue arquivo em anexo.

ACBrSMSClass.pas

[Régys Silveira]

Fiz uma atualização no modelo ZTE usando suas especificações, faça o teste e me reporte qualquer coisa.

Quando for mecher nos comandos faça na classe do modelo não na classe geral, nela ficarão somente os comandos AT padrão.

Obrigado pela ajuda com os testes.