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

王朝vb·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

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

<待续>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航