Sending SMS (Mobile Short Message Service) using Delphi
The following example demonstrates how to call an SMS WEB service through SOAP.
First download and install Microsoft SOAP Toolkit 2.0 from the following address:
http://msdn.microsoft.com/downloads/default.asp?URL=/code/sample.asp?url=/msdn-files/027/001/580/msdncompositedoc.xml
You can then send SMS using the short code below.
uses
ComObj;
PRocedure TForm1.Button1Click(Sender: TObject);
var
SoapClient: OleVariant;
v:OleVariant;
begin
SoapClient := CreateOleObject('MSSOAP.SoapClient');
SoapClient.mssoapinit('http://sal006.salnetwork.com:83/lucin/smsmessaging/process.xml');
SoapClient.SendTextMessage('Number', 'MessageBody', 'Sender');
end;
Where Number is the country code + phone number (no need to start with zero),
Such as 06 12345678 In the Netherlands: 31612345678