DataModulo.componentes ???

[Leao]

Olá, tenho um datamodulo e os componentes ACBr e outros no mesmo. 

Para enviar boleto uso o ACBrMail1, minha pergunta:

Na unit para gerar\imprimir os boletos, como invoco a 

ACBrMail1MailProcess(const AMail: TACBrMail; const aStatus: TMailStatus);

já fiz toda configuração mas os eventos não estou conseguindo....

quero usar na unit o 

ProgressBar1.Position := Integer(aStatus);

e outros eventos.

Espero ter explicado a minha situação. Se alguém poder ajudar, agradeço.

Obrigado

 

 

[Leao]

Olá, ninguém..., preciso usar os eventos do ACBrMail, na minha unit que gera os boletos. Alguém pode....

Agradeço obrigado

[BigWings]

Você não invoca, apenas associa o seu método ao evento do componente...

Que problema ocorre?

[Leao]

Olá BigWings, talvez não tenha explicado com clareza. Veja só:

Tenho um DataModulo, chamado DM_Componentes e no mesmo estão os ACBr ACBrMail, ACBrBoletoFCFortes, ACBrBoleto e outros...

Tenho uma unit, para gerar\imprimir\enviarEmail, chamada u_Imprimir_boletos, já estão relacionamentos:

    DM_Componente.ACBrBoleto.ListadeBoletos.Clear;
    DM_Componente.ACBrBoleto.ACBrBoletoFC           := DM_Componente.ACBrBoletoFCFortes;
    DM_Componente.ACBrBoletoFCFortes.ACBrBoleto     := DM_Componente.ACBrBoleto;
    DM_Componente.ACBrBoleto.MAIL                   := DM_Componente.ACBrMail;

Já imprimi,gera e enviar via e-mail.

O que preciso, no DM_Componente.ACBrEmail, tem o evento:

procedure TDM_Componente.ACBrMailMailProcess(const AMail: TACBrMail;
  const aStatus: TMailStatus);
begin
//
end;
 

Na u_imprimir_boleto, um ProgressBar,

como faço para processar\execultar, seria assim se estive o componente ACBRMail no mesmo u_imprimir_boleto

progressBar.Position := Integer(aStatus);

Mas como o ACBrMail estar no DM_Componente, como seria?

progresBar.Position := DM_Componente(ACBrMail.ACBrEmailMailProcess.aStatus);

Simplesmente para processar o ProgressBar que está no u_imprimir_boleto. É isso....

Obrigado

 

 

 

 

 

[BigWings]

Você pode:

- Declarar o método ACBrMailMailProcess na sua unit, e associar com o data module:

TForm1 = class(TForm)
  ProgressBar1: TProgressBar;  
  procedure ACBrMailMailProcess(const AMail: TACBrMail; const aStatus: TMailStatus);
end;

[...]
// TForm1
DM_Componente.ACBrBoleto.MAIL                   := DM_Componente.ACBrMail; 
DM_Componente.ACBrBoleto.Mail.OnMailProcess     := Self.ACBrMailMailProcess;

- Criar uma propriedade no data module pra informar o componente de barra de progresso:

TDM_Componente = class(TDataModule)
private
  FBarraDeProgresso: TProgressBar;
public
  property BarraDeProgresso: TProgressBar read FBarraDeProgresso write FBarraDeProgresso;
end;

procedure TDM_Componente.ACBrMailMailProcess(const AMail: TACBrMail;
  const aStatus: TMailStatus);
begin
  if Assigned(FBarraDeProgresso) then
   FBarraDeProgresso.Position := Integer(aStatus);
end;

[...]
// TForm1
DM_Componente.ACBrBoleto.MAIL                   := DM_Componente.ACBrMail; 
DM_Componente.BarraDeProgresso                  := Self.ProgressBar1;

 

[Juliana Tamizou]

Boa tarde,

7 horas atrás, Leao disse:

Olá, ninguém..., preciso usar os eventos do ACBrMail, na minha unit que gera os boletos. Alguém pode..

Entendemos que você queira iniciar a utilização dos componentes o quanto antes, mas preciso alertar que na área da comunidade as respostas são dadas conforme a disponibilidade dos demais usuários e moderadores e por este motivo não é legal "cobrar" um retorno...ao invés disso vc pode estudar os fontes do componente por exemplo...

No futuro se tiver urgência nas respostas, recomendo considerar aderir ao Plano ACBr Pro, onde além de diversas vantagens, você terá direito ao SLA de respostas rápidas, saiba mais no link a seguir

https://projetoacbr.com.br/pro/

At.

 

[Leao]

Olá BigWings,

fiz pequena modificação e deu certo. Muito Obrigado

 

[BigWings]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.