Delphi - Almacenar foto en BLOB

Saludos,

Pudieran indicarme como salvo una foto desde un Timagen en un campo blob.
Con la instruccion:
imgFoto.picture.Assign(DM01.q.FieldByName('foto').value);
Puedo visualizar el contenido del campo en el Timagen, pero lo contrario no lo he podido lograr.

Gracias anticipadas.

Mi sugerencia sería que usaras un campo Graphic en vez de Blob, pero si por alguna razón eso no fuera una opción, puedes guardar la imagen en una corriente (stream), como por ejemplo un TMemoryStream, y luego cargar el campo Blob con LoadFromStream:

procedure TForm1.Button1Click(Sender: TObject);
var
Stream : TMemoryStream;
begin
Stream := TMemoryStream.Create;
try
Image1.Picture.Graphic.SaveToStream(Stream);
DM01.q.FieldByName('foto').LoadFromStream(Stream);
finally
Stream.Free;
end;
end;

No lo he probado, pero espero que funcione.

Ernesto D'Spirito
http://www.latiumsoftware.com/es/index.php