word文档与OleVariant转换的问题

happy243 2002-06-27 07:31:56

开发三层数据库，所以需要将word文档先转为olevariant到中间层然后存入blob字段
读取时先从blob字段转成olevariant然后在客户端转换为word文档

我写了几个函数，可是最后得出来莫名其妙的结果

我现在是头大、眼花，还请高人指点一、二！

...全文

33 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

happy243 2002-06-27

打赏
举报

回复

要转换的，我先转换成olevariant才能传到中间层

netlib 2002-06-27

打赏
举报

回复

直接存取,只用把e:\temp.bmp改成,e:\temp.doc即可

netlib 2002-06-27

打赏
举报

回复

不用转换，下拉存取

二进制字段
保存：
(query1.FieldByName('img') as TBlobField).LoadFromFile('e:\temp.bmp');
TBlobField(Table1.FieldByName('Image')).Assign(Image1.Picture.Bitmap);
取出：
(query1.FieldByName('img') as TBlobField).Savetofile('e:\temp.bmp');
Image1.Picture.Bitmap.assign(TBlobField(Table1.FieldByName('Image')));

刚把delphi捡起来，第一个要做的竟然操作word，总结一下。一. 定义word应用程序，文档对象，比如：wordApp: OleVariant; wordDoc: OleVariant;二. 打开word文档 wordApp := CreateOleObject(Word.Application); wordDoc := WordApp.Documents.Open(FileN

Delphi与Word之间的融合技术一、VBA代码含义 Microsoft Word是一个集成化环境，是美国微软公司的字处理系统，但是它决不仅仅是一个字处理系统，它集成了Microsoft Visual Basic，可以通过编程来实现对Word功能的扩展。 Microsoft Visual Basic在word中的代码即Wor

//启动Word try wordapplication1.connect; except messagedlg('word may not be installed', mterror, [mbok], 0); abort; end; //打开文档 procedure TForm1.OpenWord(Sfile: string); var ...

Var ItemIndex :OleVariant; FileName, ConfirmConversions, ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, Format: OleVariant;

delphi操作word 一、Delphi程序启动Word 采用CreateOleObjects的方法来启动Word，调用VBA代码，具体实现过程为：首先使用GetActiveOleObject('Word.Application')判断当前内存中是否存在Word程序，如果存在，则直接连接，如果没有Word程序，则使用CreateOleObject('Word.Application'

5,392

社区成员

262,740

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章