Erro ao compilar projeto Delphi
21/05/2017
0
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:
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:
Ja agradeço a todos e se precisar mais detalhes so pedir por favor!
[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
Curtir tópico
+ 0
Responder
Post mais votado
22/05/2017
Bom dia amigo! Você precisa adicionar as bibliotecas desse componente na sessão "USES" do seu projeto.
Mateus Ribeiro
Responder
Mais Posts
22/05/2017
Janilto Oliveira
Passei o dia todo nesse codigo refazendo desfazendo refazendo!
Responder
22/05/2017
Janilto Oliveira
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
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.
Responder
27/05/2017
Janilto Oliveira
[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.
[url:descricao=Fonte da Solução ]http://www.activedelphi.com.br/forum/viewtopic.php?t=93689[/url]
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.
[url:descricao=Fonte da Solução ]http://www.activedelphi.com.br/forum/viewtopic.php?t=93689[/url]
Responder
Clique aqui para fazer login e interagir na Comunidade :)
