Error en Bitmap

[natalinuyo]

Este es el procedimiento

Código Delphi [-]
// Display fingerprint image on screen
procedure PrintBiometricDisplay(biometricDisplay: boolean; context: Integer);
var
  // handle to finger image
  handle: HBitmap;
  // screen HDC
  hdc: LongInt;
begin
  // free previous image

//  Fdetalle.limpia(handle);

  {If range checking is on - turn it off for now
   we will remember if range checking was on by defining
   a define called CKRANGE if range checking is on.
   We do this to access array members past the arrays
   defined index range without causing a range check
   error at runtime. To satisfy the compiler, we must
   also access the indexes with a variable. ie: if we
   have an array defined as a: array[0..0] of byte,
   and an integer i, we can now access a[3] by setting
   i := 3; and then accessing a[i] without error}
  {$IFOPT R+}
    {$DEFINE CKRANGE}
  {$R-}
  {$ENDIF}
   // get screen HDC
  hdc := GetDC(HWND(nil));

  if biometricDisplay then
    // get image with biometric info
    GrBiometricDisplay(template.tpt,raw.img, raw.width, raw.height,raw.Res, hdc,
                        handle, context)
  else
    // get raw image
    GrCapRawImageToHandle(raw.img, raw.width, raw.height, hdc, handle);

  // draw image on picture box
  if handle <> 0 then
  begin
    Fdetalle.image.Picture.Bitmap.Handle := handle;
//    Fdetalle.image.Picture.Bitmap.Handle := handle;
//    Fdetalle.image.Width := Fdetalle.Bevel1.Width;
  //  Fdetalle.image.Height := Fdetalle.Bevel1.Height;
    Fdetalle.image.Repaint();
  end;

  // release screen HDC
  ReleaseDC(HWND(nil), hdc);

  {Turn range checking back on if it was on when we started}
  {$IFDEF CKRANGE}
    {$UNDEF CKRANGE}
    {$R+}
  {$ENDIF}
end;

[[Chris]]

Lo mejor que puedes hacer por el momento es chequear la documentación del componente que estás utilizando para reconocer las huellas. Revise tu código y casi con certeza te puedo decir que la clave está en esta parte del código

Código Delphi [-]
    GrBiometricDisplay(template.tpt,raw.img, raw.width, raw.height,raw.Res, hdc,handle, context)
  else
    // get raw image
    GrCapRawImageToHandle(raw.img, raw.width, raw.height, hdc, handle);

si GrBiometricDisplay y GrCapRawImageToHandle son funciones, seguramente te deben de devolver un controlador o Handle, con lo cual el código quedaría algo así.

Código Delphi [-]
   handle :=  GrBiometricDisplay(template.tpt,raw.img, raw.width, raw.height,raw.Res, hdc,handle, context)
  else
    // get raw image
    handle := GrCapRawImageToHandle(raw.img, raw.width, raw.height, hdc, handle);

También observo que pasas como parámetro la variable handle, ese handle me imagino que es la imagen obtenida del dispositivo, a menos que eso parámetros sean de tipo "var" o "out". De todos modos en este aspecto no te puedo ayudar porque no conozco esas funciones, talvez si conociera su respectiva documentación si te pudiera ayudar. Cualquier cosa me comentas, bye.

[natalinuyo]

gracias por tu ayuda....

Resulta que mi problema es otro, igual no lo puedo solucionar aun...

Muchas gracias por tomarte el tiempo de contestarme

Resulta que en mi proyecto tengo 5 units... todo sería muy simple, pero el caso es que todos los sistemas que se desarrollan deben "subirse" a una especie de integrador, tengo q crear DLL's... eso no es problema, pero en este momento me marca error en todo lo que tiene que ver con los objetos del formulario.

Pensé q era de la imagen (en anteriores proyectos me causó problemillas...), pero ya vi que no.

No puedo hacer nada de Enable, visible o asignar valores, etc. en cosas que involucran objetos del formulario principal. Aún cuando los muevo al Form principal no funciona.

Lo raro es q eso no era problema, ya lo había probado con anterioridad y la bronquilla que tenía era que el lector no me funcionaba (no prendía)... Ahora "funciona", pero pues me crea otros conflictos .

Pero lo que me dijiste me aclaró algunas dudas que tenía... GRACIAS!