Placas ZK de control de Acceso con Delphi

[Casimiro Noteví]

Hola, a la espera de lo que comenten otros compañeros mucho más expertos que yo en estas cosas.
Lo que sí veo es que esta cadena tipo 'C' no es válida.

Código Delphi [-]
userdata  := 'Pin=123\tCardNo=456789\tPassword=1\tGroup=1';

Si necesitas pasar tabuladores, en lugar del estilo 'C', usa por ejemplo:

Código Delphi [-]
userdata  := 'Pin=123'#9'CardNo=456789'#9'Password=1'#9'Group=1';

[Panasys]

Casimiro tu solucion es totalmente correcta, funciona ok.

Muchisimas gracias.

[Casimiro Noteví]

Me alegro
Y no ha hecho falta ningún experto

[Chuma87]

Perdon por revivir este hilo, pero estamos con un problema en el setdevice...

A diferencia Panasys, a nosotros siempre nos devuelve -100 (The table structure does not exist).
IDcon obviamente guarda el handle...

function SetDeviceData  (IDCon : THandle; tablename:String; data:String; options:String): Integer;StdCall; external 'plcommpro.dll';

procedure TForm1.Bt_SetDeviceClick(Sender: TObject);
Var Tabla:String;
    Datos:String;
    Opciones:String;
    Ret:Integer;
begin
    Tabla:= 'user';
    Datos:= 'CardNo=9765216\tPin=123\tPassword=1\tGroup=1\tStartTime=20190112\tEndTime=20190113';
    Opciones:= '';
    Ret:= SetDeviceData(IDCon,'user',Datos,Opciones);
    Memo1.Lines.Add(IntToStr(ret));
end;

Como sabemos si esta bien estructurado?

En datos tambien probamos asi:

Datos:= 'CardNo=9765216\tPin=123\tPassword=1\tGroup=1';

[delphi.com.ar]

Empezado por Chuma87

En datos tambien probamos asi:

Datos:= 'CardNo=9765216\tPin=123\tPassword=1\tGroup=1';

Estas replicando el mismo error de Panasys, deberías hacer lo que dijo Casimiro:

Código Delphi [-]
Datos := 'CardNo=9765216'#9'Pin=123'#9'Password=1'#9'Group=1';

ó

Código Delphi [-]
Datos := 'CardNo=9765216'#9'Pin=123'#9'Password=1'#9'Group=1'#9'StartTime=20190112'#9'EndTime=20190113';

El compilador de Delphi, no interpreta los secuencias de escape \t \n....

Saludos!

[Chuma87]

Empezado por delphi.com.ar

Estas replicando el mismo error de Panasys, deberías hacer lo que dijo Casimiro:

Código Delphi [-]
Datos := 'CardNo=9765216'#9'Pin=123'#9'Password=1'#9'Group=1';

ó

Código Delphi [-]
Datos := 'CardNo=9765216'#9'Pin=123'#9'Password=1'#9'Group=1'#9'StartTime=20190112'#9'EndTime=20190113';

El compilador de Delphi, no interpreta los secuencias de escape \t \n....

Saludos!

El problema estaba en la sdk....las que necesitamos nosotros son pull...ya lo resolvimos! Gracias

[AngelEG]

Empezado por delphi.com.ar

Estas replicando el mismo error de Panasys, deberías hacer lo que dijo Casimiro:

Código Delphi [-]
Datos := 'CardNo=9765216'#9'Pin=123'#9'Password=1'#9'Group=1';

ó

Código Delphi [-]
Datos := 'CardNo=9765216'#9'Pin=123'#9'Password=1'#9'Group=1'#9'StartTime=20190112'#9'EndTime=20190113';

El compilador de Delphi, no interpreta los secuencias de escape \t \n....

Saludos!

Buen día, tengo el mismo problema.. sólo me graba el Pin, luego encontré este hilo, y veo que lo han solucionado, pero no me está funcionando.

Tengo la función declarada así:

Código Delphi [-]
function SetDeviceData  (IDCon : THandle; tablename:String; data:String; options:String): Integer;StdCall; external 'plcommpro.dll';

y la llamo de esta manera:

Código Delphi [-]
procedure TForm1.Bt_SetDeviceClick(Sender: TObject);
Var Tabla:String;
    Datos:String;
    Opciones:String;
    Ret:Integer;
begin
    Tabla:= 'user';
    Datos:= 'Pin=33118973'#92'CardNo=9765216';
    Opciones:= '';
    Ret:= SetDeviceData(IDCon,Tabla,Datos,Opciones);
    Memo1.Lines.Add(IntToStr(ret));
end;

He probado con #9 también, esto reemplazaría por completo '\t' arriba puse #92 porque esa es "barra invertida" verdad. Podrían ayudarme con esto me tiene muy trabado al intentar insertar usuarios.