delphi实现读取 word、excel、ppt并能把他们存如数据库

Question

请教，怎样实现：
delphi实现读取 word、excel、ppt并能把他们存如数据库
请给出源代码，谢谢！ 分不够再加

Answer 1

读取Word可以用olecontainer或者webbrowser
OleContainer1.CreateObjectFromFile(filename, false);
WebBrowser.Navigate(filename);存入数据库可以转化为二进制流
var ms: TMemoryStream;  ms := TMemoryStream.Create;
  ms.LoadFromFile(filename);
 (DSTTEMP.FieldByName('Data') as TBlobField).LoadFromStream(ms);
  ms.free;data为字段名，数据类型为OLE对象（access中）

Answer 2

excel如果光读取的话可以这样：
  XlsApp: Variant;
  XlsApp.WorkBooks.Open(filename, ReadOnly := True);
 ....把每个工作簿读入数据库中
  XlsApp.ActiveWorkBook.Close(SaveChanges := False);
  
当然也可以用存word一样的方法存excel和ppt