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

原创 2001年05月29日 14:41:00

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

 

                         <待续>

用VB实现客户——服务器(TCP/IP)编程实例

现在大多数语言都支持客户-服务器模式编程,其中VB给我们提供了很好的客户-服务器编程方式。下面我们用VB来实现TCP/IP网络编程。   TCP/IP协议是Internet最重要的协议。VB提供了W...
  • u014112224
  • u014112224
  • 2014年03月16日 17:44
  • 3767

SQL Server客户端无法连接服务器的诊断和解决

在使用 SQL Server 的过程中,用户遇到的最多的问题莫过于连接失败了。一般而言,有以下两种连接 SQL Server 的方式,一是利用 SQL Server 自带的客户端工具,如企业管理器、查...
  • ccx_john
  • ccx_john
  • 2013年11月22日 15:40
  • 2153

DCOM揭秘之六——远程COM调用(服务器端和客户端)

DCOM揭秘之六 2001-08-23 09:27作者:QQ新人类出处:Yesky责任编辑:方舟    Distributed COM --跨网络工作   ...
  • coolbear1027
  • coolbear1027
  • 2012年04月12日 20:29
  • 1928

SVN服务器端客户端安装以及集成到eclipse的详细步骤

  • 2010年12月22日 14:24
  • 18.72MB
  • 下载

VB winsock多连接示例(服务器端返回客户端数据)

  • 2011年11月13日 14:17
  • 18KB
  • 下载

VB开发象棋游戏(服务器端与客户端)

  • 2012年06月29日 21:23
  • 15KB
  • 下载

db2的编目(建立一个客户端到服务器端的连接)

首先查找出DB2占用的端口号 使用命令 db2 get dbm cfg|grep SVCENAME 我的服务器输出: TCP/IP Service name                    ...
  • mypanlong
  • mypanlong
  • 2015年01月28日 08:48
  • 298

db2的编目(建立一个客户端到服务器端的连接)

首先查找出DB2占用的端口号 使用命令 db2 get dbm cfg|grep SVCENAME 我的服务器输出: TCP/IP Service name                    ...
  • skylinethj
  • skylinethj
  • 2013年10月28日 14:14
  • 2692

python应用系列教程——python使用socket创建udp服务器端和客户端

全栈工程师开发手册 (作者:栾鹏) python教程全解 python使用socket创建udp服务器端和客户端。服务器端为一个时间戳服务器,在接收到客户端发来的数据后,自动回复。客户端,...
  • luanpeng825485697
  • luanpeng825485697
  • 2017年10月28日 11:41
  • 1533

自我感觉完美的“Android客户端+PHP服务器端”应用开发框架案例

  • 2017年05月08日 23:08
  • 2.73MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:使用vb建立DCOM服务器端及客户端应用的详细过程(2)
举报原因:
原因补充:

(最多只允许输入30个字)