Acbrsms

[silveriosepulveda]

Saudações.

 

Tive a necessidade de desenvolver um sistema de envio de sms via modem 3G, lí sobre o AcbrSms e achei muito interessante.

 

Já baixei os exemplos, aliás todos arquivos via SVN porém não encontro o pacote de intalação do AcbrSms.

 

Alguém sabe dizer onde baixo.

 

Desculpe a ignorância.

 

Desde já obrigado.

[Daniel Simoes]

ACBrSerial

[silveriosepulveda]

Muito Obrigado.

Instalei o ACBrSerial e está tudo ok, ou melhor quase tudo.

 

Está ativando, dando todas as informações, está em linha, tudo certo.

 

Porém está dando o erro:

Não foi possível enviar a mensagem de texto. +CMS ERROR: 500

 

Se alguém puder ajudar ficarei grato.

[silveriosepulveda]

Bom, depois de bastante testar, descobrí que este erro só ocorre com chip da claro.

 

Alguém tem alguma idéia do que possa ser?

 

Desde já obrigado.

[Régys Silveira]

Como você está enviando os SMSs, muitos de uma vez, qual quantidade? me dê uma ideia geral por favor.

[silveriosepulveda]

Obrigado pela atenção.

O erro era que o chip da vivo era meu, e o da claro do cliente, e o mesmo estava sem crédito, por isso o erro.

 

Agora já está funcionando normalmente.

 

O problema que está ocorrendo agora é quanto acentuação, pois quando tem acento dá erro de indice inválido.

 

E a meta do cliente é enviar cerca de 3000 SMSs uma vez a cada semana.

 

Desde já obrigado.

[Régys Silveira]

Quanto aos acentos, depende de cada operadora, alguma aceitam outras não, o ideal e sempre enviar sem acento ou ter uma configuração no seu aplicativo para configurar isso conforme a necessidade.

[silveriosepuloveda]

Muito obrigado pela atenção, já conseguí fazer o aplicativo e enviando uma média de 1500 SMSs por hora.

 

Gostaria de saber se já está pronto o módulo de recebimento de SMS?

 

Desde já obrigado.

[Régys Silveira]

O módulo de recebimento ainda não está pronto, falta fazer o tratamento do texto recebido e quebrar em mensagens.

[dionatan]

Alguem sabe me informar como e a tarifa das operadoras referente aos envios do SMS pelo PEN Modem? por exemplo eu tenho plano de Internet e pago 69.90 por mes da CLARO.. posso enviar qts sms eu quiser pelo aplicativo?

 

Valeu

[Juliomar Marchetti]

Dúvida nova tópico novo!

[silveriosepuloveda]

Show de bola, eu vou testar aqui quanto ao tratamento do texto, se tiver sucesso posto o resultado.

 

Muito obrigado por tudo.

 

Até...

[osvani]

Função para extrair acentos

 

function RACT(texto: string): string; stdcall;
{Função que serve para identificar uma acento, cedilha ou trema em caracteres com letra
maiúscula ou minúscula; recebe como variável uma string; retorna uma string.}
const
ComAcento = 'àâêôûãõáéíóúçüñÀÂÄÊÔÛÃÕÁÉÍÓÚÇÜ';
SemAcento = 'aaeouaoaeioucuNAAAEOUAOAEIOUCU';
var
x: Integer;
begin
for x := 1 to Length(texto) do
if Pos(texto[x], ComAcento) <> 0 then
texto[x] := SemAcento[Pos(texto[x], ComAcento)];
Result := texto;
end; // da função RemoveAcentoCedilhaTrema
 

 

para usar

 

edit1.Text:= ract(edit1.Text);

[Daniel Simoes]

Já existe em ACBrUtil.pas

 

function TiraAcentos( const AString : String ) : String ;