Erro ao compilar projeto Delphi

Delphi

Banco de Dados

21/05/2017

Amigos, estou com um grande problema, eu estou criando uma aplicação delphi+access e agora eu estou tentando adicionar proteção contra copias do programa e quando vou compilar da os seguintes erros:
[DCC Error] Umenu.pas(61): E2003 Undeclared identifier: 'TEvAppProtect'
[DCC Error] Umenu.pas(61): E2217 Published field 'EvAppProtect1' not a class or interface type
[DCC Fatal Error] Adonai.dpr(16): F2063 Could not compile used unit 'Umenu.pas'

Só pra esclarecer eu ja fiz teste com o componente <b>EvAppProtect1</b> do pacote TCF Library em uma form limpa e funcionou direitinho, ja na minha aplicação da esses erros de declaração eu creio.
Veja o codigo compelto da form:
https://pastebin.com/embed_js/WUZ792f7


Ja agradeço a todos e se precisar mais detalhes so pedir por favor!
Janilto Oliveira

Janilto Oliveira

Curtidas 0

Melhor post

Mateus Ribeiro

Mateus Ribeiro

22/05/2017

Bom dia amigo! Você precisa adicionar as bibliotecas desse componente na sessão "USES" do seu projeto.
GOSTEI 1

Mais Respostas

Janilto Oliveira

Janilto Oliveira

21/05/2017

Passei o dia todo nesse codigo refazendo desfazendo refazendo!
GOSTEI 0
Janilto Oliveira

Janilto Oliveira

21/05/2017

Boa tarde seria colocando um desse valores
EvAppProtect1: TEvAppProtect;
EAppUDsg
na USES da form em questao ?

Bom so pra esclarecer uma coisa eu tenho uma etapa do porjeto que salvei logo no inicio quando omecei a faze-lo mas ta muito atrazado mesmo, e nele o componente nao da erro, entao verifiquei o codigo e nao tem nada diferente desse que postei exceto que falta muita coisa nele pois foi o inicio, pelo que vejo vou retomar ele e refazer tudo.
Veja o codigo mais antigo mas que funciona 
unit Umenu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, StdCtrls, Buttons, EAppProt;

type
  TFrmMenu = class(TForm)
    MainMenu1: TMainMenu;
    Cadastros1: TMenuItem;
    DadosdaIgreja1: TMenuItem;
    DadosdaCongregao1: TMenuItem;
    ratamentos1: TMenuItem;
    Grupos1: TMenuItem;
    Profisses1: TMenuItem;
    Usurios1: TMenuItem;
    Membros1: TMenuItem;
    EntradasSadas1: TMenuItem;
    Dzimos1: TMenuItem;
    BensPatrimoniais1: TMenuItem;
    Sair1: TMenuItem;
    Relatorios1: TMenuItem;
    Relatoriosemgeral1: TMenuItem;
    EmissodeCrachas1: TMenuItem;
    Recibos1: TMenuItem;
    ListaTelefonicadeMembros1: TMenuItem;
    Utilitrios1: TMenuItem;
    Calculadora1: TMenuItem;
    Calendrio1: TMenuItem;
    BackupdoSitema1: TMenuItem;
    Sair2: TMenuItem;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    SpeedButton9: TSpeedButton;
    Label9: TLabel;
    EvAppProtect1: TEvAppProtect;
    procedure Sair1Click(Sender: TObject);
    procedure Sair2Click(Sender: TObject);
    procedure DadosdaIgreja1Click(Sender: TObject);
    procedure DadosdaCongregao1Click(Sender: TObject);
    procedure ratamentos1Click(Sender: TObject);
    procedure Grupos1Click(Sender: TObject);
    procedure Profisses1Click(Sender: TObject);
    procedure Usurios1Click(Sender: TObject);
    procedure Membros1Click(Sender: TObject);
    procedure EntradasSadas1Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMenu: TFrmMenu;

implementation

uses Udados_da_igreja, UCad_Congregacoes, Utratamentos, Ugrupo,
  UProfissoes, UcadUser, UcadMembros, UEntSaida;

{$R *.dfm}

procedure TFrmMenu.Sair1Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TFrmMenu.Sair2Click(Sender: TObject);
begin
 Application.Terminate;
end;

procedure TFrmMenu.DadosdaIgreja1Click(Sender: TObject);
begin
FrmDadosSede.Show;
end;

procedure TFrmMenu.DadosdaCongregao1Click(Sender: TObject);
begin
FrmCongregacoes.Show;
end;

procedure TFrmMenu.ratamentos1Click(Sender: TObject);
begin
FrmTratamentos.Show;
end;

procedure TFrmMenu.Grupos1Click(Sender: TObject);
begin
FrmGrupos.Show;
end;

procedure TFrmMenu.Profisses1Click(Sender: TObject);
begin
FrmProfissoes.Show;
end;

procedure TFrmMenu.Usurios1Click(Sender: TObject);
begin
FrmUsuario.Show;
end;

procedure TFrmMenu.Membros1Click(Sender: TObject);
begin
FrmCadMembros.Show;
end;

procedure TFrmMenu.EntradasSadas1Click(Sender: TObject);
begin
FrmEntSaida.Show;
end;

procedure TFrmMenu.SpeedButton9Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TFrmMenu.SpeedButton1Click(Sender: TObject);
begin
FrmTratamentos.Show;
end;

procedure TFrmMenu.SpeedButton2Click(Sender: TObject);
begin
FrmGrupos.Show;
end;

procedure TFrmMenu.SpeedButton3Click(Sender: TObject);
begin
FrmCadMembros.Show;
end;

procedure TFrmMenu.SpeedButton4Click(Sender: TObject);
begin
FrmUsuario.Show;
end;

procedure TFrmMenu.SpeedButton5Click(Sender: TObject);
begin
FrmProfissoes.Show;
end;

end.
GOSTEI 0
Janilto Oliveira

Janilto Oliveira

21/05/2017

[RESOLVIDO ]
Vou postar a resposta para os colegas saberem como foi resolvido:
Dentro da pasta do projeto há arquivos com o mesmo nome e unit do componente (EAppProt e TEvAppProtect):

O compilador verifica as bibliotecas que estão na pasta da aplicação primeiro e depois em outros locais.
Por isso não se encontrava a unit correta para compilação.

Exclua os seguintes arquivos:
- TEvAppProtect.dfm
- EAppProt.pas
- EAppProt.dcu

E teste a compilação novamente.

Fonte da Solução
GOSTEI 0
POSTAR