Si casimiro , lo debo haber abierto mal a el Tema. Te paso a explicar, esto es para guardar en una base Firebird, el resultado de una lectura de una huella dactilar. Baje unos ejemplos de Digital Personal ( es para un aparato UareU4500), y la lectura la hace barbaro, y guardar (creo) que tambien. Trabajo en Delphi7
Aca graba la lectura en la base:
Código Delphi
[-]
var
l_interface : IDispatch;
outFile : File;
vrnt : Variant; vt : integer ;
vtByteBuf : PByteArray; aryLow : integer;
aryHigh : integer;
rawDataSize: integer;
loopIndex : integer;
begin
......
......
vrnt:=FPTemplate.Serialize; aryLow:=VarArrayLowBound(vrnt,1);
aryHigh:=varArrayHighBound(vrnt,1);
aryHigh:=aryHigh-aryLow;
showmessage(inttostr(aryHigh));
vtByteBuf:=VarArrayLock(vrnt);
for loopIndex := 0 to aryHigh - 1 do
fpData[loopIndex]:=vtByteBuf[loopIndex];
VarArrayUnlock(vrnt);
MS := TMemoryStream.Create;
MS.WriteBuffer(fpData, aryHigh);
if not dm.cds.Active then
dm.cds.open;
dm.cds.Append;
dm.cdsAA_CODIGO.AsInteger := 0;
dm.cdsAA_NOMBRE.AsString := self.Edit1.Text;
dm.cdsAA_HUELLA.LoadFromStream(MS);
dm.cds.Post;
dm.cds.ApplyUpdates(0);
el tema es cuando quiero sacar de la base la huella y pasarla a un Variant asi
comparo las huellas.
Espero que me puedas ayudar, una ver terminado subo todo el codigo al foro
Gracias
Rodrigo