使用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.关闭客户端和服务器端应用.

 

                         <待续>