怎样把word的内容存进sql数据库,并且读出来
var memsize:integer;
buffer:pchar;
myfile:Tfilestream;
stream:Tblobstream;
myfilename:string;
mystream:Tstream;
begin
myfilename:='d:\11.doc';
self.OleContainer1.SaveAsDocument(myfilename);
myfile:=Tfilestream.Create(myfilename,fmcreate); 为什么有了这一句存的文件就是空的了
mystream:=Tstream.Create;
OleContainer1.SaveToStream(mystream);
这个有什么错误阿 提示 abstract error
self.ADOQuery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert into w_table(w_word)');
adoquery1.SQL.Add('values(:w_word)');
adoquery1.parameters.ParamByName('w_word').LoadFromStream(stream,ftblob);
adoquery1.ExecSQL;
end;