怎样把文件流输入到数据库中呀？(50分)

我在做一个传文件的东西
我把文件INSERT到STREAM中
却不知道怎么从STREAM中的INSERT到数据库的OLE对象中
哪位大哥帮忙呀

不通过olecontainer可以吗？
我也想知道～～～

TBlobField.LoadFromStream(Stream: TStream);

For example:
var
ExtraInfo: TStringList;
procedure TButtonX.SaveToStream( const Stream: IStream);
var
dStream: TStream;
begin

inherited;
dStream := TOleStream.Create( Stream );
try
ExtraInfo.SaveToStream(dStream);
finally
dStream.free;
end;
end;

procedure TButtonX.LoadFromStream( const Stream: IStream );
begin

inherited;
dStream := TOleStream.Create(Stream );
try
ExtraInfo.LoadFromStream(dStream);
finally
dStream.Free;
end;
end;

var
CurStreame:TFileStream;
begin
data.newsClientDataSet.append;
CurStreame:=TFileStream.Create(FileEdit.Text,fmOpenRead);
TBlobField(data.newsClientDataSet.FieldByName('APpendFiles1')).LoadFromStream(CurStreame);
CurStreame.free;
data.newsClientDataSet.post;
end;

在保存到数据库之前，是否要把blob字段置为空值呢？？
purplesun你问题解决后，告诉我一声: jiangsu_hy@21cn.com
谢谢

接受答案