![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
|
|
#1
|
||||
|
||||
|
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- |
|
#2
|
||||
|
||||
|
Pues ahí están los parámetros para conectar, seguro.
__________________
La otra guía de estilo | Búsquedas avanzadas | Etiquetas para código | Colabora mediante Paypal |
|
#3
|
||||
|
||||
|
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;
|
![]() |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
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 |
|