如何使用delphi语言分别将word文档和excel文档存入到sql server 数据库的一个表的字段中？

Question

把word文档和excel文档都按二进制来读成二进制流写到数据库里，读出的时候也按二进制写成一个文件，用相应的工具打开就可以了。和读写图片完全一样。

Answer 1

同意 duckcn(xty) 的说法

Answer 2

duckcn(xty),你有相关的源代码例程吗？   我在写ASP程序时曾碰到这个问题，我把word文档按二进制来读成二进制流写到数据库里的相关表的OLE字段里了,但不会读出来。

Answer 3

有vb的。
Dim mstream As ADODB.StreamSet mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile 文件名
rs.Fields("字段").Value = mstream.Read
rs.Update
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("字段").Value
  
mstream.SaveToFile 文件名,dSaveCreateOverWrite