onTransmissaoEventos

[Zottis]

Estamos criando o componente em tempo de execução,

como faço para associar uma procedure ao método onTransmissaoEventos, copiei a procedure do exemplo(abaixo) e tentei associar assim:

FACBrESocial := TACBrESocial.Create(nil);

FACBrESocial.OnTransmissaoEventos  := ACBreSocial1TransmissaoEventos;   porem da erro.

procedure ACBreSocialTransmissaoEventos(const AXML: AnsiString; ATipo: TeSocialEventos);
begin

  gravaLog('Entrou na Transmissão de Eventos');

  case ATipo of
    eseEnvioLote:
      VXMLEnvioLote := AXML;
    eseRetornoLote:
      VXMLRetornoLote := AXML;
    eseEnvioConsulta:
      VXMLEnvioConsulta := AXML;
    eseRetornoConsulta:
      VXMLRetornoConsulta := AXML;
  end;
end;

 

Obrigado

[RicardoVoigt]

Bom dia @Zottis

qual IDE? Delphi ou Lazarus?

No Lazarus precisa usar uma arroba @ antes do nome do método...

FACBrESocial.OnTransmissaoEventos  := @ACBreSocial1TransmissaoEventos; 

Att

Ricardo

[Zottis]

bom dia, e desculpe por não ter mencionado é Delphi.

[RicardoVoigt]

7 minutos atrás, Zottis disse:

bom dia, e desculpe por não ter mencionado é Delphi.

Atualiza seus fontes ai, se não me engano mudaram o parâmetro XML de String pra AnsiString... Lembro de ter visto um erro nesse evento, no programa exemplo, depois de ter feito update...

Depois foi corrigido no svn...

Att

Ricardo

[EdmarFrazao]

Em 23/02/2018 at 16:19, Zottis disse:

Estamos criando o componente em tempo de execução,

como faço para associar uma procedure ao método onTransmissaoEventos, copiei a procedure do exemplo(abaixo) e tentei associar assim:

FACBrESocial := TACBrESocial.Create(nil);

FACBrESocial.OnTransmissaoEventos  := ACBreSocial1TransmissaoEventos;   porem da erro.

procedure ACBreSocialTransmissaoEventos(const AXML: AnsiString; ATipo: TeSocialEventos);
begin

  gravaLog('Entrou na Transmissão de Eventos');

  case ATipo of
    eseEnvioLote:
      VXMLEnvioLote := AXML;
    eseRetornoLote:
      VXMLRetornoLote := AXML;
    eseEnvioConsulta:
      VXMLEnvioConsulta := AXML;
    eseRetornoConsulta:
      VXMLRetornoConsulta := AXML;
  end;
end;

 

Obrigado

criar

    procedure Transmissao(const AXML: AnsiString; ATipo: TeSocialEventos);

Atribuir

ACBreSocial1.OnTransmissaoEventos := Transmissao;

 

procedimento

procedure TfrmeSocial.Transmissao(const AXML: AnsiString; ATipo: TeSocialEventos);
begin
  case ATipo of
    eseEnvioLote: Memo_Envio.Lines.Text := AXML;
    eseRetornoLote: Memo_Retorno.Lines.Text := AXML;
    eseEnvioConsulta: Memo_Envio.Lines.Text := AXML;
    eseRetornoConsulta: Memo_Retorno.Lines.Text := AXML;

   end;

end;

 

 

[Zottis]

Caso alguém precise, consegui da seguinte forma:

criar uma classe e jogar o método(procedure) dentro dela na parte publica e depois, criar um objeto dessa classe, instancia-la e depois declarar .

 type
 TTransmiteEventoZ = class
   public
      procedure TransmissaoEventos(const AXML: AnsiString; ATipo: TeSocialEventos);
   published

   private
 end;
 

procedure TTransmiteEventoZ.TransmissaoEventos(const AXML: AnsiString; ATipo: TeSocialEventos);
begin

  case ATipo of
    eseEnvioLote:
      VXMLEnvioLote := AXML;
    eseRetornoLote:
      VXMLRetornoLote := AXML;
    eseEnvioConsulta:
      VXMLEnvioConsulta := AXML;
    eseRetornoConsulta:
      VXMLRetornoConsulta := AXML;
  end;
end;
 

var MeuEvento      : TTransmiteEventoZ;

begin

.....

MeuEvento    := TTransmiteEventoZ.Create;

FACBrESocial.OnTransmissaoEventos  := MeuEvento.TransmissaoEventos;