ActiveDelphi

[gustave]

Boa tarde,

Estou implementando o envio de SMS em um módulo de nosso sistema. Por questões quem não devem ser ilustradas aqui, optou-se por enviar o SMS através do site da empresa COMTELE (essa empresa iria repassar códigos-fonte, etc para o desenvolvimento, o que não era verdade).

Para enviar o SMS a url é a seguinte:
'https://sms.comtele.com.br/api/{sua chave}/sendmessage?sender={Usuário}&receivers={telefone}&content={mensagem}
Após uma certa dor de cabeça, consegui implementar via componente idHTTP o envio.

Isso aqui:

[johnny-walker]

Você pode utilizar ApplicationEvents e utilizar o evento onexcept e desta forma tratar o erro:

eis aí:

[claudio.ferreira]

Primeiro mude seu codigo porque como está, deixa memoryleaks

Troque :

[gustave]

Obrigado amigos,

Está funcionando.

[rodimilson]

Caro gustave, estou passando pelo mesmo problema e se puder me ajudar encaminhando o que passou nas variáveis url, param e o que definiu como lParamList agradeço e muito..abraços

[rodimilson]

segue exemplo funcional completo, pois também tive dificuldades com a COMTELE, e graças ao amigo gustave, consegui utilizar o exemplo dele e trago aqui o exemplo completo:


procedure TForm1.btnEnviaSMSClick(Sender: TObject);
var url : string;
param : TStringStream;
lclContent, lclSender, lclChave, lclReceivers : string;
gblSMSOk : boolean;
begin
lHTTP := TIdHTTP.Create(nil);
lSSL:= TIdSSLIOHandlerSocketOpenSSL.Create(nil);
// Definicao do lSSL
lSSL.SSLOptions.Method:=sslvTLSv1;
lSSL.SSLOptions.Mode:=sslmUnassigned;
lSSL.SSLOptions.VerifyMode:=[];
lSSL.SSLOptions.VerifyDepth:=0;
lSSL.Host:='';

lHTTP.IOHandler:=lSSL;
lHTTP.IOHandler.ReadTimeout:=86400;
lHTTP.Request.ContentType:='application/x-www-form-urlencoded';
lHTTP.AllowCookies:=true;
lHTTP.ProxyParams.BasicAuthentication := False;
lHTTP.ProxyParams.ProxyPort := 0;
lHTTP.Request.ContentLength := -1;
lHTTP.Request.ContentRangeEnd := 0;
lHTTP.Request.ContentRangeStart := 0;
lHTTP.Request.Accept := 'text/html, */*';
lHTTP.Request.BasicAuthentication := False;
lHTTP.Request.UserAgent := '';
lHTTP.MaxHeaderLines:=0;
lHTTP.HTTPOptions := [hoForceEncodeParams];

lclChave := mskCHAV_USUAR.Text;
lclSender := mskLOGI_USUAR.Text;
lclReceivers := mskNUME_CELUL.Text;
lclContent := TIdURI.ParamsEncode(Trim(mskSMS.Text));

url := 'https://sms.comtele.com.br/api/'+lclChave+'/sendmessage?sender='+lclSender+'&content='+lclContent+'&receivers='+lclReceivers;
param := TStringStream.Create;

gblSMSOk := true;
try
try
try
Result := lHTTP.Post(url, param);
finally
param.Free;
end;
finally
FreeAndNil(lHTTP);
FreeAndNil(lSSL);
end;
except
on E: Exception do
begin
gblSMSOk := false;
ShowMessage('Erro: '+E.Message);
end;
end;
if gblSMSOk = true then
showmessage('SMS encaminhado com sucesso!!!');
end;

[Emanoella]

Olá boa tarde,

Estou tentando fazer um programa para enviar SMS e então peguei o último exemplo de envio de sms e coloquei aqui na minha máquina porém quando vou compilar ele tá me dando o seguinte erro :

Não tá achando a variável lSSL do códig abaixo :

var url : string;
param : TStringStream;
lclContent, lclSender, lclChave, lclReceivers : string;
gblSMSOk : boolean;

begin

lHTTP := TIdHTTP.Create(nil);
lSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

// Definicao do lSSL
lSSL.SSLOptions.Method:=sslvTLSv1;
lSSL.SSLOptions.Mode:=sslmUnassigned;
lSSL.SSLOptions.VerifyMode:=[];
lSSL.SSLOptions.VerifyDepth:=0;
lSSL.Host:='';


Como defino essa variável ?
Preciso de algum componente ?
Na Paleta Indy não achei nenhum componente lSSL

Obrigada

[rodimilson]

Você precisa utilizar o componente da pasta Indy que se chama TIdSSLIOHandlerSocketOpenSSL e renomear para o lSSL

[Emanoella]

Olá Rodimilson

obrigada por responder.

Eu não tenho esse componente TIdSSLIOHandlerSocketOpenSSL na minha pasta Indy.

[Emanoella]

Olá Rodimilson

Encontrei aqui outras pastas de Indy e achei o componente, vou prosseguir aqui .

Obrigada

[rodimilson]

eu utilizo o Delphi XE5... talvez seja isto.. veja este componente similar a versão do seu Delphi.. acredito ter em todas as versões de Delphi

[Emanoella]

Eu estou utilizando ainda o Delphi 7

Nessa versão do delphi 7 tem o componente TIdSSLIOHandlerSocket e não o TIdSSLIOHandlerSocketOpenSSL , eles são correspondentes ?

[rodimilson]

eu acho q sim

[Emanoella]

Estou compilando o programa e na linha abaixo :

param := TStringStream.Create;

Está dando o seguinte erro :

Not enough actual parameters


Será que é versão do Delphi, eu estou usando o Delphi 7, será que tem outro documento desse compatível com o Delphi 7 ?

[rodimilson]

eu acho que o erro esta na linha anterior.. verifique os parametros que esta passando na variável url