Ayuda con Blob

[JerS]

Amigos ya se que el tema de blob esta muy trillado, pero en mi caso utiliza delphi7, mysql y un lector de biometria U are U..

cuando voy a grabar la huella en mi tabla de mysql en un campo tipo blob, me dice

Error: invalid class typecast.


este es el codigo que estoy utilizando..
ojo donde:

rs es el recordset de mi tabla de personal;
huella es de tipo blob;
y estoy conectando mi Base de datos de mysql con un odbc
estoy utilizando ADO

Código Delphi [-]
var 
Stream: TMemoryStream;  
begin Stream := TMemoryStream.Create;
formmain.image.Picture.Bitmap.SaveToStream(Stream);
TBlobField(rs.FieldByName('huella')).LoadFromStream(Stream);
rs.post();

[oscarnoe]

Hola JerS,
esta claro que el error esta en:

Código Delphi [-]
TBlobField(rs.FieldByName('huella')).LoadFromStream(Stream);

Pero mira aqui a ver si te sirve este codigo:

http://www.swissdelphicenter.ch/torr...de.php?id=1271

Espero que te sea de ayuda.

Oscar Noe

[JerS]

BUenas ya logre guardar en mi tabla de Mysql la imagen, ahora lo que no puedo es cargarla en un Timage; este es el codigo que estoy utilizando

Código Delphi [-]
var
jpg:TJPEGImage;
strm:TMemoryStream;
rs: TADODataSet;
begin

  rs := TADODataSet.Create(nil);
  rs.Connection := adoconnection1;
  rs.CommandText := 'SELECT * FROM enroll where id='+label1.Caption;
  rs.Open();

   if Not rs.Recordset.EOF Then
    Begin

   Jpg :=TJPEGImage.Create;
   Strm := TMemoryStream.Create;

  {1}   TBlobField(rs.FieldByName('template')).SavetoStream(Strm);

/// Ojo he probado con el 1 y el 2 siempre me da error de invalid class typecast

{2}    (rs.FieldByName('template')as TBlobField).SaveToStream(Strm);

   jpg.LoadFromStream(strm);
   image.Picture.Assign(jpg);

y siempre me da el siguiente error "Invalid class typecast"

[oscarnoe]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  blob: TBlobStream;
begin
  blob := yourDataset.CreateBlobStream(yourDataset.FieldByName('YOUR_BLOB'), bmRead);
  try
    blob.Seek(0, soFromBeginning);

    with TFileStream.Create('c:\your_name.doc', fmCreate) do
      try
        CopyFrom(blob, blob.Size)
      finally
        Free
      end;
  finally
    blob.Free
  end;
end;