Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 09-01-2015
Avatar de ElKurgan
[ElKurgan] ElKurgan is offline
Miembro Premium
 
Registrado: nov 2005
Posts: 1.235
Poder: 20
ElKurgan Va camino a la fama
Cita:
Empezado por RedVenom Ver Mensaje
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
Responder Con Cita
  #2  
Antiguo 03-01-2019
Avatar de Chuma87
Chuma87 Chuma87 is offline
Miembro
 
Registrado: sep 2010
Posts: 24
Poder: 0
Chuma87 Va por buen camino
Cita:
Empezado por ElKurgan Ver Mensaje
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!
Responder Con Cita
  #3  
Antiguo 03-01-2019
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.055
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por Chuma87 Ver Mensaje
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?
Responder Con Cita
  #4  
Antiguo 03-01-2019
Avatar de Chuma87
Chuma87 Chuma87 is offline
Miembro
 
Registrado: sep 2010
Posts: 24
Poder: 0
Chuma87 Va por buen camino
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.
Responder Con Cita
  #5  
Antiguo 03-01-2019
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.055
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
¿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.
Responder Con Cita
Respuesta



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
Manejo Biometrico con Verifinger Sdk v4.2 Standard fredo Trucos 10 23-03-2016 17:16:42
Componente para lector biometrico delphi 5 GrupoDatasoft API de Windows 4 22-04-2013 17:24:14
Lector biometrico de huellas digitales pborges36 Varios 0 05-02-2010 16:55:25
Manejo Biometrico con Verifinger - Compatibilidad con Delphi 7 - Gracias Fredo erikmx Gráficos 2 21-01-2008 01:37:16
Como hacer Presupuesto de un Proyecto Software McKarthY Varios 3 20-03-2004 03:06:21


La franja horaria es GMT +2. Ahora son las 05:00:51.


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