如何直接将word文档存储到sql数据库,使用ole能不能办到?如何处理?急!!
解决方案 »
- 请问大家判断一个字符串是不是已存在用什么方法最优?
- 关于函数或者过程的默认值
- 哪里有文章关于Delphi的[ValueListEditor]的使用方法的详细说明?
- 一个简单问题
- 大虾帮忙看看http://expert.csdn.net/Expert/topic/2556/2556311.xml?temp=1.432437E-02
- 很有意思的问题,我不会解决阿(问题很详细)
- 如何判断一个手工创建的窗体是否已经存在?
- 关于两个程序并发更改一个表
- 急!请问如何将中文转成UnionCode?
- 代码写的漂亮,不只是单单表现在你对代码的缩进以及语句的规范性,而最主要的我觉的漂亮的代码指的是......各位请进,请发表意见
- 急,需要帮忙了!
- 关于给ADOQuery1的sql如何赋值?
TBlobField(TableLoad.FieldByName('word')).LoadFromFile(nfile);
试试,代码不全.就这个意思.
//save olecontainer to db
procedure TForm1.Button1Click(Sender: TObject);
var
olestream:TMemorystream;
begin
table1.Append;
olestream:=TMemorystream.Create;
olecontainer1.savetostream(olestream);
olestream.position:=0;
TBlobField(Table1.FieldByName('oledata')).LoadFromStream(olestream);
Table1.Post;
oleStream.Free;
end;
//load db to olecontainer
procedure TForm1.Button2Click(Sender: TObject);
var
olestream:TMemorystream;
begin
table1.Edit;
OleContainer1.DestroyObject;
olestream:=TMemorystream.Create;
TBlobField(Table1.FieldByName('oledata')).SaveToStream(olestream);
olestream.Position:=0;
OleContainer1.loadfromstream(olestream);
oleStream.Free;
end;