Tutorial de integração Delphi
para envio de SMS
Configurando o
envio
Primeiro passo
Faça o download da biblioteca de integração Delphi nela se
encontram os
seguintes arquivos: HumanGatewayClient.zip e Indy_9_00_17_src.zip.
Segundo passo
Adicionar ao Search path do Delphi o diretório onde estão as fontes do pacote
Indy e do pacote da HumanClient.
Terceiro passo
Para qualquer operação do gateway de SMS, é preciso identificar-se com sua
conta e código de acesso. Trabalharemos com as instâncias das classes
TSimpleSending e TMultipleSending para manipulação de SMS (envio e consulta),
passando por parâmetros de seu construtor a sua conta e o código de
acesso.
Tais dados são cedidos pela Zenvia juntamente com a
negociação do contrato
firmado com a empresa.
Exemplo:
sms := TMultipleSending.create('conta',
'senha');
Enviando SMS individualmente
Primeiro passo
Instancie a classe TSimpleSending, informando a sua
conta e senha.
Exemplo:
var
ret : string;
sms : TSimpleSending;
begin
sms := TSimpleSending.create('conta', 'senha');
para envio de SMS
seguintes arquivos: HumanGatewayClient.zip e Indy_9_00_17_src.zip.
TSimpleSending e TMultipleSending para manipulação de SMS (envio e consulta),
Tais dados são cedidos pela Zenvia juntamente com a negociação do contrato
firmado com a empresa.
Segundo passo
Adicione as informações To (obrigatório), Message (obrigatório), From (opcional),
Id (opcional), Schedule (opcional) eCallback (opcional)
Id (opcional), Schedule (opcional) eCallback (opcional)
Exemplo:
sms.From := 'SuaEmpresa';
sms.ToNumber := 'NumeroDeDestino';
sms.Msg := 'SuaMensagem';
Terceiro passo
Chame o método TSimpleSending.send.
Exemplo:
ret := sms.send();
Quarto passo
O retorno do método de envio é uma string; nesse texto é possível resgatar
o código e a descrição da requisição e do estado do SMS enviado.
Exemplo:
StatusBar1.Panels[0].Text := ret;
Enviando Múltiplos SMS
Primeiro passo
Instancie a classe TMultipleSending, informando a sua
conta e senha.
Exemplo:
var
ret : TStrings;
sms : TMultipleSending;
data : string;
typeLayout : string;
begin
sms := TMultipleSending.create('conta',
'senha');
Segundo passo
Chame o método TMultipleSending.LoadList, informando uma string
com a lista de SMS a serem enviados e o tipo de layoutda lista.
Em nosso exemplo, escolheremos o layout A, que consiste em
“numeroDeTelefone;textoDaMensagem“. Para adicionar mais
de um SMS, inclua o caractere n entre as strings.
com a lista de SMS a serem enviados e o tipo de layoutda lista.
Em nosso exemplo, escolheremos o layout A, que consiste em
“numeroDeTelefone;textoDaMensagem“. Para adicionar mais
de um SMS, inclua o caractere n entre as strings.
Exemplo:
data := '555199990101;Mensagem de
testen555199990102;Mensagem de teste';
typeLayout := 'A';
sms.LoadList(data, typeLayout);
Terceiro passo
Chame o método TMultipleSending.send, passando por parâmetro a classe ListResource.
Exemplo:
ret := sms.send();
Quarto passo
O retorno do método de envio é uma TStrings; nesse texto é
possível resgatar o código e a descrição da requisição e do estado dos SMS enviados por meio do Callback.
Exemplo:
ShowMessage(ret.Text);