Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #6  
Antiguo 30-12-2018
Avatar de Chuma87
Chuma87 Chuma87 is offline
Miembro
 
Registrado: sep 2010
Posts: 24
Poder: 0
Chuma87 Va por buen camino
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;
devolver true devuelve, pero, no lee un joraca
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

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


La franja horaria es GMT +2. Ahora son las 23:21:00.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi