SMS com delphi

Delphi

13/05/2004

Estou prescisando desenvolver um programa que envie menssagem para celular com o delphi alguem sabe como ou onde encontrar um exemplo.

Obrigado....

[]s, Rodrigo Coutinho
Programador/Analista


Rodrigo Coutinho

Rodrigo Coutinho

Curtidas 0

Respostas

Fatrix

Fatrix

13/05/2004

E aê, Beleza?
Então dá uma olhada neste artigo(não lembro o site!!) :

This sample shows how to call a SMS-webservice by using SOAP Answer: First, download and install the Microsoft® SOAP Toolkit Version 2.0 from: 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*: countrycode + phonenumber (no leading zero), e.g. for 06 12345678 in the netherlands: 31612345678 *SenderName* and *SenderPass* you can obtain from: http://www.salcentral.com/help/smsreg.htm


se der algum erro(é provavel)
tente implentar assim:

SoapClient.SendMessage(*UserName*, *PassKey*,*PhoneNumber*, *Message*,*SenderName*,*ScheduledDate*,*ScheduledTime*,*Reference*,*Confirmation*,*UseFlash*); or you use sendSponsoredMessage with the parameteres: SoapClient.SendSposoredMessage(*UserName*, *PassKey*,*PhoneNumber*, *Message*);


É isso.
Espero ter ajudado.


GOSTEI 0
Universodosoftware

Universodosoftware

13/05/2004

isto servirá para qualquer celular e empresa?


GOSTEI 0
Otto

Otto

13/05/2004

Olá, creio que se vc pesqusiar aqui no forum por ´sms´ vc irá achar muitos topicos relacionados a SMS....


GOSTEI 0
Dalton

Dalton

13/05/2004

Estou prescisando desenvolver um programa que envie menssagem para celular com o delphi alguem sabe como ou onde encontrar um exemplo.

Obrigado....

[]s, Rodrigo Coutinho
Programador/Analista






Simples, use a Facilita SMS para adquirir os créditos, e use o trecho abaixo para enviar:

var lURL : String;
	lResponse : TStringStream;
begin
	lResponse := TStringStream.Create('');

try
	lURL := 'http://api.facilitamovel.com.br/api/simpleSend.ft?user=xxx&password=xxx&destinatario=5191561100&externalkey=123&msg=Ola%20Facilita';
	idHttp1.Get(lURL, lResponse);
	lResponse.Position := 0;
	{ Exemplo de uso do response : carregar o conte�do num RichEdit : }
	reResp.Lines.LoadFromStream(lResponse);
finally
	lResponse.Free();
end;

------------- LEITURA DAS RESPOSTAS ----------------------

var lURL : String;
	lResponse : TStringStream;
begin
	lResponse := TStringStream.Create('');

try
	//Obtem dados de retorno da API via URL
	lURL := 'http://api.facilitamovel.com.br/api/readMO.ft?user=xxx&password=xxx';

	//Showmessage(lURL);

	idHttp1.Get(lURL, lResponse);
	lResponse.Position := 0;
	{ Exemplo de uso do response : carregar o conteudo num RichEdit : }
	reResp.Lines.LoadFromStream(lResponse);
finally
	lResponse.Free();
end;



Maiores informações, visite o nosso manual de integração
https://www.facilitamovel.com.br/integracoes.ft
GOSTEI 0
POSTAR