Delphi与Word之间的融合技术(3)

五、从数据库读取文件到本地硬盘和从本地硬盘读取文件到数据库

在数据库上使用Image二进制字段保存，使用Stream流的方式。

创建文件流：

Word_FileStream:=TFileStream.Create(Target_Name,fmOpenWrite or fmCreate);

Word_FileStream.Position:=0;

保存到数据库的Image字段：

TBlobField(AdoQuery1.FieldByName(Column_Name)).SaveToStream(Word_FileStream);

从数据库读取文件到本地硬盘：

TBlobField(ADOQuery1.FieldByName(Column_Name)).loadfromStream(Word_FileStream);

释放文件流：

Word_FileStream.Free;

六、全局消息的定义

因为word和Delphi程序是两个软件，相互之间通讯比较麻烦，所以使用全局消息的方法进行。全局消息必须首先注册，Windows返回系统空闲的消息号，当注册的消息相同时，Windows系统返回同一个值，这样就保证了使用这个消息号在两个程序之间通讯。

定义消息的办法：

szMessageString: pchar = ''XIDIAN_11_Stone'';

FMyJoinMessage := RegisterWindowMessage(szMessageString);

发送消息的方法：

SendMessage(对方句柄，消息，消息附带短变量，消息附带长变量)

七、Delphi程序接收消息的方法

Delphi接收消息有两种，一是重载特定消息，二是重载WndProc函数，在里面选择相应消息进行处理。

法一，每次只能处理一条消息，而法二能够同时处理多条消息。

对于法二，声明如下：

procedure WndProc(var Message: Tmessage);override

必须注意，使用时需要在处理完自己消息处理后继承WndProc(Message)函数，否则系统会崩溃！

八、Word中Combo对话框的动态生成以及Change事件

建立类模块Combohander，在内部定义事件

Public WithEvents ComboBoxEvent As Office.CommandBarComboBox

定义Combo控件产生事件的模块

Dim ctlComboBoxHandler As New ComboBoxHandler

产生Combo对话框

Set Cbo_ChooseDoc = CommandBars("添加的菜单").Controls.Add(Type:=msoControlComboBox, Temporary:=True)

进行文件句柄设置，以产生Combo_Change事件

Set ctlComboBoxHandler.ComboBoxEvent = Cbo_ChooseDoc

产生事件后，在类模块Combohander内选择ComboBoxEvent的Change事件，即可书写事件代码

Sub ComboBoxEvent_Change(ByVal Ctrl As Office.CommandBarComboBox)

九、一些Word的事件

VBA代码中处理的Word事件有：Document_Close

Application事件中需要处理的有：DocumentBeforeClose，DocumentChange。

Document_Close：事件在文档关闭时产生事件

DocumentBeforeClose：在文档被关闭以前先于Word判断文档是否保存，给出相应提示并进行相应处理。

DocumentChange：文档切换，在文档从自己修改的文稿和其他人修改的文稿之间切换产生事件，主要处理设置文档权限等