使用vb建立DCOM服务器端及客户端应用的详细过程（1） Window9x，WinNT Server和Winnt WorkStation平台都能支持DCOM。 本节介绍如何建立DCOM服务器端应用，及其注意事项。(本人使用的是西文版vb6) 一、建立如下目录： C:/DCOMDemo C:/DCOMDemo/Server C:/DCOMDemo/Server/Setup C:/DCOMDemo/Client C:/DCOMDemo/Client/Setup
二、构建Server端DCOM应用 1.打开一个新的vb工程,在新工程对话框里,选择"ActiveX EXE"工程类型,打开工程,对该工程设置如下属性:
Control Name Property Value ------------------------------------------------------------------ Class Module Class1 (Name) clsDCOMDemoServer Instancing 5 - MultiUse
2.拷贝如下代码到类模块clsDCOMDemoServer:
Option Explicit
Public Function ServerTime() '返回服务器时间 ServerTime = Time End Function
Public Function AddNumbers(x As Integer, y As Integer) As integer '使用服务器计算两数之和 AddNumbers = x + y End Function
Public Function SubtractNumbers(x As Integer, y As Integer) _ As Integer '计算两数之差 SubtractNumbers = x - y End Function
3.在工程菜单, 单击 "Project1 Properties." 注意:如果你已经更改并保存过工程,现在工程名称将不会叫"project1"
4.单击"General" 按钮,设置如下属性:
Project Type: ActiveX
Startup Object: (None)
Project Name: proDCOMDemoServer
Project Description: DCOM Demo Project - Server
5.单击"Make"按钮,设置如下属性:
Auto Increment: <Checked>
Application Title: proDCOMDemoServer Version
6.单击"Compile" 按钮,设置如下属性:
Compile to P-Code: <Selected> Compile to Native Code: <Not Selected>
其它选项无需有效.
7.单击"Component" 按钮,设置如下属性:
Start Mode: ActiveX Component Remote Server Files: <Checked> Version Compatibility: Project
注意:一定要选中"Remote Server Files",目的用于生成vbr文件. 8.单击"ok"
9.在"File"菜单, 单击"Save Project As". 保存为如下所述名称:
目录 文件类型 文件名称 扩展名称 --------------------------------------------------------------------- C:/DCOMDemo/Server Class Module COMDemoServer .cls Project proDCOMDemoServer .vbp
10.单击"File"菜单, 单击"Make proDCOMDemoServer.exe."
此时弹出一个对话框,保存exe文件到如下目录: c:/DCOMDemo/Server directory.
<待续>
