if ZK.ReadAllGLogData(DevId) then while ZK.SSR_GetGeneralLogData(DevId,dwEnrollNumber,dwVerifyMode,dwInOutMode, dwYear,dwMonth,dwDay,dwHour,dwMinute,dwSecond,dwWorkCode) do begin ShortDateFormat := 'yyyy/mm/dd'; ShortTimeFormat := 'hh:mm'; TimeSeparator := ':'; DateSeparator := '/'; Fecha := StrToDateTime(IntToStr(dwYear)+'/'+IntToStr(dwMonth)+'/'+IntToStr(dwDay)+' '+IntToStr(dwHour)+':'+IntToStr(dwMinute)); s := format('%.*d',[7,StrToInt(dwEnrollNumber)])+'>'+FormatDateTime('yyyy/mm/dd', Fecha)+':'+FormatDateTime('hh:mm', Fecha) + Char(#13) + Char(#10); Data.Add(s); end;
Trabajo con equipos biométricos, el code anterior descarga la data de asistencias almacenada en dicho equipo, la cual funciona perfectamente, el caso es que luego de 6,000 registros ya la cosa tarda demasiado al punto de no descargarse nada, mi duda es si se puede hacer una while por cada 500 registros, o sea, lea los primeros 500 registros en memoria y luego continúe con los siguientes 500 registros y así sucesivamente hasta terminar.
Saludos.