数据库 于 word 文档（加急，送100分）(100分)

如何把 word 文档存入paradox数据库，并如何用 word 打开它。
注意：word 文挡中有表格，图片等元素。

图片不知道，WORD97的表格中的内容转化为ACCESS，在ACCESS中保存为PARADOX。

附加功能 将问题提前

这段代码可存所有格式的文件：
procedure TfmBlob.btnSaveClick(Sender: TObject);
var
FStream: TFileStream;
BStream: TBlobStream;
begin
if not OpenDialog1.Execute then exit;
FStream := TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
Table1.Edit;
BStream := TBlobStream.Create(Table1Doc,bmReadwrite);
with BStream do begin
Seek(0,soFromBeginning);
Truncate;
CopyFrom(FStream,FStream.Size)
end;
Table1.Post;
BStream.Free;
FStream.Free;
btnReadDoc.Enabled := false;
btnReadPic.Enabled := false;
end;
这是把字段作为文档读入时的操作：(Edit.text 指明文件名）
procedure TfmBlob.btnReadDocClick(Sender: TObject);
var
BStream: TBlobStream;
FStream: TFileStream;
begin
BStream := TBlobStream.Create(Table1Doc,bmRead);
FStream := TFileStream.Create('C:/' + Edit1.Text,fmCreate);
FStream.CopyFrom(BStream,BStream.Size);
BStream.Free;
FStream.Free;
OleContainer1.CreateObjectFromFile('C:/' + Edit1.Text,false)
end;
这是把字段内容做为位图读入的代码：
procedure TfmBlob.btnReadPicClick(Sender: TObject);
var
BStream: TStream;
begin
BStream := TBlobStream.Create(Table1Doc,bmRead);
Image1.Picture.Bitmap.LoadFromStream(Bstream);
BStream.Free;
end;

Crab 水平真高,同意

TBLOBSTREAM与TADOBLOBSTREAM的区别（对Crab）而言！

Sorry, 我没用过 ADOBlobStream，我想，这两个之间的区别跟 TBlobStream 和
TIBBlobStream 之间的区别应该相同吧，针对不同接口的不同实现而已。
你想问的是什么？具体一些

>>

Athena@!~:如果还想接着讨论请定期提前自己的帖子，如果不想继续讨论请结束帖子。

接受答案了.