Ayuda con variable tipo File

[JerS]

Empezado por ecfisa

Hola Jers.

Ahora estoy un poco confundido sobre que es lo que buscas hacer. Pero fijate si de este hilo podés sacar alguna idea.

Saludos.

Lo que intento hacer es cambiar el codigo que publique , el cual utiliza una variable tipo file, ya que usa un archivo , por un codigo que en vez de usar un archivo traiga la información de un campo blob y pueda manipularla tal cual manipula el archivo

[ecfisa]

Empezado por JerS

por un codigo que en vez de usar un archivo traiga la información de un campo blob y pueda manipularla tal cual manipula el archivo

Hola JerS.

La función BlobToRecord del enlace que te pasé, pasa el contenido de un TBlobField a una variable de tipo record (supongo que LPDBREC es un tipo apuntador a record). Claro que tendrás que modificar algunas cosas como el tipo del parámetro, pero si entendí bien tendría que funcionar.

Lo que realmente me confunde es que quieras asignar una variable tipo BLOB a una tipo FILE, ya que aún superando las dificultades que te comenta Ñuño, no veo que funcionalidad podría tener. Es decir ¿ Deseas pasar la variable BLOB como handle de un tipo FILE ?

Saludos.

[[nlsgarcia]]

JerS,

Empezado por JerS

...tengo almacenado en mi base de datos una plantilla de tipo blob y quiero asignarla a una variable tipo file esto es posible?...

Entiendo que en tu BD tienes un campo Blob y quieres almacenar en este un archivo binario.

Empezado por JerS

...tengo unas SDK de identificación biometrica pero funciona guardando las huellas o templates en archivos, pero me gustaria manejarlo con Base de Datos...

Corolario de lo anterior.

Revisa estos links:

Working With BLOBs Using Delphi:
http://www.onlinedelphitraining.com/...ters/blobs.htm

How save a file in BLOB and use later:
http://www.scalabium.com/faq/dct0141.htm

Espero sea útil

Nelson.

[JerS]

Amigos en mi ignorancia a la hora de manejar archivos queria saber que se hace exactamente en esta función:

Código Delphi [-]
 BlockRead( fPtr, PChar( lpRec.data )^, dSize, rdTotal );
   if DWORD( rdTotal ) <> dSize then
   begin
      CloseFile( fPtr );
      FreeRecordMem( lpRec );
      GetRecord := nil;
      Exit;
   end;

para hacer lo mismo pero con mi variable TMemory

[ecfisa]

Empezado por JerS

Amigos en mi ignorancia a la hora de manejar archivos queria saber que se hace exactamente en esta función:
...

Hola JerS.

Me parece que la explicación es mas clara comentando el código:

Código Delphi [-]
 { BlockRead lee uno o mas registros lógicaos a partir de la
   posición actual del archivo y los almacena en una variable }
   BlockRead(fPtr,               // file
             PChar(lpRec.data)^, // variable
             dSize,              // nro de registros
             rdTotal);           // registros leidos

   { Si el número de registros leidos difiere de los solicitados ...}
   if DWORD(rdTotal) <> dSize then
   begin
      CloseFile(fPtr);           // cerrar file
      FreeRecordMem(lpRec);      // ?? (supongo libera puntero a record)
      GetRecord := nil;          // pone a nulo el puntero GetRecord
      Exit;                      // sale del procedimiento/funcion
   end;

Saludos.