Foros Club Delphi - Proyecto software biometrico ZKSoftware

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Proyecto software biometrico ZKSoftware (https://www.clubdelphi.com/foros/showthread.php?t=87460)

RedVenom

08-01-2015 19:34:04

Proyecto software biometrico ZKSoftware

Dese empezar un nuevo proyecto para un reloj checador biométrico, pero no se por donde empezar ya tengo las DLL's que vienen con el SDK que trae el reloj pero no se como implementarlas en Delphi y no se como saber que funciones traen las DLL's para poderlas implementar en mi proyecto, el SDK es de ZKSoftware.

Espero me puedan orientar o si alguien tiene algún ejemplo me lo pueda facilitar.

Gracias y saludos.

RedVenom

09-01-2015 03:40:29

1 Archivos Adjunto(s)

Les comento que ya pude importar la DLL del SDK de ZKSoftware lo cual lo hice utilizando el wizard Import Component de Delphi el cual me creo en el proyecto una unidad que se llama zkemkeeper_TLB la cual agregue a uses de Unidad principal, ahora lo que no puedo hacer es llamar alguna función de la unidad que importe hago lo siguiente:

Código Delphi [-]unit UnidadPrincipal;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, zkemkeeper_TLB, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ZK1: TCZKEM;



implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 if (ZK1.Connect_Net('10.22.10.14', 4370)) then
  begin
    edit1.Text := 'No se pudo conectar';
  end
  else
    begin
      edit1.Text := 'Conectado corrrectamente';
    end;
end;

end.

Pero cuando corro el programa y hago click en el button1 me sale Access Violation lo cual supongo que ha de ser porque no estoy instanciando correctamente algo.

Espero me puedan orientar porque es la primera vez que hago algo así.

ElKurgan

09-01-2015 08:19:27

Cita:

Empezado por RedVenom (Mensaje 487494)

Código Delphi [-]unit UnidadPrincipal;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, zkemkeeper_TLB, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ZK1: TCZKEM;



implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 if (ZK1.Connect_Net('10.22.10.14', 4370)) then
  begin
    edit1.Text := 'No se pudo conectar';
  end
  else
    begin
      edit1.Text := 'Conectado corrrectamente';
    end;
end;

end.

Parece que ZK1 es una variable de tipo TCZKEM, y la estás usando directamente sin crear el objeto correspondiente. ¿Podría ser así?:

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
begin
  ZK1 := TCZKEM.Create;
 if (ZK1.Connect_Net('10.22.10.14', 4370)) then
  begin
    edit1.Text := 'No se pudo conectar';
  end
  else
    begin
      edit1.Text := 'Conectado corrrectamente';
    end;
end;

Saludos

Chuma87

03-01-2019 02:43:04

Cita:

Empezado por ElKurgan (Mensaje 487496)

Parece que ZK1 es una variable de tipo TCZKEM, y la estás usando directamente sin crear el objeto correspondiente. ¿Podría ser así?:

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
begin
  ZK1 := TCZKEM.Create;
 if (ZK1.Connect_Net('10.22.10.14', 4370)) then
  begin
    edit1.Text := 'No se pudo conectar';
  end
  else
    begin
      edit1.Text := 'Conectado corrrectamente';
    end;
end;

Saludos

Esto es correcto y funciona, de hecho nosotros estamos estancados de aca en adelante.
No sabemos como hacer para que no diga algo la controladora!

Casimiro Notevi

03-01-2019 10:15:20

Cita:

Empezado por Chuma87 (Mensaje 530268)

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

¿Y en el manual del desarrollador no dice nada?

Chuma87

03-01-2019 11:46:21

En los manuales de desarrollo esta explicado para otro lenguaje que no sabemos manejar bien, hay instancias que entendemos, pero hay funciones, parametros o eventos que no sabemos como implementarlo en delphi.

Casimiro Notevi

03-01-2019 12:04:15

¿Los tenéis en papel o formato pdf, txt, etc.?
Lo mismo, si puedes ponerlo por aquí, alguien le echa un vistazo y puede ayudar.

Neftali [Germán.Estévez]

03-01-2019 13:00:58

Cita:

Empezado por RedVenom (Mensaje 487494)

¿Has probado a instalarlo como componente y usarlo?
Piendo en que pueda realizar alguna inicialización que no se haga si creas la variable por código.

Chuma87

19-06-2020 03:02:47

Consulta....

Alguno pudo conectar varias PC al mismo tiempo a una placa C3-400? Nosotros no, todo en una red local, mediante un switch. Hemos probado dejando abierto el zkaccess mientras estaba conectado, y al abrir nuestro sistema en delphi, se desconectaba de zkaccess y se conectaba al nuestro. Es como que dos conexiones no se permiten. Pero que pasa si yo quiero controlarlo remotamente? Es un problema de la placa o un problema de redes?

Saludos

La franja horaria es GMT +2. Ahora son las 22:47:23.