Cita:
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.