De DcodSMSWiki
Este caso fue desarrollado usando Delphi 10 2006. Pero lo explicado aquí es completamente valido para otras versiones.
Lo primero es crear un nuevo proyecto de Delphi.
A continuación colocamos un TEdit, un TMemo y un TButton como se muestra en la figura.
Y definimos sus propiedades. También agregaremos algunos labels para que la aplicación sea mas clara.
Edi1
Name: 'txtNumeros'
Text:
Memo1
Name: 'memMensaje'
Text:
Button1
Name: 'cmdEnviar'
Caption: 'Enviar'
Ahora vamos a importar el WSDL para poder consumir los web services. Esto se hace en el menu que se muestra en la siguiente imagen:
A continuación nos aparecerá una pantalla en la que debemos escoger el tipo del item nuevo, en este caso un nuevo WSDL importer.
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
Presionamos el botón Finish y aparece la siguiente pantalla de confirmación
Presionamos el botón Finish y tendremos una nueva unidad, esta nueva unidad se genero automáticamente a partir del WSDL de DcodSMS, con ella podremos consumir los servicios y podremos enviar mensajes.
Regresamos a nuestra forma y agregamos un componente mas, hay que tomarlo de la pestaña de WebServices en la paleta de componentes, el componente que usaremos es de tipo THTTPRIO como se muestra en la siguiente imagen.
Hemos terminado de colocar todo lo necesario, ahora hace falta poner algo de código.
Ahora vamos al código y agregamos la referencias hacia el recién creado smsdcodserver.pas, debajo de la linea implementation
uses smsdcodserver;
Nuestro código lo pondremos en el evento clic del Botón, pondremos lo siguiente:
procedure TForm2.cmdEnviarClick(Sender: TObject); var Respuesta: Integer; begin HTTPRIO1.WSDLLocation := 'http://sms.mexhico.com/smsdcodserver.php?wsdl'; Respuesta := (HTTPRIO1 as ServicePortType).SendMessage('user', 'password', txtNumeros.Text, memMensaje.Text); ShowMessage ('El webservice respondio con: ' + intTostr(Respuesta)); end;
A continuación compilamos y ejecutamos nuestra aplicación, capturamos un numero a 10 dígitos. Es decir sin el 044, en el caso de la ciudad de Mexico. Capturamos un mensaje, presionamos el boton y esperamos, inmediatamente aparecerá un ShowMessage con la respuesta del Web service.
- 0 si el password o usuario son incorrectos.
- -1 si el saldo con DcodSMS se agoto.
- Un numero mayor a cero si el mensaje se encolo correctamente, este numero es el ID de seguimiento.
Si no tienes una cuenta valida, tu saldo con nosotros esta agotado o bien para pedir informes del servicio, comunícate con nosotros.
Si todos los datos fueron capturados correctamente, pasaran entre 1 y 5 minutos aproximadamente para que el mensaje sea recibido.
