Mengirim SMS (Mobile Short Message Service) menggunakan Delphi
Contoh berikut menunjukkan cara memanggil layanan SMS WEB melalui SOAP.
Pertama unduh dan instal Microsoft SOAP Toolkit 2.0 dari alamat berikut:
http://msdn.microsoft.com/downloads/default.asp?URL=/code/sample.asp?url=/msdn-files/027/001/580/msdncompositedoc.xml
Anda kemudian dapat mengirim SMS menggunakan kode pendek di bawah ini.
kegunaan
ComObj;
Prosedur TForm1.Button1Click(Pengirim: TObject);
var
Klien Sabun: OleVariant;
v:OleVarian;
mulai
SoapClient := CreateOleObject('MSSOAP.SoapClient');
SoapClient.mssoapinit('http://sal006.salnetwork.com:83/lucin/smsmessaging/process.xml');
SoapClient.SendTextMessage('Nomor', 'MessageBody', 'Pengirim');
akhir;
Dimana Nomor adalah kode negara + nomor telepon (tidak perlu diawali dengan nol),
Seperti 06 12345678 Di Belanda: 31612345678