ACBRSMS.PAS melhoria

[murilo2002]

Saudações colegas...

Uso o AcbrSMS para envio de SMS em lote. Porem quando se está enviando algumas vezes acontece o travamento do sistema. Fiz algumas alterações e resolvi postar aqui. Outra coisa que fiz foi o contador de envio em lote. Sendo assim a Procedure ENVIASMSLOTE ficou da seguinte forma:

procedure TACBrSMS.EnviarSMSLote(const ALote: TACBrSMSMensagens;

var AIndice: String);

var

I: Integer;

IndMsgAtual: String;

begin

AIndice := EmptyStr;

for I := 0 to ALote.Count - 1 do

begin

IndMsgAtual := '' ;

fsSMS.EnviarSMS(ALote.Telefone, ALote.Mensagem, IndMsgAtual);

//Declarar nas Units Forms

Application.ProcessMessages;

//Declarar em Publics XdeXX:String;

XdeXX:=IntToStr(I+1)+' de '+IntToStr(ALote.Count);

AIndice := AIndice + ',' + IndMsgAtual;

end;

// limpar a virgula inicial

if AIndice <> EmptyStr then

AIndice := Copy(AIndice, 2, Length(AIndice));

end;

No formulário onde chamo a procedure coloquei um timer com o seguinte codigo:

Label1.Caption:='Enviado '+ACBrSMS1.XdeXX;

Label1.Repaint;

Label1.Refresh;

se puderem adicionar ao projeto agradeço...

Murilo Roniclei

[Juliomar Marchetti]

Anexa a Unit para que possa ser feito o merge

[murilo2002]

Juliomar, Units anexada...

At+

ACBrSMS.pas

[Régys Silveira]

Dei uma olhada nas tuas alterações murilo2002 quanto ao aplication.processmessages vou colocar ele para não parecer que a aplicação ficou travada, quanto a outra alteração, está não é a melhor forma de se fazer isso, vou colocar um evento para informar em qual mensagem está e quantas vão ser enviadas, assim o aplicativo pode interceptar e mostrar isso como quiser, sem necessidade de colocar um timer, quando subir a alteração eu aviso.

[murilo2002]

Blz Regys... obrigado... Esta foi a forma que eu encontrei... mas obrigado pela ajuda...

At+

[Régys Silveira]

Enviei uma alteração para o ACBrSMS, agora ele possui o evento OnProgresso, onde você vai poder capturar o andamento do envio das mensagens, lembrando que você precisa recompilar o pacote ACBrSerial.dpk para que o evento apareça no teu Objetc Inspector.

Como usar e mais informações consulte o Demo do ACBrSMS em \exemplos\ACBrSMS, já atualizei o demo para as novas implementações.

Obrigado pela ajuda.

[murilo2002]

Valeu Regys Silveira... Obrigado...