Internet - mandar mensagem para celular

Top  Previous  Next

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

(17229-1297