Chamada HTTP para envio de SMS

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Avatar do usuário
Hermeto
Usuário Nível 1
Usuário Nível 1
Mensagens: 10
Registrado em: 20 Set 2009 19:42
Localização: Fortaleza
Contato:

Chamada HTTP para envio de SMS

Mensagem por Hermeto »

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
Avatar do usuário
Maligno
Membro Master
Membro Master
Mensagens: 6398
Registrado em: 06 Jul 2004 01:40
Localização: Londrina/PR

Re: CHAMADA HTTP PARA ENVIO DE SMS

Mensagem por Maligno »

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.
[]'s
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.

---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
Avatar do usuário
Hermeto
Usuário Nível 1
Usuário Nível 1
Mensagens: 10
Registrado em: 20 Set 2009 19:42
Localização: Fortaleza
Contato:

Re: Chamada HTTP para envio de SMS

Mensagem por Hermeto »

Prezado Maligno,

Não temos palavras... :D :)) :{ :)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
Avatar do usuário
Maligno
Membro Master
Membro Master
Mensagens: 6398
Registrado em: 06 Jul 2004 01:40
Localização: Londrina/PR

Re: Chamada HTTP para envio de SMS

Mensagem por Maligno »

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.
[]'s
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.

---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
alxsts
Colaborador
Colaborador
Mensagens: 3092
Registrado em: 12 Ago 2008 15:50
Localização: São Paulo-SP-Brasil

Re: Chamada HTTP para envio de SMS

Mensagem por alxsts »

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.
[]´s
Alexandre Santos (AlxSts)
Avatar do usuário
Maligno
Membro Master
Membro Master
Mensagens: 6398
Registrado em: 06 Jul 2004 01:40
Localização: Londrina/PR

Re: Chamada HTTP para envio de SMS

Mensagem por 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.
[]'s
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.

---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
Romeu
Usuário Nível 1
Usuário Nível 1
Mensagens: 2
Registrado em: 22 Set 2009 22:42
Localização: Joinville

Re: Chamada HTTP para envio de SMS

Mensagem por Romeu »

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
alxsts
Colaborador
Colaborador
Mensagens: 3092
Registrado em: 12 Ago 2008 15:50
Localização: São Paulo-SP-Brasil

Re: Chamada HTTP para envio de SMS

Mensagem por alxsts »

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."
[]´s
Alexandre Santos (AlxSts)
Romeu
Usuário Nível 1
Usuário Nível 1
Mensagens: 2
Registrado em: 22 Set 2009 22:42
Localização: Joinville

Re: Chamada HTTP para envio de SMS

Mensagem por Romeu »

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.
Avatar do usuário
Maligno
Membro Master
Membro Master
Mensagens: 6398
Registrado em: 06 Jul 2004 01:40
Localização: Londrina/PR

Re: Chamada HTTP para envio de SMS

Mensagem por Maligno »

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").
[]'s
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.

---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
Mário Isa
Usuário Nível 4
Usuário Nível 4
Mensagens: 907
Registrado em: 07 Jul 2004 13:54
Localização: Ilha Solteira-sp

Chamada HTTP para envio de SMS

Mensagem por Mário Isa »

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
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Chamada HTTP para envio de SMS

Mensagem por sygecom »

Olá Mario,
Meus clientes usam:
www.byjg.com.br
e
www.comtele.com.br
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
Avatar do usuário
ANDRIL
Usuário Nível 5
Usuário Nível 5
Mensagens: 1297
Registrado em: 06 Jul 2004 00:44
Contato:

Chamada HTTP para envio de SMS

Mensagem por ANDRIL »

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+
Clipper 5.2e / Blinker 5.1 / Harbour 3.2 / GTwvg
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Chamada HTTP para envio de SMS

Mensagem por sygecom »

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.
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
Avatar do usuário
ANDRIL
Usuário Nível 5
Usuário Nível 5
Mensagens: 1297
Registrado em: 06 Jul 2004 00:44
Contato:

Chamada HTTP para envio de SMS

Mensagem por ANDRIL »

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+
Responder