como enviar un sms con Delphi con zenvia

Zenvia es la empresa líder en movilidad corporativa de Brasil y ofrece a sus clientes la posibilidad de gestionar los envíos SMS desde aplicaciones externas. El método que presento es la forma de gestionar esos envíos desde una aplicación realizada en Delphi.


Ajuste el envío

Primer paso
Haga la  descarga de la biblioteca de integración  en ella se encuentran los  
siguientes archivos:. HumanApiClient 
   Indy _9_00_17_ src. Zip.

Paso 2
Añadir a la  ruta de búsqueda  de  Delphi  el directorio donde están las fuentes del paquete
Indy  y el paquete  HumanClient.

Paso 3
Para cualquier operación de  acceso a enviar  SMS, es necesario identificarse con su
cuenta y código de acceso. Vamos a trabajar con instancias de clases TSimpleSending   TMultipleSending  para el manejo de  SMS  (envío y consulta) 
a través de sus parámetros del constructor de su cuenta y código de acceso.  
Estos datos son transferidos por 
 Zenvia  junto con la negociación del contrato  
firmado con la empresa.

Ejemplo:

sms: = TMultipleSending.create ('Cuenta', 'contraseña');
Envío de  SMS  de forma individual
Primer paso
Utilizar una instancia de la clase  TSimpleSending con su cuenta y contraseña.
Ejemplo:

var
    ret: string;
    sms: TSimpleSending;
comenzar  
    sms: = TSimpleSending.create ('Cuenta', 'contraseña');

Paso 2
Agregue la información de  Para  (requerido)  Mensaje  (requerido)  De  (opcional), Id  (opcional) Horario  (opcional) y devolución de llamada  (opcional)
 
Ejemplo:

sms.From: = 'YourCo';
sms.ToNumber: = 'NumeroDeDestino';
sms.Msg: = 'SuaMensagem';


Paso 3
Llame al método  TSimpleSending.send

Ejemplo:
ret: sms.send = ();

Paso 4

El método de envío de retorno es una  cadena;el  texto que se puede ver en el código y la descripción de la solicitud y el estado 
 de SMS  enviados.
Ejemplo:

StatusBar1.Panels [0] .Text: = ret;    

Envío múltiple  de SMS
Primer paso
Instancia de la clase  TMultipleSending con su cuenta y contraseña.
Ejemplo:

var
    ret: TStrings;
    sms: TMultipleSending;
    Fecha: string;
    typeLayout: string;
comenzar
    sms: = TMultipleSending.create ('Cuenta', 'contraseña');
   
Paso 2

Llame al método  TMultipleSending.LoadList, para llenar una  cadena 
con la lista de  SMS  para ser enviados y el  tipo de diseño de la lista.
En nuestro ejemplo, vamos a elegir la 
 disposición  A, que consiste en
 
"numeroDeTelefone; textoDaMensagem".

Ejemplo:

fecha: = '555199990101; testen555199990102 mensaje; Mensaje de prueba ";
typeLayout: = 'A';
sms.LoadList (fecha, typeLayout);

Paso 3
Llame al método  TMultipleSending.send, a través de clases de parámetros ListResource.
Ejemplo:

ret: sms.send = ();

Paso 4
El método de envío de retorno es un  TStrings; texto que se puede incluir en el código junto con la descripción de la solicitud y el estado del  SMS  enviado a través  de devolución de llamada.
Ejemplo:

ShowMessage (ret.Text);


Fuente: 
programadordelphiatual.blogspot.com.es

2 comentarios: