紧急求救:如何将一个对象(比如Tfilestream)存入数据库(oracle)中?(100分)

我想将一个Tfilestream对象存入数据库中,以便以后可以从

库中读取,将它还原为Tfilestram类型.(数据是存入库中,而不是

象BFILE一样,数据存在库外面,库中存的只是数据的指针).

具体该如何实现? 急急急!

试一下
//保存
.....
Stream.Seek(0,soFromBeginning);//把stream的指针重新定位到0
Tblobfield.LoadFormStream(Stream);//把stream保存到Tblobfield。

//取出
Var Stream1:TStream;
beging
stream1:=TFileStream.Create;
Tblobfield.SAaveToFormStream(Stream1);//把stream从Tblobfield取出。
Stream1.Seek(0,soFromBeginning);//把stream的指针重新定位到0,一定要的
.....
stream1.Free;
end;

Tblobfield.SAaveToFiles('c:/temp');//把stream保存到临时文件。

向红林 的方法应该可以，
不过，这段代码十层相似……

Tblobfield ：

TBlobField(data.FieldByName("...")).xxxxxx

stream的指针重新定位到0,必不可少.

谢谢大家!