FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Conectar a ZKteco zk c3-100
Buenas gente, como andan?
Les hago una consulta, al parecer sensilla, pero dificl de implementar en este "limitado" lenguaje. Tenemos una aplicacion de control de acceso armandose, para implementar en un mes. Nos trajeron la placa de ZKteco, una C3-100 con lector de tarjeta y conectada a rj. La app de la placa funciona diez puntos, pero se nos complica tratar de conectarnos, o que nos "responda" desde delphi. Las unidades estan agregadas, tambien la coneccion a la IP y puerto (al menos estan pasados por parametros) Probamos una funcion que nos devuelve el status y nos responde "-1" JAJAJAJ. Alguno ya probó como hacerlo conectar? con eso me conformo y puedo jugar. La idea es que se valide en el momento el ingreso o egreso de tal persona con su tarjeta, y accione la barrera, automaticamente. Se agradece cualquier info! |
#2
|
||||
|
||||
¿No tiene ningún manual de instrucciones?
|
#3
|
||||
|
||||
No creo que tengas problema en conectar mediante puerto serie o rj45, que es el que trae según sus características:
Uno y otro. |
#4
|
||||
|
||||
Manual conseguimos, no se si sirve para este modelo, tambien la unidad, que adentro de esa unidad estan las funciones.
Conectar parece que conecta, pero cuando le tiramos el comando de devicestatus nos devuelve -1, asique no estaria entendiendo como hacerlo funcionar. Tenemos estos manuales: Development Manual for Communication Development Kit of ZK Offline Serial Products ASeries of Standalone Products Communication SDK manual Version 6.12 2009-9-15 Pero tenemos los patys quemados- |
#5
|
||||
|
||||
Pues ahí están los parámetros para conectar, seguro.
|
#6
|
||||
|
||||
Código:
Begin iMachineNumber:= 1; iGLCount:= 0; // Leemos los eventos en tiempo real zk1.RegEvent(1,65535); //Limpiamos los registros // lvItems.Items.Clear; // Deshabilitamos temporalmente hasta que obtengamos la info // zk1.EnableDevice(1,False); // Leemos los datos en memoria if ZK1.ReadGeneralLogData(1) then begin while zk1.GetGeneralLogData(iMachineNumber, sdwEnrollNumber, idwVerifyMode, idwInOutMode, idwYear, idwMonth, idwDay, idwHour, idwMinute, idwSecond, idwWorkcode) do begin iGLCount:= iGLCount+1; lvItems.Items.Add(IntToStr(iGLCount)); lvItems.Items.Add(IntToStr(sdwEnrollNumber)); lvItems.Items.Add(IntToStr(IdwVerifyMode)); lvItems.Items.Add(IntToStr(idwInOutMode)); lvItems.Items.Add(IntToStr(idwYear) + '-' + IntToStr(idwMonth) + '-' + IntToStr(idwDay) + ' ' + IntToStr(idwHour) + ':' + IntToStr(idwMinute) + ':' + IntToStr(idwSecond)); lvItems.Items.Add(IntToStr(idwWorkcode)); end; end; zk1.EnableDevice(1,true); Código:
begin // Conectamos el dispositivo if ZK1.Connect_Net('192.168.3.201',4370) = true then begin Edit1.Text:= 'CONECTADO'; Edit1.Color:= clGreen; Edit1.Repaint; end else begin Edit1.Text:= 'SIN CONEXIÓN'; Edit1.Color:= clRed; Edit1.Repaint; end; end; |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Conectar dos pc en red | Caral | Linux | 4 | 10-05-2010 00:20:36 |
Conectar Mi TV a mi PC | rgstuamigo | Varios | 18 | 16-10-2008 00:26:38 |
conectar a FIX | Melow23 | Conexión con bases de datos | 0 | 05-03-2007 16:49:03 |
Conectar 2 VPN's | leflaco | Redes | 1 | 24-11-2005 17:32:10 |
Conectar | trex2000 | Conexión con bases de datos | 1 | 04-10-2003 01:57:56 |
|