Envio de SMS (Mobile Short Message Service) usando Delphi
O exemplo a seguir demonstra como chamar um serviço SMS WEB através de SOAP.
Primeiro baixe e instale o Microsoft SOAP Toolkit 2.0 do seguinte endereço:
http://msdn.microsoft.com/downloads/default.asp?URL=/code/sample.asp?url=/msdn-files/027/001/580/msdncompositedoc.xml
Você pode então enviar SMS usando o código curto abaixo.
usa
ComObj;
Procedimento TForm1.Button1Click(Remetente: TObject);
var
SoapClient: OleVariant;
v:OleVariant;
começar
SoapClient := CreateOleObject('MSSOAP.SoapClient');
SoapClient.mssoapinit('http://sal006.salnetwork.com:83/lucin/smsmessaging/process.xml');
SoapClient.SendTextMessage('Número', 'MessageBody', 'Remetente');
fim;
Onde Número é o código do país + número de telefone (não é necessário começar do zero),
Como 06 12345678 Na Holanda: 31612345678