10 respuestas en este tema

[enecumene]

Hola amigos tengo el siguiente code:

delphi

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.

[seoane]

Creo que no entiendo muy bien tu pregunta ¿quieres algo como esto? 

delphi

i:= 0;
if ZK.ReadAllGLogData(DevId) then
    while ZK.SSR_GetGeneralLogData(DevId,dwEnrollNumber,dwVerifyMode,dwInOutMode,
                                  dwYear,dwMonth,dwDay,dwHour,dwMinute,dwSecond,dwWorkCode) do
    begin
 
      inc(i);
 
      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);
      if i = 500 then
      begin
         // Aqui haces lo que quieras con los datos
         i:= 0;
         Data.Clear;   
      end;
    end;

O puedes que esto:

delphi

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);
      if Data.Count = 500 then
      begin
         Data.Clear;   
      end;
    end;

[egostar]

Ya checaste cual es la capacidad de la propiedad Data ?

Salud OS

[enecumene]

Es más parecido a la primera opción, es sólo que no entra al while de nuevo para los siguientes 500 registros y así sucesivamente.

Saludos.

[enecumene]

Ya checaste cual es la capacidad de la propiedad Data ?

Salud OS

Data es un TStringList, tiene algo que ver con su capacidad??

[egostar]

Ya checaste cual es la capacidad de la propiedad Data ?

Salud OS

Data es un TStringList, tiene algo que ver con su capacidad??

Pues por lo que comentas, me parece que hay algun problema con el StringList ya que vas agregando la info en esa variable.

.....el caso es que luego de 6,000 registros ya la cosa tarda demasiado al punto de no descargarse nada....

Salud OS

[enecumene]

Alguien sabe cual es la capacidad máxima de un TStringList??, porque hago el siguiente truco:

delphi

StringList1.capacity := StringList1.Count + TotaldeRegistros;

Pero al parecer me ignora, hago esto para descartar que sea el StringList el que me este causando el problema.

Saludos.

[poliburro]

Alguien sabe cual es la capacidad máxima de un TStringList??, porque hago el siguiente truco:

Dudo que sea un problema ligado a la capacidad de la clase ya la propiedad TEXT que es de tipo String o más propiamente AnsiString (LongString). Este tipo de datos es dinámico y está limitado unicamente por la capacidad de memoria del entorno.

No olvidemos que a menos que habilitemos en las propiedades del compilador el stict-var-strings. Todas los propiedades o variables que definamos como String en realidad serán LongString.


Saludos

[poliburro]

Hola amigos tengo el siguiente code:


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.

El problema amigo está ligado a la capacidad de memoria del equipo donde realizas la operación. En lugar de almacenar por completo la información en un Stringlist te convendria escribirla directamente en disco o en su defecto cada 500 registros ir guardando el contenido en disco y limpiar el objeto stringlist.

Saludox

[enecumene]

Bueno pues algo ocurre, ya que menos de 6,000 registros se descargan aunque tarda un poco. Probaré si es por el tipo de conección. (LAN, COM, USB) Ya les comentaré lso resultados.

Saludos.

[enecumene]

Probado a través del Puerto COM (Serial RS232) y se descargó correctamente, parece que el problema tiene que ver con la conección LAN y no por la capacidad del StringList, doy por RESUELTO el tema .

Saludos y gracias a todos.