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
public
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.