使用vb建立DCOM服务器端及客户端应用的详细过程（2）

使用vb建立DCOM服务器端及客户端应用的详细过程（2）

本节介绍如何建立DCOM客户端应用，及其注意事项。(本人使用的是西文版vb6)

1.打开vb,在"file"菜单单击"New Project",选择"Standard EXE"并单击"OK".

2.在"Project"菜单, 单击"References".

3.单击"browse",选择"C:/DCOMDemo/Server/proDCOMDemoServer.exe",单击"ok",
并选中该引用.

4.在工程里插入一个模块,放置两个CommandButton, 两个textbox,以及三个label到form1上
. 设置如下属性:

Control Name Property Value
------------------------------------------------------------------
Module Module1 Name modDCOMDemoClient

Form Form1 Name frmDCOMDemoClient
Caption DCOM Demo - Client

CommandButton Command1 Name cmdServerTime
Caption &Get Server Time

Command2 Name cmdComputeNumbers
Caption &Compute Numbers

Text Box Text1 Name txtX
TabStop True
TabIndex 0

Text2 Name txtY
TabStop True
TabIndex 1

Label Label1 Name lblAnswerAdd
Label2 Name lblAnswerSubtract
Label3 Name lblServerTime
注意:现在还不要给工程更改名称,即名称仍为"PROJECT1"

5.拷贝如下代码到模块里,(不是Form1上):

Option Explicit

Public oServer As New _ proDCOMDemoServer.clsDCOMDemoServer

6.拷贝如下代码到frmDCOMDemoClient代码窗口:

Option Explicit
Private Sub Form_Load()
'设置文本框的初始化值.
txtX.Text = "1"
txtY.Text = "2"
End Sub

Private Sub txtX_GotFocus()
txtX.SelStart = 0
txtX.SelLength = Len(txtX.Text)
End Sub

Private Sub txtY_GotFocus()
txtY.SelStart = 0
txtY.SelLength = Len(txtY.Text)
End Sub

Private Sub cmdServerTime_Click()
'获取服务器端的程序,并将返回值显示在lblServerTime标签里.
lblServerTime.Caption = oServer.ServerTime
End Sub

Private Sub cmdComputeNumbers_Click()
lblAnswerAdd.Caption = oServer.AddNumbers _
(CInt(txtX.Text), CInt(txtY.Text))
lblAnswerSubtract.Caption = oServer.SubtractNumbers _
(CInt(txtX.Text), CInt(txtY.Text))
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As _
Integer)

Set oServer = Nothing
End Sub

7.在"Project"菜单, 单击"Project1 Properties."

8.单击"General",设置如下属性:

Project Type: Standard EXE

Startup Object: frmDCOMDemoClient

Project Description: DCOM Demo Project - Client

9.单击"Make",设置如下属性:

Application Title: proDCOMDemoClient

10.单击"Compile",设置如下属性:

Compile to P-Code: <Selected>

11.单击"OK"

12.在"File"菜单, 单击"Save Project As",保存的文件名称如下所述:

Directory File Filename Extension
----------------------------------------------------------------
C:/DCOMDemo/Client Module modDCOMDemoClient .bas
Form1 frmDCOMDemoClient .frm
Project proDCOMDemoClient .vbp

13.按"F5"按钮,测试客户端应用

14.测试完成,在"File"菜单, 单击"Make proDCOMDemoClient.exe".

15.将生成的exe文件保存到C:/DCOMDemo/Client

16.关闭客户端和服务器端应用.

<待续>