Numero sessão SAT

[Igor Fernando Martins de M]

Bom dia,

 

Preciso de ajuda na implementação do método para minha aplicação gerar o número da sessão (OnGetNumeroSessao).

na minha classe eu tenho uma instancia de objeto chamada fACBrSAT : TACBrSAT;

Nao tenho componente ACBrSAT dropado na tela...como faço para implementar o método OnGetNumeroSessao?

Fiz da seguinte forma mas está dando Acess Violation no momento que executa o OnGetNumeroSessao:

procedure Tform1.EnviarVenda(vXML : string);

begin

vNumeroSessao := StrToInt(OnlyNumber(FormatDateTime('HH:NN:SS,zzz', Now)));

Self.fACBrSAT.OnGetNumeroSessao(vNumeroSessao);

...

end;

fACBrSAT  está instanciado e funcionando normalmente.

 

Agradeço

[Daniel Simoes]

Não sei se compreendi corretamente o post... mas aparentemente você quer atribuir um Evento ao componente, em Run Time

Algo como:

type

TMinhaClasse = class
private
  FSAT: TACBrSAT;
public
  property SAT: TACBrSAT read FSAT;
end;

TMeuForm = class(TForm)
private
  FMinhaClasse: TMinhaClasse;
  procedure ObtemNumeroSessao(var NumeroSessao: Integer);
end;

implementation

procedure MeuForm.FormCreate()
begin
  FMinhaClasse := TMinhaClasse.Create
  FMinhaClasse.SAT.OnGetNumeroSessao := ObtemNumeroSessao;
end

procedure MeuForm.FormDestroy()
begin
  FMinhaClasse.Free;
end;

procedure MeuForm.ObtemNumeroSessao(var NumeroSessao: Integer);
begin
 NumeroSessao := SeuControleDeSessao();
end;

 

[Igor Fernando Martins de M]

Isso mesmo Daniel, não estava entendendo como fazer...mas vi que era só atribuir ao evento  OnGetNumeroSessao a minha função para obter o numero da sessão. 

Obrigado pela ajuda.

[Felipe E. Resende Mesquita]

Obrigado por reportar.

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