Envío de SMS (servicio móvil de mensajes cortos) mediante Delphi
El siguiente ejemplo demuestra cómo llamar a un servicio WEB de SMS a través de SOAP.
Primero descargue e instale Microsoft SOAP Toolkit 2.0 desde la siguiente dirección:
http://msdn.microsoft.com/downloads/default.asp?URL=/code/sample.asp?url=/msdn-files/027/001/580/msdncompositedoc.xml
Luego puede enviar SMS utilizando el código corto a continuación.
usos
ComObj;
Procedimiento TForm1.Button1Click(Remitente: TObject);
var
Cliente de jabón: OleVariant;
v:OleVariante;
comenzar
SoapClient := CreateOleObject('MSSOAP.SoapClient');
SoapClient.mssoapinit('http://sal006.salnetwork.com:83/lucin/smsmessaging/process.xml');
SoapClient.SendTextMessage('Número', 'MessageBody', 'Remitente');
fin;
Donde Número es el código del país + número de teléfono (no es necesario comenzar con cero),
Como 06 12345678 En los Países Bajos: 31612345678