Отправка SMS (мобильная служба коротких сообщений) с помощью Delphi
В следующем примере показано, как вызвать веб-службу SMS через SOAP.
Сначала загрузите и установите Microsoft SOAP Toolkit 2.0 по следующему адресу:
http://msdn.microsoft.com/downloads/default.asp?URL=/code/sample.asp?url=/msdn-files/027/001/580/msdncompositedoc.xml
Затем вы можете отправить SMS, используя короткий код ниже.
использует
КомОбдж;
PROcedure TForm1.Button1Click(Отправитель: TObject);
вар
МыльныйКлиент: ОлеВариант;
v: ОлеВариант;
начинать
SoapClient := CreateOleObject('MSSOAP.SoapClient');
SoapClient.mssoapinit('http://sal006.salnetwork.com:83/lucin/smsmessaging/process.xml');
SoapClient.SendTextMessage('Number', 'MessageBody', 'Отправитель');
конец;
Где Number — это код страны + номер телефона (не обязательно начинать с нуля),
Например, 06 12345678. В Нидерландах: 31612345678.