Ver Mensaje Individual
  #7  
Antiguo 07-02-2007
jacanche jacanche is offline
Miembro
 
Registrado: may 2003
Ubicación: Campeche,Campeche,Mexico
Posts: 137
Reputación: 22
jacanche Va por buen camino
Que tipo de lector de huella digital usas?, yo tengo un Digital Persona U.are.U 4000, en el evento OnDone del componente que lee la huella le pongo el siguiente codigo.

Código Delphi [-]
procedure TfrmRegistrarHuella.FPRegisterTemplate1Done(Sender: TObject;
  var pTemplate: OleVariant);
var
          l_val : OleVariant;
       l_pArray : PSafeArray;
              i : integer;
       fpBuffer : PByteArray;
       MS    : TMemoryStream;
begin
  pTemplate.Export(l_val);
  l_pArray := PSafeArray(TVarData(l_val).VArray);
  blobSize := l_pArray.rgsabound[0].cElements * l_pArray.cbElements;
  fpBuffer := VarArrayLock(l_val);


  for i := 0 to blobSize - 1 do
           fpData[i] := fpBuffer[i];     //pvData es byte array

  VarArrayUnlock(l_val);
  mode := 0;
  Ms := TMemoryStream.Create;
  Ms.WriteBuffer(fpData,blobsize);
  tblPersonalHUELLA.LoadFromStream(MS); //Aqui guardo la huella en la base de datos
end;

Uso Delphi 6, firebird 1.5 y el sdk del lector
__________________
Saludos

Alfredo
Responder Con Cita