Tutorial de integração Delphi para envio de SMS - Zenvia

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');

Segundo passo

Adicione as informações To (obrigatório), Message (obrigatório), From (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.

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);

Fonte: Zenvia