Ver Mensaje Individual
  #2  
Antiguo 09-01-2015
RedVenom RedVenom is offline
Miembro
 
Registrado: oct 2003
Ubicación: Tabasco, Mexico
Posts: 110
Reputación: 21
RedVenom Va por buen camino
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í.
Archivos Adjuntos
Tipo de Archivo: rar Prueba ZK biometrico.rar (69,3 KB, 134 visitas)
Responder Con Cita