Internet - mandar mensagem para celular

Artigo postado no Clube Delphi (www.canaldelphi.com.br)

Primeiro, copie e instale o Microsoft SOAP Toolkit Ver 2.0 em:

http://msdn.microsoft.com/downloads/default.asp?URL=/code/sample.asp?url=/msdn-files/027/001/580/msdncompositedoc.xml

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.SendMessage(*DestNumber*, *MessageBody*, *SenderName*,*SenderPass*);

end;

*DestNumber*: codigodopais + numerodotelefone,

Referência: http://msdn.microsoft.com/downloads/default.asp?UR

Autor Original: Ramos da Informática

Donwload Recomendado:

http://msdn.microsoft.com/downloads/default.asp?URL=/code/sample.asp?url=/msdn-files/027/001/580/msd

OBS: Artigo não testado

Logic Info Tecnologia & Informação

Rafael Maria Soares

nospam_rafael@logicinfo.com.br

Suporte Técnico

(17) 229-1297