Por Favor, Insisto... :D
è possivel fazer um envio de mensagens para celular usando delphi, no caso Rio Grande do Sul - Telefonica Celular ? Como ?
Alguem poderia me Ajudar
Alguem poderia me Ajudar
Anonymous
Curtidas 0
Respostas
Nadilson
04/02/2003
Olá, Fábio!
Pega aí esse código que peguei há algum tempo num site holandês, talvez possa lhe dar uma luz (traduzi tudo):
Para enviar um SMS para um celular usando um aplicativo programado em DELPHI:
// Este exemplo mostra como chamar um Serviço SMS por meio de SOAP (Simple Object Access Protocol)
// Primeiro, faça o download e instale o Microsoft SOAP Toolkit Version 2.0 do seguinte endereço:
http://msdn.microsoft.com/downloads/default.asp?RL=/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´);
// Substitua o endereço do serviço sms abaixo pelo endereço da empresa que lhe fornece este serviço:
SoapClient.mssoapinit(´http://sal006.salnetwork.com:83/lucin/smsmessaging/process.xml´);
SoapClient.SendTextMessage(´Numero´, ´Corpo_da_Messagem´, ´Remetente´, ‘Senha_Do_Remetente’);
end;
// Numero: código do país + número do telefone (sem zero não-significativo),
// exemplo: para 06 12345678 na Holanda, fica assim: 31612345678
Eu baixei o SOAP toolkit, mas nunca pude testar essa dica porque não uso celular e não conheço nenhum endereço SMS de quaisquer operadoras...
Pega aí esse código que peguei há algum tempo num site holandês, talvez possa lhe dar uma luz (traduzi tudo):
Para enviar um SMS para um celular usando um aplicativo programado em DELPHI:
// Este exemplo mostra como chamar um Serviço SMS por meio de SOAP (Simple Object Access Protocol)
// Primeiro, faça o download e instale o Microsoft SOAP Toolkit Version 2.0 do seguinte endereço:
http://msdn.microsoft.com/downloads/default.asp?RL=/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´);
// Substitua o endereço do serviço sms abaixo pelo endereço da empresa que lhe fornece este serviço:
SoapClient.mssoapinit(´http://sal006.salnetwork.com:83/lucin/smsmessaging/process.xml´);
SoapClient.SendTextMessage(´Numero´, ´Corpo_da_Messagem´, ´Remetente´, ‘Senha_Do_Remetente’);
end;
// Numero: código do país + número do telefone (sem zero não-significativo),
// exemplo: para 06 12345678 na Holanda, fica assim: 31612345678
Eu baixei o SOAP toolkit, mas nunca pude testar essa dica porque não uso celular e não conheço nenhum endereço SMS de quaisquer operadoras...
GOSTEI 0
Dor_poa
04/02/2003
Ou entao faz um programa de email e envia paara os celular... Assim:
519999999@claroonline.com.br ou
519999999@telefonica.com.br
519999999@claroonline.com.br ou
519999999@telefonica.com.br
GOSTEI 0