Abcrsms

[Maurício Sareto]

Pessoal estou homologando um sistema para o envio de SMS usando modem Daruma.

Gostaria de saber qual o formato do numero do celular do destinatário que eu devo informar para o envio da mensagem? E se tem como alterar entre um tipo e outro, como por exemplo, com DDD ou sem DDD?

 

Agradeço respostas

 

Att.

[Maurício Sareto]

Duvida ja esclarecida, o envio de mensagem não necessita de DDD

 

Obrigado

[Régys Silveira]

Você pode utilizar o formato normal de número com ddd ou sem, se usar com lembre de usar somente os dois digitos.

[Maurício Sareto]

Obrigado Régys ja consegui Resolver...

Obrigado mesmo assim

[Maurício Sareto]

Galera, agora estou com outro problema no envio de lote... Ao enviar normal ele manda a mensagem normal, mas quando tento enviar um lote de mensagem ele me retorna erros, manda a mensagem para alguns destinatários mas manda sem conteúdo, manda uma mensagem em branco...

 

Retorna os seguintes erros:

Classe: EACBrSMSException - Falha ao definir o número de telefone do destinatário.

Classe: EACBrSMSException - Falha ao definir o número de telefone do destinatário.

 

Ja envia uma por uma para todos os destinatários, deu tudo certo...

 

Se alguem puder me ajudar, Obrigado...

[Régys Silveira]

Pelo erro, o problema está no número de telefone que está sendo passado, ou ele está em um formato não reconhecido ou não é válido.

[Maurício Sareto]

Sim Régys também achei que poderia ser isso o problema, mas ai testei de fone por fone enviando de um por um o lote que eu tinha passado e o sistema enviou normalmente...

Estou achando estranho ele enviar a mensagem em branco mesmo dando o erro...

[Maurício Sareto]

Descubri qual é o problema Régys, só não consegui resolver...

 

Estou fazendo um rotina e adicionando o numero do fone e a mensagem assim... limpaString é uma função que eu uso para tirar caracteres que não quero usar na string...

             LoteMsgs.Add.Telefone := limpaString(dmSistema.CdsContatosFONE.Text);
             LoteMsgs.Add.Mensagem := Memo1.Text;

 

o primeiro número ele leva certo, o segundo ele leva sem nada, mas estou passando corretamente os numeros....

 

O problema acredito que esteja aqui

 

TotalMensagensLote := ALote.Count;
for I := 0 to TotalMensagensLote - 1 do

 

Deveria ser igual a 2 o ALote mas esta gerando como 4...
 

[Régys Silveira]

O problema está na forma que você está usando, isso:

LoteMsgs.Add.Telefone := limpaString(dmSistema.CdsContatosFONE.Text);
LoteMsgs.Add.Mensagem := Memo1.Text;

Deve ser feito assim:

with LoteMsgs.Add do
begin
  Telefone := limpaString(dmSistema.CdsContatosFONE.Text);
  Mensagem := Memo1.Text;
end;

[Maurício Sareto]

Eu estou tendo muitas dificuldades em trabalhar com o acbrSMS... 

Ontem testei de todas as maneiras para acha a solução que você postou, as primieras que tentei enviar dava erro, depois começou enviar de uma hora para outra, agora da falha ao definir número do destinatário, as vezes da indice da mensagem invalida. De 10 sms que eu tento mandar 1 da certo...

 

[Régys Silveira]

Pelo que estou vendo você não está utilizando corretamente o componente somente isso, veja o trecho que te passei anteriormente, isso está no demo como fazer, bastaria estudar o demo.

[Maurício Sareto]

while not (dmSistema.CdsContatos.Eof) do

        begin

          if(grupo = dmSistema.CdsContatosGRUPO.Value)then

           begin

             with LoteMsgs.Add do

             begin

               Telefone := limpaString(dmSistema.CdsContatosFONE.Text);

               Mensagem := Memo1.text;

             end;

           end;

           dmSistema.CdsContatos.Next;

        end;

 

Estou incluindo o fone e a mensagem...

 

da erro aqui

 

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

  Cmd := Trim(AMensagem)+ CTRL_Z;

  Self.EnviarComando(Cmd);

  if not Self.ATResult then

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

[Régys Silveira]

Qual é a mensagem específica do erro?

[Maurício Sareto]

Bom dia Régys, até agora tudo caminhando como deve, o modem se comportando de maneira correta e não obtive mais erros...

 

Gostaria de tirar algumas duvidas...

 

Existe maneira de listar as mensagem enviadas?

Existe maneira de listar as mensagem recebidas pelo modem?

[Régys Silveira]

As mensagens enviadas geralmente é a aplicação que controla.

As mensagens recebidas ainda não foi implementada a lista, mas ele já baixa um .txt com as mensagens recebidas, falta popular uma lista (que já está pronta) e apagar o arquivo.

[Maurício Sareto]

As mensagens enviadas geralmente é a aplicação que controla.

As mensagens recebidas ainda não foi implementada a lista, mas ele já baixa um .txt com as mensagens recebidas, falta popular uma lista (que já está pronta) e apagar o arquivo.

 

Certo, ao tentar abrir no demo o formulário ListaMensagem, ele da erro na propriedade ListaMensagem, sabes me dizer o porque?

[Régys Silveira]

Veja que eu disse que ela ainda não foi implementada.

[Maurício Sareto]

certo... eu aguardo...

[Maurício Sareto]

Agora começaram a vir os problemas... Régys ao tentar trocar de bandeja tenho um retorno de que o modelo só possui uma bandeja, mas estou usando um modem da daruma com dois chips, e no demo ele altera entre uma bandeja e outra sem problemas, você saber me informar o que pode ocasionar esse problema??

 

Desculpe pelo transtorno...

[Régys Silveira]

Veja, se no demo funciona, então não é problema no componente, com certeza é o código implementado, você pode começar comparando os código para tentar achar o que está diferente.

[Maurício Sareto]

Régys, boa tarde....

 

Já teve alguma vez problema de Acesso negado ao mandar o ACBRSms Ativar??

 

Até

[Régys Silveira]

Se algum software estiver utilizando o modem sim.

 

Régys, boa tarde....

 

Já teve alguma vez problema de Acesso negado ao mandar o ACBRSms Ativar??

 

Até

[Maurício Sareto]

Régys estou com erro nessa função ao testar o demo, tentei trocar de modem para ver se resolve mas não deu certo, estou usando modem da daruma...

 

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

  Cmd := Trim(AMensagem) + CTRL_Z;
  Self.EnviarComando(Cmd);
  if not Self.ATResult then
    raise EACBrSMSException.Create(FALHA_ENVIAR_MENSAGEM + sLineBreak + fpUltimaResposta);

 

O erro é o seguinte:

 

Não é possivel enviar a mensagem de texto.

ERROR
 

 

Aguardo resposta

[Régys Silveira]

Existe saldo para envio de mensagem?

A rede de celular está OK?

Esse erro é após o envio, geralmente tem a ver com o chip ou a rede celular.