Trafik kayıt cihazı (ZKTeco) ile iletişim kurmak için zkemkeepe kütüphanesini kullanıyorum ve cihaza kaydedilen bilgileri okuyabiliyor ve hatta cihaza başvurmadan yazılım ve ağ üzerinden yeni bir kullanıcı tanımlayabiliyorum ama ne yazık ki kullanıcılar tarafından cihazda kaydedilen süreleri düzenleyemiyorum! Örneğin kullanıcı 13:30'da cihaza trafik kaydı kaydetmiş ama nedense systemin saati yanlışmiş, cihaza 14:30'da kaydedilmesi gerekiyordu ve ben bunu aynı 14:30 olarak değiştirmek istiyorum. Herhangi bir bilgin var mı?
Bu kod ile cihazdaki verileri okuyabilirim:
Bu kod ile cihazdaki verileri okuyabilirim:
procedure TForm1.Button4Click(Sender: TObject);
var
dwVerifyMode,dwInOutMode,dwYear,dwMonth,dwDay,dwHour,dwMinute,
dwSecond,dwWorkCode, Privilege: Integer;
dwEnrollNumber, UName, Pass : WideString;
Enabel: WordBool;
begin
Lv1.Clear;
Lv2.Clear;
while CZKEM1.SSR_GetAllUserInfo(DevID,dwEnrollNumber, UName, Pass,
Privilege, Enabel) do
begin
with Lv1.Items.Add do
begin
Caption := dwEnrollNumber;
SubItems.Add(UName);
SubItems.Add(Pass);
SubItems.Add(inttostr(Privilege));
end;
end;
while CZKEM1.SSR_GetGeneralLogData(DevID,dwEnrollNumber,dwVerifyMode,
dwInOutMode,dwYear,dwMonth,dwDay,dwHour,dwMinute,dwSecond,dwWorkCode) do
begin
with Lv2.Items.Add do
begin
Caption := dwEnrollNumber;
SubItems.Add(inttostr(DevID));
if dwInOutMode = 0 then
SubItems.Add('Enter')
else
if dwInOutMode = 1 then
SubItems.Add('Go Home')
else
SubItems.Add('No Year');
SubItems.Add(IntToStr(dwDay)+'/'+IntToStr(dwMonth)+'/'+IntToStr(dwYear)+' '+
IntToStr(dwHour)+':'+IntToStr(dwMinute));
end;
end;
end;
-----------------------------------------

