Como optimizar la conversion de hexadecimales a enteros decimales

[ecfisa]

Hola REVINFOR.

Empezado por REVINFOR

...
Luego, para controlar la asistencia del usuario, tengo que convertir esta cadena en el array de bytes que tenia al principio...
para ello, lo que hago es contar las posiciones de la cadena de 2 en 2, anteponiendo el caracter $ y usando la funcion strtoint.
...

A partir de aquí no me queda del todo claro la secuencia de acciones que sigues...

Sin embargo pareciera, que una vez obtenida la huella y pasada a cadena, te podrías ahorrar esa última conversión comparándola directamente con las almacenadas en la tabla.

A modo de ejemplo:

Código Delphi [-]
function BytesToString(v: array of byte): string;
const
  DIGHEX = '0123456789ABCDEF';
var
  i: Integer;
begin
  SetLength(Result, Length(v) shl 1);
  for i :=  Low(v) to High(v) do
  begin
    Result[1+2*i]:= DIGHEX[(v[i] shr  4)+1];
    Result[2+2*i]:= DIGHEX[(v[i] and 15)+1];
  end;
end;

...
var
  Huella: array of Byte;
  ...
begin
  SetLength(Huella, N); // (N igual a tamaño_leido + 1)

  // CapturarHuella sería una función que devuelve verdadero si la lectura resulta bién
  // y en el parámetro Huella los Bytes enviados por el lector
  if CapturarHuella(Huella) then  
    with tuQuery do
    begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT COUNT(*) AS ASISTENCIAS FROM TU_TABLA');
      SQL.Add('WHERE SIGNATURE = :PSIGNAT');
      SQL.Add('AND FECHA BETWEEN :DESDE AND :HASTA');
      ParamByName('PSIGNAT').AsString:= BytesToString(Huella);
      ...

      Open;
      //... acciones que desees
      if not IsEmpty then
        ShowMessage(Format('Asistencias: %d', [FieldByName('ASISTENCIAS').AsInteger]))
      ... 
    end;
  ...

Saludos

[REVINFOR]

Gracias por la pronta respuesta...

Sere mas explicito, en realidad son dos procesos que se aplican:

1) registrar la huella a los usuarios para controlar la asistencia, este procedimiento se realiza SOLO UNA VEZ POR USUARIO para guardar el template de comparacion para realizar el registro de asistencia. Al momento de guardar los datos se pasa el array de bytes a una cadena que se guarda en la base. (El primer ejemplo del primer post).

2) Registro de asistencia, para que el usuario registre la asistencia, el lector de huella captura los datos en un array de bytes y se procede a comparar con las huellas que se tienen guardadas en formato de cadena, solo que para que se puedan comparar ambos datos, cada cadena la tengo que convertir en un array de bytes.

Ejemplo:

bAsistencia = array of bytes corresponde al usuario Perez

TUsuarios = Tabla con los 1420 usuarios

Código Delphi [-]
with TUsuarios do
begin
  encontrado := false;
  close;
  open;

  while not eof do
  begin
    if Comparar(bAsistencia, TUsuariosTemplate.asString) then
    begin
      showmessage('Encuentro exitoso');
      encontrado := true;
      break;
    end;      
    next;
  end;

  if not encontrado then
    showmessage('Error: Usuario no encontrado');
end;

Como pueden ver, la funcion Comparar es la que quiero optimizar, esta funcion iria mas o menos asi

Código Delphi [-]
function Comparar(bAsistencia, cadena: string):boolean;
var d,i:integer;
  a:array of byte;
begin
  result := false;
  // sacamos la longitud de la cadena dividido entre dos
  d := length(cadena) div 2;
  // asignamos el tamaño del array de bytes
  setlength(a,d);

  // llenamos el array con los datos de la cadena, haciendo la conversion de hex a decimal
  for i := 1 to d do
    a[i - 1] := strtoint('$' + cadena[2*i - 1] + cadena[2*i]);
  
  // la funcion compare es parte del SDK del lector de huella, que me pide trabajar con dos array de bytes
  result := compare(bAsistencia,a);
end;

Gracias por el apoyo.... revisare el codigo que acaban de publicar para ver como lo podemos optimizar el proceso...

[mamcx]

Y para que lo conviertes en bytes? Porque no lo pasas a string en la BD? o a un Integral?

Parte del truco de hacer algo rapido es elegir la estructura de datos mas optima para el caso, y reducir/eliminar los pasos de conversion.

[ecfisa]

Hola REVINFOR.

Empezado por REVINFOR

2) Registro de asistencia, para que el usuario registre la asistencia, el lector de huella captura los datos en un array de bytes y se procede a comparar con las huellas que se tienen guardadas en formato de cadena, solo que para que se puedan comparar ambos datos, cada cadena la tengo que convertir en un array de bytes.

Código Delphi [-]
with TUsuarios do
begin
  encontrado := false;
  close;
  open;

  while not eof do
  begin
    if Comparar(bAsistencia, TUsuariosTemplate.asString) then
    begin
      showmessage('Encuentro exitoso');
      encontrado := true;
      break;
    end;      
    next;
  end;

  if not encontrado then
    showmessage('Error: Usuario no encontrado');
end;

Como te comenté anteriormente y también te señala mamcx, creo innecesario la reconversión a array of Byte. Una vez obtenida la lectura lo conviertes a cadena y comparas contra la tabla.

Por otro lado la búsqueda secuencial es lenta, voy a reestructurar mi sugerencia anterior para ver si de ese modo me explico mejor.

Código Delphi [-]
function BytesToString(v: array of byte): string;
const
  DIGHEX = '0123456789ABCDEF';
var
  i: Integer;
begin
  SetLength(Result, Length(v) shl 1);
  for i :=  Low(v) to High(v) do
  begin
    Result[1+2*i]:= DIGHEX[(v[i] shr  4)+1];
    Result[2+2*i]:= DIGHEX[(v[i] and 15)+1];
  end;
end;

// Reemplazo de la búsqueda secuencial
function TForm1.IsUserFound(const Signature: string): Boolean;
begin
  with tuQuery do // tuQuery: (TQuery, TADOQuery, TIBQuery, etc)
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT ID FROM USUARIOS');
    SQL.Add('WHERE SIGNATURE = :PSIGNAT');
    ParamByName('PSIGNAT').AsString:= Signature;
    Open;
    Result := not IsEmpty; // True si devolvió un resultado
  end;
end;

...
var
  Signature: string;
begin
  Signature:= BytesToString(array_of_bytes_devuelto_x_el_lector);
  if IsUserFound(Signature) then
  ...

Saludos

Edito: Me olvidaba..., Para el caso específico de ADO:

Código Delphi [-]
  Parameters.ParamByName('PSIGNAT').Value:= Signature

[REVINFOR]

Hola nuevamente....

Revisando sus sugerencias... hay algunos puntos que se tienen que aclarar:

1. Es verdad que seria mas sencillo, cambiar la huella capturada a cadena y comparar directamente con las cadenas que tengo guardadas en la base, pero el SDK que viene con el lector me solicita trabajar con un array de bytes.

2. En un principio, cree un procedimiento almacenado, donde buscaba con un select la cadena capturada dentro de la tabla, pero en todas mis pruebas no acertaba ningun usuario, al revisar la documentacion del lector, resulta que no se trabaja con una imagen identica para verificar la huella, sino una matriz de puntos donde el algoritmo analiza la similitud de los datos capturados, algo asi como un camino de grafos, donde se tiene un porcentaje de exito y fracaso (lo ultimo es algo que deduzco por que el algoritmo es propio del lector y este esta embebido en un componente activeX).

Por los motivos anteriores es que aplico las conversiones que pueden ver, y ahi se encuentra la necesidad de optimizar este proceso...

[ecfisa]

Hola nuevamente.

Entiendo... Una consulta ¿ El array de bytes que devuelve el lector es de longitud fija ? (te hago esta pregunta para ver si se le puede buscar la vuelta por el lado del almacenamiento).

Saludos

[REVINFOR]

Hola...

Revisando la tabla, todos tienen una cadena de 3264 caracteres, asi que parece que el lector trabaja con un array de 1632 elementos, y se podria trabajar con un valor de longitud fija

[ecfisa]

Hola.

No sé con que RDBMS estás trabajando, pero siendo así, tal vez puedas definir un formato numérico para el almacenamiento y ahorrarte la conversión a cadena...

Saludos

[mamcx]

Ahora bien, si entiendo esto, es que el metodo de busca obligadamente debe tocar el ActiveX. Y eso obliga a hacer un proceso sequencial por N usuarios.

Seria ideal que supieras que algoritmo se usa para hacer la comparacion, y reimplementarlo en el motor. Si no se puede, entonces hay que hacer algo mas complejo.

Ya que no se como es el asunto con huellas, hago una analogia con como se hace una busqueda de geolocalizacion... en donde si quieres buscar un punto en el globo terraqueo, puedes acortar el rango de busqueda deduciendo que el punto esta en la ciudad tal.

Hay forma de decir:

Esta huella esta entre este rango?

Hay forma de pre-indexar las busquedas? (Osea, tener una tabla de busquedas ya hechas y almacenarlas)

Otra seria tener un proceso de busqueda en paralelo, buscando con N-threads.

Que tan variable son las lecturas entre una tomada de huella y otra? Hay modelos probabilisticos que se podrian evaluar...

Y por ultimo, cuantos usuarios son? Que tan lento es esto? Que tasa de crecimiento tiene esto? No habra otro SDK mas rapido y mejor?

P.D: Me encontre este articulo que habla sobre el tema

http://timvdm.blogspot.com/2012/08/f...g-various.html