＋设为首页 ＋添加到收藏夹
我要用DELPHI操纵 WORD实现如下功能：
1.新建word文档,并保存入数据库
2.对历史库中的WORD文档能够调用出来进行编辑，打印
哪位达人有相关代码或链接，请贴给我罗，谢了
flowwingboy@21cn.com
看看一个网友的代码
http://expert.csdn.net/Expert/topicview.asp?id=1879680
当然这样做的不能直接存入数据库,可以转一下子嘛.
//流和变量间的转换
procedure TForm2.VariantToStream (const v : olevariant;
Stream : TMemoryStream);
var
p : pointer;
begin
Stream.Position := 0;
Stream.Size := VarArrayHighBound (v, 1) - VarArrayLowBound(v, 1) + 1;
p := VarArrayLock (v);
Stream.Write (p^, Stream.Size);
VarArrayUnlock (v);
Stream.Position := 0;
end;
procedure TForm2.StreamToVariant (Stream : TMemoryStream; var v : OleVariant);
var
p : pointer;
begin
v := VarArrayCreate ([0, Stream.Size - 1], varByte);
p := VarArrayLock (v);
Stream.Position := 0;
Stream.Read (p^, Stream.Size);
VarArrayUnlock (v);
end;
这样就可以保存了.
