Cita:
Empezado por jhonny
Prueba cambiando el TStream por un TBlobStream y cambias la linea
TBlobField(query1.FieldByName('FOTO_IMAGEN')).SaveToStream(Stream); por
Stream := TBlobStream.Create(query1.FieldByName('FOTO_IMAGEN'),bmRead);
Y nos cuentas como te va.
|
Nota: habia eliminado este mensaje porque sencillamente me parecio que la sugerencia de
Contraveneno era la correcta y no queria desviar a
natalinuyo, pero ya que ha recibido el mensaje quizá por correo pues...
Cita:
Empezado por natalinuyo
Marca que no he declarado el identificador TBlobStream.
|
Debes cambiar tambien arriba en las declaraciones despues del var el TMemoryStream Por TBlobStream.
Pero te recomiendo dos cosas:
1) Debes tener en cuenta la sugerencia de
ContraVeneno.
2) Lee la pagina de el libro que te sugerí anteriormente.