Envoi de SMS (Mobile Short Message Service) à l'aide de Delphi
L'exemple suivant montre comment appeler un service WEB SMS via SOAP.
Téléchargez et installez d'abord Microsoft SOAP Toolkit 2.0 à l'adresse suivante :
http://msdn.microsoft.com/downloads/default.asp?URL=/code/sample.asp?url=/msdn-files/027/001/580/msdncompositedoc.xml
Vous pourrez ensuite envoyer des SMS en utilisant le short code ci-dessous.
utilise
ComObj;
PRécédure TForm1.Button1Click(Expéditeur : TObject);
var
SoapClient : OleVariant ;
v:OleVariant;
commencer
SoapClient := CreateOleObject('MSSOAP.SoapClient');
SoapClient.mssoapinit('http://sal006.salnetwork.com:83/lucin/smsmessaging/process.xml');
SoapClient.SendTextMessage('Numéro', 'MessageBody', 'Expéditeur');
fin;
Où Numéro est l'indicatif du pays + le numéro de téléphone (pas besoin de commencer par zéro),
Tel que 06 12345678 Aux Pays-Bas : 31612345678