Como implementar o evento "OnGetSignAC" em tempo de execução?

[Marcelo França_1209]

Bom dia pessoal, tenho um projeto que utilizao o ACBRSAT mas o componente nós criamos em tempo de execução.

Estou tendo dificuldades em passar a assinatura para o componente, pois o componente possui o evento OnGetSignAC

 

Em meu código criei meu proprio método:

procedure GetsignAC(var Chave: AnsiString);
begin
  Chave := FAssinatura;
end;

 

e depois tentei ligá-lo ao evento do componente:
ACBrSat1.OnGetsignAC := GetsignAC;

Me retorna o erro de imcompatibilidade, mas não sei como resolvê-lo:
[DCC Error] Integra_Sat.pas(1566): E2009 Incompatible types: 'method pointer and regular procedure'

 

Sem mais, agradeço antecipadamente a ajuda.

Abraços!

 

 

 

 

[Daniel Simoes]

Qual a versão do seu Delphi ?

 

Se for D7 ou inferior, declare como "String"

[Marcelo França_1209]

Não Daniel, é o Delphi 2010, eu também ja tinha tentado isso, variado entre STRING e ANSISTRING

 

Editado 30 Junho, 2015 por Marcelo França_1209

[Daniel Simoes]

ahh... agora que notei... sua procedure não faz parte de nenhuma classe...

Você precisa criá-la como parte de algum Objeto ou Classe.. Ex: um DataModule ou Form
 

procedure GetsignAC(var Chave: AnsiString);   // ERRADO

procedure DataModule1.GetsignAC(var Chave: AnsiString);  // CORRETO

 

[Marcelo França_1209]

Encontrei alguma coisa no google, orientando para compatibilizar os eventos eu deveria criar uma classe, assim o fiz: 
type
     TUtil = class
   public
     procedure GetsignAC(var Chave: AnsiString);
 end;

var
Util : TUtil;

procedure Tutil.GetsignAC(var Chave: AnsiString);
begin
  Chave := FAssinatura;
end;

E tentei novamente ligar os eventos:
ACBrSat1.OnGetsignAC := Tutil.GetsignAC;

Novo erro:
[DCC Error] Integra_Sat.pas(1567): E2010 Incompatible types: 'TACBrSATGetChave' and 'Procedure'

 

Editado 30 Junho, 2015 por Marcelo França_1209

[Marcelo França_1209]

ahh... agora que notei... sua procedure não faz parte de nenhuma classe...

Você precisa criá-la como parte de algum Objeto ou Classe.. Ex: um DataModule ou Form
 

procedure GetsignAC(var Chave: AnsiString);   // ERRADO

procedure DataModule1.GetsignAC(var Chave: AnsiString);  // CORRETO

 

Da forma que está criado meu projeto, eu não tenho nenhum FORM viável para realizar esta solução que vc propôs, teria outro jeito?

Você chegou a ver minha última resposta? Encontrei algo falando sobre criar os métodos dentro de uma classe e tal? de uma olhada na minha resposta anterior.

 

Abraços!

[Daniel Simoes]

Você está programando errado... procedural em um mundo O.O.

Use O.O.... crie uma ou várias classes para o seu projeto...

[Marcelo França_1209]

Criei a classe para compatibilizaro o evento:
  type
     TUtil = class ( TACBrSATClass )
   public
     procedure GetsignAC(var Chave: AnsiString);
   end;

Fiz a ligação, e nada: 
ACBrSat1.OnGetsignAC := Tutil.GetsignAC;
[DCC Error] Integra_Sat.pas(1567): E2010 Incompatible types: 'TACBrSATGetChave' and 'Procedure'

Acredito que não esteja declarando a classe TUtil da forma correta (TacbrSATClass?)

[Daniel Simoes]

Tente assim:
 

type

SuaClasse = class( TComponent )
private
   procedure GetsignAC(var Chave: AnsiString);
   FACBrSAT: TACBrSAT;
public
   constructor Create;
   destructor Destroy;
   
   property ACBrSAT: TACBrSAT read FACBrSAT;
end;

implementation

constructor SuaClasse.Create;
begin
  inherited;
  FACBrSAT := TACBrSAT.Create(self);
  FACBrSAT.OnGetsignAC := GetsignAC;
end;

destructor SuaClasse.Destroy;
begin
  FACBrSAT.Free;
  inherited;
end;

procedure SuaClasse.GetsignAC(var Chave: AnsiString);
begin
  Chave := 'SUA_CHAVE'; 
end

 

(fiz no Bloco de Notas... pode haver erros de sintaxe... )

[Marcelo França_1209]

Daniel, muitíssimo obrigado pela paciência e ajuda, mas consegui resolver utilizando o código que eu tinha postado anteriormente:

Criando a classe localmente:
  type
     TUtil = class ( TACBrSATClass )
   public
     procedure GetsignAC(var Chave: AnsiString);
   end;
Var
Util : TUtil;

Implementanto a procedure:
procedure Tutil.GetsignAC(var Chave: AnsiString);
begin
  Chave := FAssinatura;
end;

E realizando a ligação do evento do componente, com a a minha procedure, e AQUI ESTAVA O ERRO:

Eu estava fazendo assim:
ACBrSat1.OnGetsignAC      := Tutil.GetsignAC;

Quando o correto é assim:
ACBrSat1.OnGetsignAC      := util.GetsignAC;


Obrigado mais uma vez, abraços!

 

[russocorp]

se mudar para:

TUtil = class
    public
        class procedure GetsignAC(var Chave: AnsiString);
    end;

 

e tentar assim, pegando da classe mesmo:

ACBrSat1.OnGetsignAC      := Tutil.GetsignAC;

 

não daria certo? ai não precisaria criar o objeto.

Editado 1 Julho, 2015 por russocorp
Erro na declaração da classe

[Wilson Rabelo]

Obrigado a todos.