Ir al contenido


Foto

Lector Biometrico Zkteco K40

Huella

  • Por favor identifícate para responder
No hay respuestas en este tema

#1 oscarac

oscarac

    Newbie

  • Miembros
  • Pip
  • 6 mensajes

Escrito 18 febrero 2019 - 09:19

Buenos dias
estoy trabajando con un lector Biometrico Zkteco 
las librerias zkemkeeper las instale y me genero una unidad en Delphi[/size]
ya logre hacer la conexion utilice el siguiente codigo encontrado en esta pagina
 

 

delphi
  1. procedure TRptEntSal.button1click(Sender: TObject);
  2. var
  3.   dwEnrollNumber, dwMachinePrivilege ,dwVerifyMode,dwInOutMode,dwYear,dwMonth,dwDay,dwHour,dwMinute,dwSecond,dwWorkCode: integer;
  4.   fecha:TDateTime;
  5.   s:string;
  6.   connect: boolean;
  7.   DevId: integer; //Numero de maquina, siempre asignale 1
  8. begin
  9.  
  10.  
  11. connect := CZKEM1.Connect_net(devIp, devPort);
  12. DevId := 1;
  13.  
  14.  
  15. if connect then begin //verificamos si se conecto correctamente
  16.     if CZKEM1.ReadAllGLogData(DevId) then
  17.     while CZKEM1.GetGeneralLogData(DevId,dwEnrollNumber,dwVerifyMode,dwInOutMode,
  18.                                   dwYear,dwMonth,dwDay,dwHour,dwMinute,dwSecond,dwWorkCode) do
  19.     begin
  20.       ShortDateFormat := 'mm/dd/yyyy';
  21.       ShortTimeFormat := 'hh:mm';
  22.       TimeSeparator := ':';
  23.       DateSeparator := '/';
  24.       Fecha := StrToDateTime(IntToStr(dwYear)+'/'+IntToStr(dwMonth)+'/'+IntToStr(dwDay)+' '+IntToStr(dwHour)+':'+IntToStr(dwMinute));
  25.       s := format('%.*d',[7,Inttostr(dwEnrollNumber)])+'>'+FormatDateTime('mm/dd/yyyy', Fecha)+':'+FormatDateTime('hh:mm', Fecha) + Char(#13) + Char(#10);
  26.       Memo.Lines.Add(s); //Coloca un Memo para ver los resultados de la descarga.
  27.     end;
  28.   end else ShowMessage('no se pudo conectar al equipo!!');
  29. end;

 

 
Hasta ahi todo perfecto, pero tengo la inquietud de como hacer para que inmediatamente de leer la huella (el codigo resultante) vaya a un edit
no tengo la menor idea de como hacerlo, si alguien tiene experiencia en esto le agradeceria que me de una mano
 
saludos desde Peru
  • 0





Etiquetado también con una o más de estas palabras: Huella