Ir para conteúdo
  • Cadastre-se

cc11aa22ss33aa44

Membros
  • Total de ítens

    6
  • Registro em

  • Última visita

cc11aa22ss33aa44's Achievements

Newbie

Newbie (1/14)

  • Week One Done
  • One Month Later
  • First Post
  • Conversation Starter

Recent Badges

1

Reputação

  1. Juliomar Marchete Obrigado por me ajudar mesmo. conseguir resolver o problema com a tua ajuda.
  2. te agradeço pois já exclui o da parte de baixo mas o erro continua.
  3. devo apagar somente a ($R *.dfm) de cima ou a de baixo ? ou também a implementação de cima ou a de baixo ?
  4. Boa tarde Juliomar Marchete ! como assim a unit foi bagunçada ?
  5. 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.
×
×
  • 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.