Como optimizar la conversion de hexadecimales a enteros decimales

[REVINFOR]

Buenas noches, en estos momentos estoy trabajando en un sistema de control de asistencia con un lector de huella...
Este lector al momento de capturar la huella (para tener el template de comparacion) genera un array de tipo byte, el cual lo convierto todos a hexadecimal y lo guardo como una cadena en la base de datos, por ejemplo:

Array = [1,2,3,...,20,30,40,...255]
Hex = 01,02,03,...14,1E,28....FF]
cadena a guardar = 010203...141E28....FF

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.

strtoint($01)
strtoint($02)
strtoint($03)
...

Este proceso se tiene que realizar por cada huella, hasta encontrar una coincidencia, y de no existir ninguna indicar un error ....

Los primeros dias, estaba con una velocidad de <1 seg, (tenia registrados 200 huellas) pero a la fecha tengo 1420, y noto que la velocidad esta disminuyendo...

Mi pregunta es: es posible optimizar el proceso de conversion de una cadena de numeros hexadecimales a enteros, o quizas el proceso que utilizo esta mal... me refiero talvez puedo guardar los datos directamente en formato numerico o algo asi....

Gracias de antemano.

[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