Chamada HTTP para envio de SMS

Hermeto · Mensagem por **Hermeto** » 20 Set 2009 20:06

Contratamos pelo site www.fastsms.com.br crédito para envio de sms, no entanto o sistema de contatos é precário, por isso estamos precisando de uma rotina para envio de sms pelo nosso sitema desevolvido em clipper utilizando uma chamada http de acordo com orientacao a seguir:

Código: Selecionar todos

http://www.fastsms.com.br/sms.cfm?id=MeuID&senha=MinhaSenha&para=XXXXXXXXXX&texto=Meu+texto

No site ele tem orientacao para outras linguagens
http://www.fastsms.com.br/como-funciona.htm

Pode ser bem fácil, desculpem a ignorancia, é que deixei de ser programador profissional desde 1998 e desde entao apenas dou manutencao no sistema que criei na época que utilizo em nossa empresa Corretora de Seguros. QUer dizer, meus conhecimento ficaram bem restritos ao antigo summer 87.

Para os desenvolvedores, favor apresentar orcamento para solucao acima.

Atenciosamente,

Hermeto Aguiar Júnior
Master Parceria Corretora de Seguros
www.masterparceria.com.br
(85)3306-5040 - 9985-0360

Mensagem por **Maligno** » 20 Set 2009 20:59

Olá.
Seja bem-vindo ao fórum.

O que você precisa é apenas um meio de acessar o protocolo HTTP pelo Clipper. Nativamente não é possível, você deve saber. Entretanto, há uma biblioteca que permite isso de forma simples. É a biblioteca WAPI, com a função DLoadFile(). Exemplo simples:

Código: Selecionar todos

loca cRet := ""
local cLink := "http://www.fastsms.com.br/sms.cfm?id=MeuID&senha=MinhaSenha&para=XXXXXXXXXX&texto=Meu+texto"

if DLoadFile(cLink,@cRet)
   // Função executada normalmente!
   // Se há uma página de retorno, seu conteúdo está
   // na variável cRet, passada por referência.
end

Isso é feito através de um programa externo com o qual o programa Clipper se comunica por arquivos texto. Mas no uso dessa biblioteca, os procedimentos de repasse de argumentos e o tratamento do retorno (em ambos os casos sempre texto), tudo é feito de forma automática. A função em questão retorna TRUE se o procedimento foi executado com sucesso. Em caso contrário, há uma interface para análise dos códigos de retorno.

Há um tópico especialmente criado para esta biblioteca, na seção "Ferramentas de Apoio". Clique aqui para ir até a mensagem que contém uma descrição do conteúdo da última versão. O endereço para download está lá.

Se quiser discutir sobre essa ou alguma outra função dessa biblioteca, por favor, utilize aquela seção, naquele mesmo tópico. Assim facilitamos a organização do fórum.

Hermeto · Mensagem por **Hermeto** » 21 Set 2009 21:20

Prezado Maligno,

Não temos palavras...

) :{ :)Pos :|< :-Y

Desculpa a ALEGRIA DEMASIADA, mas imaginar que o nosso Sistema em CLIPPER é capaz de enviar e-mail automaticamente (SMTPSEND) para os nossos Segurados informando parcelas em aberto/atraso e informar que o seguro irá vencer, E AGORA com a utilizacao da biblioteca WAPI, podemos enviar SMS para os nossos segurados, utilizando a funcao DLOADFILE() junto com os servicos contratados previamente no site www.fastsms.com.br, é sem dúvida SHOW DE BOLA.

Por isso MUITO OBRIGADO POR VOCÊ EXISTIR....

Em resumo, para quem um dia possa imaginar o que isso implica: O Sistema em CLIPPER agora pode enviar SMS PERSONALIZADO para os clientes no dia do aníversário, quando as parcelas estiverem em aberto, quando determinado produto estiver em falta no estoque, será enviado SMS informando ao fornecedor, milhares de aplicacoes pode ser adaptada e utilizada... Para isso, utilizando servicos pré-pagos de SMS e utilizando a BENDITA, BENDITA, BENDITA funcão da Biblioteca WAPI.

Abracos e Muito Obrigado!

Atenciosamente,

Hermeto Aguiar Júnior
Master Parceria Corretora de Seguros
www.masterparceria.com.br
(85)3306-5040 - 9985-0360

Mensagem por **Maligno** » 22 Set 2009 00:49

Estamos aí pra isso mesmo.

Aliás, também quero agradecer pelo link dessa empresa de SMS. Como é o tipo da coisa que nunca precisei, não sabia que existia. Mas é bom saber que temos este recurso, e num preço tão acessível.

PS: Aproveite para ler o README incluso nesta biblioteca, para conhecer mais detalhes desta e das demais funções. É um material extenso. Eu passei um exemplo dos mais simples, mas há muito mais, como por exemplo a função IsInternet(), para descobrir se há uma conexão ativa. Mais um exemplo, que informa a hora de um servidor:

Código: Selecionar todos

function Main(cState)
set date british
set century off
*
clear
if IsInternet()
   cSrv := "buzinello.com"
   cRet := ""
   if DLoadFile("www."+cSrv+"/servertime.php",@cRet)
      ? "No servidor " + cSrv + ":"
      ? "--------------------------"
      ? "Data: " + DtoC(StoD(Left(cRet,8)))
      ? "Hora: " + Transf(Right(cRet,6),"@R 99:99:99")
   else
      ? "ERRO desconhecido!"
   end
else
   ? "ERRO: desconectado ou bloqueado pelo firewall!"
end
?

Há um EXE pronto nesse ZIP.

Mensagem por **alxsts** » 22 Set 2009 02:04

Olá!

Este tópico tambem contribuiu para enriquecer meus conhecimentos. Vejam:
- Faz um ano que participo do Clipper On Line. Sabia da existência da WAPI.
- Há quase um ano precisei de algo para colocar/retirar coisas do clipboard.
- Vi neste forum as funções da OSLIB e que não funcionam no XP. Mas não vi este tópico... desisti.

Bem, nunca é tarde mesmo... Vou fazer o download da WAPI e estudar.

Mensagem por **Maligno** » 22 Set 2009 02:21

Lembrando os amigos: qualquer dúvida sobre a WAPI, apesar de ser Clipper, usem o tópico dedicado a ela, pra que não fique OFF-TOPIC nesta seção.

Romeu · Mensagem por **Romeu** » 22 Set 2009 23:01

Achei interessante este tópico, mas gostaria de aprender a usar a lib wapi.

O que eu fiz:

baixei a wapi_v1.03
copiei a wapi.lib para c:\clipper5\lib
peguei o ex: do Maligno "function Main(cState)" e copiei como teste.prg
compilei: clipper teste
linkei: rtlink fi teste lib wapi

e entao:

undefined symbols after library search: first reference

'swpruncmd' wapi.lib
'dirchange' wapi.lib
....

faltou linkar com outra lib alem da wapi?

qquer ajuda eu agradeço.

Romeu

Mensagem por **alxsts** » 22 Set 2009 23:45

Olá!

Seja bem-vindo ao forum!

Creio que só vai funcionar se voce linkar com Blinker, ao invés do rTLink.

Por favor, observe a recomendação do Maligno:
"Lembrando os amigos: qualquer dúvida sobre a WAPI, apesar de ser Clipper, usem o tópico dedicado a ela, pra que não fique OFF-TOPIC nesta seção."

Romeu · Mensagem por **Romeu** » 23 Set 2009 13:22

Tenho visto muitas duvidas com relação ao blinker. Prefiro continuar com meu velho e bom rtlink.

Será que a wapi não pode mesmo ser usada com rtlink ?

Em tempo, postei aqui por estar interessado mesmo no assunto deste tópico.

Obrigado a quem ajudar.

Mensagem por **Maligno** » 23 Set 2009 13:43

Pode usar o RTLink sem problema. Vai aparecer um erro de link-time, pois há uma chamada à função SwpRunCmd(). Basta ignorar esse erro. Em run-time não haverá erro algum, porque a função que executa a linha de comando tem uma checagem de erro, que sentindo a falta de SwpTunCmd(), acabará usando o velho comando RUN.

Mas a biblioteca CATools, infelizmente, ainda não deu pra dispensar. Você precisará dela (é o tal erro que fala sobre "dirchange").

Mário Isa · Mensagem por **Mário Isa** » 20 Out 2011 07:39

Bom dia!
Há muito tempo atrás vi este tópico, fiz o cadastro no site fastsms.

Ocorre que logo ao fazer já não enviava prá claro.
Toda hora aparece uma mensagem q diz q vai resolver e já faz quase um ano e nada.

Agora não envia prá VIVO

Só prá TIM e OI pelo jeito.

Alguém sabe de um outro serviço ?

Mário

Mensagem por **sygecom** » 25 Out 2011 07:53

Olá Mario,
Meus clientes usam:
www.byjg.com.br
e
www.comtele.com.br

ANDRIL · Mensagem por **ANDRIL** » 25 Out 2011 16:42

Leonardo, tambem estou precisando do serviço, porem estes links fornecem apenas pacotes para grande volume de SMS, procuro algo nao tão estravagante, apenas para os usuários do sistema, para comunicar seus clientes sobre alguma ocorrencia e nao fazer propaganda ou algo do genero.

Acho que deveria ter pacotes mais acessiveis..., na empresa fastsms tinha, mais pelo jeito para operadoras restritas.

Em tempo, aqui na empresa estamos projetando justamente este serviço (disponibiliza-lo) mais nao so para nos, abrangendo o cliente final, como estes sites citados (podera enviar via aplicativo do desenvolvedor, ou via site que criaremos) gostaria de saber se haveria interesse neste serviço, fornecendo-os com mais opcoes de pacotes, para adequar a necessidade de cada um, alem de enviar para a maioria das operadoras moveis.

Vejam que isso é um projeto apenas, dependendo do interesse, ponho pilha nisso aqui para agilizar o processo.

Ate+

Mensagem por **sygecom** » 25 Out 2011 17:08

Olá Andril,

Eu particularmente estou usando os dois que citei pelo meu sistemas, mas é sempre bom ter opções a mais, e sempre tem gente interessada pela internet a fora em planos mais em conta, se você resolver fazer algo para integrar com aplicativos(web service) quem sabe o povo se anima. boa sorte.

ANDRIL · Mensagem por **ANDRIL** » 25 Out 2011 17:33

Leonardo, iniciamente a ideia é passar os dados via query string, atraves de um endereço que será fornecido. O mesmo procedimento da empresa "fastSMS".

Ate+

PC Toledo