Recibir SMS a través de DcodSMS

Antes de cualquier cosa necesitan tener una cuenta de DcodSMS y para eso nos la pueden solicitar mandándonos un correo a info@qbit.com.mx

Adicionalmente, es importante mencionarles que este ejemplo es para consumir unos WebServices directamente desde su aplicación desarrollada en Delphi pero puede utilizar nuestra aplicación Paloma (https://qbit.com.mx/dcodsms/paloma/)

Ahora manos a la obra con nuestro ejemplo de Delphi 10 2006.

1.- Crear un nuevo proyecto de Delphi.

2.- Agregar un componente TMemo con las siguientes propiedades:

• Name: smsRecibidos.
• Lines: vaciar los valores por omisión.

3.- Agregamos un componente TButton con las siguientes propiedades:

• Caption: Recibir.

4.- Ahora vamos a importar el WSDL para poder consumir los Web Services. Esto se hace en el menú que se muestra en la siguiente imagen:

5.- A continuación nos aparecerá una pantalla en la que debemos escoger el tipo del item nuevo, en este caso un nuevo WSDL Importer.

6.- Damos clic en Aceptar y aparece la pantalla siguiente, en donde debemos colocar la URL del WSDL de DcodSMS, esta url es http://sms.mexhico.com/smsdcodserver.php?wsdl

7.- Presionamos el botón Finish y aparece la siguiente pantalla de confirmación.

8.- Regresamos a nuestra forma y agregamos un componente más, hay que tomarlo de la pestaña de Web Services en la paleta de componentes, el componente que usaremos es de tipo THTTPRIO como se muestra en la siguiente imagen:

9.- Ahora vamos al código y agregamos la referencias hacia el recién creado smsdcodserver.pas, esto lo hacemos debajo de la línea implementación:

uses smsdcodserver;

10 .- Nuestro código lo pondremos en el evento clic del Botón, pondremos lo siguiente:

procedure TForm1.Button1Click(Sender: TObject);
var
  Respuesta: ArrayOfReceiveds;
  cont : integer;
begin
 
  cont := 0;
  HTTPRIO1.WSDLLocation := 'http://qbit.com.mx/dcodsms/smsdcodserver.php?wsdl';
  Respuesta := (HTTPRIO1 as ServicePortType).getAnswersHistory('miusuario','micontrasegnia');
 
  while cont < Length (Respuesta) do
  begin
    smsRecibidos.Lines.Add(Respuesta[0].message_);
    Inc(cont);
  end;
end;

11 .- Cambien el usuario y la contrasegna por los datos de su cuenta.

12 .- Ahora es momento de echar a arrancar nuestra aplicación.

Pueden descargar el código

Miguel Salinas

Analista/Desarrollador y cofundador de QBit Mexhico. Tecnologías utilizadas Android, Java (EJB, Servlets, Faces, Groovy & Grails, Maven, Swing), .Net (C#, VB, ASP, MVC), Delphi, Spring, Hibernate, DTSx, Oracle, T-SQL, Firebird, MySQL, MongoDB, NodeJs, ReactJs (Flux). Sistemas Operativos Mac, Ubuntu y Windows.