Send SMS (Mobile Short Message Service) with Delphi Demo how to call an SMS web service through SOAP.
First download and install the following address and install the Microsoft SOAP kit 2.0: http://msdn.microsoft.com/downloads/default.asp? URL = / code / sample.asp? Url = / msdn-files / 027/001 / 580 / MSDNCompositeDoc.xml 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;
Among them, Number is a national code phone number (no need to take zero), such as 06 12345678 in the Netherlands: 31612345678
