Ir para conteúdo
  • Cadastre-se

dev botao

could not compile used unit 'principal.pass'


  • Este tópico foi criado há 973 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

unit UPrincipal;

interface

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

type
  TfrmPrincipal = class(TForm)
    procedure Sar4Click(Sender: TObject);
    procedure Extrair;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPrincipal: TfrmPrincipal;

implementation

uses UDM_dados, UUsuario, uUtil, UImpDigital, uCallbacks, uDBClass, GrFinger;

{$R *.dfm}

procedure TfrmPrincipal.Timer1Timer(Sender: TObject);
begin

end;

procedure TfrmPrincipal.Cargos1Click(Sender: TObject);
begin

end;

procedure TfrmPrincipal.N6Click(Sender: TObject);
begin

end;

procedure TfrmPrincipal.Sar2Click(Sender: TObject);
begin

end;

procedure TfrmPrincipal.N7Click(Sender: TObject);
begin

end;

procedure TfrmPrincipal.N1Click(Sender: TObject);
begin

end;

procedure TfrmPrincipal.Enderecos1Click(Sender: TObject);
begin

end;

procedure TfrmPrincipal.Funcionarios1Click(Sender: TObject);
begin

end;

procedure TfrmPrincipal.Endereo1Click(Sender: TObject);
begin

end;

procedure TfrmPrincipal.Alunos1Click(Sender: TObject);
begin

end;

var
   frmUPrincipal: TfrmPrincipal;
   imageImpDig: TImage;
   memoImpDig: TMemo;

implementation

uses UUsuario, UImpDigital, uUtil, uCallbacks, uDBClass,
GrFinger;

{$R *.dfm}

procedure TfrmPrincipal.Sar4Click(Sender: TObject);
begin
     try
     application.CreateForm(TfrmUsuario, frmUsuario);
     frmUsuario.ShowModal;
     finally
     freeandnil(frmUsuario);
     end;
end;
procedure TfrmPrincipal.Extrair;
var
   ret: Integer;
begin
    // extract template
   ret := ExtractTemplate();
   // write template quality to log
   if (ret = GR_BAD_QUALITY)
    then writeLog('Digital extraida com sucesso.baixa qualidade.')
   else if(ret = GR_MEDIUM_QUALITY)
   then writeLog('Digital extraida com sucesso.media qualidade.')
   else if(ret = GR_HIGT_QUALITY)
   then writeLog('Digital extraida com sucesso.alta qualidade.')
   if ret >= 0 then
begin
   // if no error, display minutiae/segments/directions into the image
   PrintBiometricDisplay(true, GR_NO_CONTEXT);
   // enable operations we can over extracted template
// BtExtract.Enabled := false;
// btEnroll.Enabled := true;
// btIdentify.Enabled := true;
// btVerify.Enabled := true;

end

else
    // white error to log
    white error(ret);
end;
end.

Link para o comentário
Compartilhar em outros sites

  • Moderadores
17 minutos atrás, cc11aa22ss33aa44 disse:

devo apagar somente a ($R *.dfm) de cima ou a de baixo ? ou também a implementação de cima ou a de baixo ?

tu vai precisar ver pois está com esse erro.

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
23 minutos atrás, cc11aa22ss33aa44 disse:

te agradeço pois já exclui o da parte de baixo mas o erro continua.

não é só ele jovem

anexe a unit e o dfm aqui

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 973 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.