Ver Mensaje Individual
  #9  
Antiguo 07-11-2008
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 28
Lepe Va por buen camino
Aps, a ver si consigo explicarme.

doble clic a tu TTable, Tquery o lo que sea, si la ventana que aparece está en blanco, tienes que crear los campos persistentes (botón derecho y Add All Fields), ahora selecciona el campo Blob. Verás que en el inspector de objetos ya nos dice que es un TBlobField, bueno, en realidad, dependerá de los componentes de acceso IBX, BDE, ZEOS, etc, será un TIBBlobField, TBDEBlobField, etc...

Si tu campo "template" es ya un TIBBlobField y haces el moldeo de tipos, estás haciendo que coja la clase abstracta TBlobField y allí no está implementada (será virtual y/o abstract), por eso el error que obtienes.

Si añades los campos persistentes, tu linea sería así:
Código Delphi [-]
rstemplate.LoadFromStream(tptStream)

Si no tienes los campos persistentes, debes hacer el moldeo correcto según tus componentes:
Código Delphi [-]
(rs.Fieldbyname('template') as TIBBlobField).LoadFromStream(tptStream)

O lo que es lo mismo:
Código Delphi [-]
TIBBlobField(rs.Fieldbyname('template')).LoadFromStream(tptStream)

De todas formas no uses copy&paste porque seguro te dará error, crea los campos persistentes, en el inspector ves el nombre correcto que usa tus componentes y ya después puedes borrar los campos persistentes y hacerlo por código.

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita