Ver Mensaje Individual
  #3  
Antiguo 12-11-2006
JerS JerS is offline
Miembro
 
Registrado: may 2005
Ubicación: Venezuela
Posts: 254
Reputación: 19
JerS Va por buen camino
Post

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"
__________________
La vida es un simple pero complejo If

J=rS
Responder Con Cita