BIOMETRIA COM LEITOR MICROSOFT
alguém tem uma forma mais facil de usar o leitor biometrico da microsoft ?
tenho o exemplo da griule, não to conseguindo entender.
tenho o exemplo da griule, não to conseguindo entender.
1 x 0 pra mim... rsrs
ja consegui ativar e scanear a digita...
mas como salvo?
ja consegui ativar e scanear a digita...
mas como salvo?
SE VC CONSEGUIR ALGUMA COISA ME ENVIE POIS EU TAMBEM ESTOU ATRAZ DISSO....
OBRIGADO
OBRIGADO
fiz assim em delphi
// Adiciona a fingerprint template na base de dados
function AdicionarNovaDigital(TipoDedoID: String; FuncionarioID: String): Integer;
Var
id: Integer;
Begin
// Verifica se o template é válido.
if (TemplateIsValid()) then begin
// Adiciona template na base.
id := DB.addTemplate(TipoDedoID,FuncionarioID,template);
AdicionarNovaDigital := id;
end
else
AdicionarNovaDigital := -1;
end;
function addTemplate(vDedoID: String; vFuncID: String; template: TTemplate): Integer;
var
tptStream: TMemoryStream;
id: Integer;
begin
DM.QRDigitais.Close;
DM.QRDigitais.SQL.Clear;
DM.QRDigitais.SQL.Text := [ô]SELECT FIRST 1 * FROM DIGITAIS WHERE MATRICULA =[ô]+QuotedStr(vFuncID)+[ô] AND TIPODEDOID =[ô]+vDedoID;
DM.QRDigitais.Open;
if DM.QRDigitais.RecordCount > 0 then
DM.QRDigitais.Edit
else
DM.QRDigitais.Append;
DM.QRDigitaisTIPODEDOID.AsInteger := StrToInt(vDedoID);
DM.QRDigitaisMATRICULA.AsString := vFuncID;
tptStream := TMemoryStream.Create();
// cria memory stream.
tptStream.write(template.tpt^, template.size);
// salva template da memory stream stream para database.
(DM.QRDigitais.FieldByName([ô]TEMPLATEDIGITAL[ô]) as TBlobField).LoadFromStream(tptStream);
DM.QRDigitais.Post;
DM.QRDigitais.Transaction.Commit;
tptStream.Free();
addTemplate := id;
end;
// Adiciona a fingerprint template na base de dados
function AdicionarNovaDigital(TipoDedoID: String; FuncionarioID: String): Integer;
Var
id: Integer;
Begin
// Verifica se o template é válido.
if (TemplateIsValid()) then begin
// Adiciona template na base.
id := DB.addTemplate(TipoDedoID,FuncionarioID,template);
AdicionarNovaDigital := id;
end
else
AdicionarNovaDigital := -1;
end;
function addTemplate(vDedoID: String; vFuncID: String; template: TTemplate): Integer;
var
tptStream: TMemoryStream;
id: Integer;
begin
DM.QRDigitais.Close;
DM.QRDigitais.SQL.Clear;
DM.QRDigitais.SQL.Text := [ô]SELECT FIRST 1 * FROM DIGITAIS WHERE MATRICULA =[ô]+QuotedStr(vFuncID)+[ô] AND TIPODEDOID =[ô]+vDedoID;
DM.QRDigitais.Open;
if DM.QRDigitais.RecordCount > 0 then
DM.QRDigitais.Edit
else
DM.QRDigitais.Append;
DM.QRDigitaisTIPODEDOID.AsInteger := StrToInt(vDedoID);
DM.QRDigitaisMATRICULA.AsString := vFuncID;
tptStream := TMemoryStream.Create();
// cria memory stream.
tptStream.write(template.tpt^, template.size);
// salva template da memory stream stream para database.
(DM.QRDigitais.FieldByName([ô]TEMPLATEDIGITAL[ô]) as TBlobField).LoadFromStream(tptStream);
DM.QRDigitais.Post;
DM.QRDigitais.Transaction.Commit;
tptStream.Free();
addTemplate := id;
end;
ta complicado... alguém ja fez isso em vb?
seria bom....
No samples que vem com a instalação da griaule veja o módulo Util e a classe DBClass e observe que os métodos são os memos.
Veja os exemplos em vb6
Public Function AddTemplate(ByRef template() As Byte) As Long
Veja os exemplos em vb6
Public Function AddTemplate(ByRef template() As Byte) As Long
putz.. bati a cabeça pra entender...
mas deu certo... valeu RODRIGOMARCHESE.
agora é só comprar a licença da griaule.
mas deu certo... valeu RODRIGOMARCHESE.
agora é só comprar a licença da griaule.
Tópico encerrado , respostas não são mais permitidas