N-Tiers開發方式(ASP/ASP.NET、VB6/VB.NET呼叫使用COM+元件)

   2023-02-09 学习力0
核心提示:续接:N-Tiers开发方式(COM+组件的注册、修改) 在组件安装完成后,接下来的工作就是要如何呼叫使用我们写好的组件了。我们假设我们写好的组件的名称如下:Package:KDMO1000 Project:PDMOMenu Class:    CDMOMenu1(无Transaction)     CDMOMenu2(有Tra

续接:N-Tiers开发方式(COM+组件的注册、修改)

在组件安装完成后,接下来的工作就是要如何呼叫使用我们写好的组件了。我们假设我们写好的组件的名称如下:

Package:KDMO1000
Project:PDMOMenu
Class:
    CDMOMenu1(无Transaction)
    CDMOMenu2(有Transaction)
假设CDMOMenu1中有一个Function是GetNodeName,传入参数NodeId(整数),传回NodeName(字符串)
GetNodeName(Byval NodeId as Integer) As String

Late Binding:

我这边所提的使用方式,是使用Late Binding的呼叫方式。也就是说,不会预先将组件注册到您的ASP.NET的专案中,或者是您的VB.NET的项目中,当系统运作的时候,在动态的从Server把该对象Bind上来使用。这样做的缺点是,您无法透过obj.就弹出组件内的属性方法让您选择,使用属性方法的时候都必须自己Keyin进去。但是优点则是,当您的组件有做了变更,您不必去一个一个的项目里重新的Reference您的组件;另外就是不论您写的是ASP、ASP.NET、VB、VB.NET,您呼叫组件的方式是一致的。

呼叫组件:

呼叫组件的方式如下:

ASP:

Set obj = CreateObject("PDMOMenu.CDMOMenu1") 
NodeId = 2 
NodeName = obj.GetNodeName(NodeId)

 

VB:

Dim obj as Object 
Set obj = CreateObject("PDMOMenu.CDMOMenu1") 
Dim NodeId as Integer 
NodeId = 2 
Dim NodeName as String 
NodeName = obj.GetNodeName(NodeId)

 

ASP.NET/VB.NET

Dim NodeId As Integer = 2 
Using obj As Object = CreateObject("PDMOMenu.CDMOMenu1") 
    Try 
        Dim NodeName As String = obj.GetNodeName(NodeId) 
    Catch ex As Exception 
        Me.lblErrMsg.Text=ex.Message.toString() 
    End Try
End Using

 

.NET呼叫组件需自行释放组件:

从以上的这些程序代码,可以发现,呼叫组件的过程几乎相同,使用.NET撰写时,呼叫的方式更可以简洁。

当组件被呼叫执行后,可以在【组件服务】中找到该Package中的组件被呼叫而转起来。如果是用ASP,VB6呼叫组件,可以发现当组件呼叫完成后,组件的转动会停下来,呼叫中的组件数字也会归零。但次使用.NET呼叫组件,如果没有撰写【Try..Catch..Finally..End Try】并且把【obj.Dispose()】、【obj = Nothing】放在Finally里,那么【组件服务】中的组件将会转不停。这是因为ASP,VB6再程序执行完毕时,会自动的做【资源回收】的动作;但是在.NET中【资源回收】必须经由程序设计者手动的执行,否则需当系统资源不足时启动GC才能够真正的回收。因此,.NET里面最好使用Using来宣告使用该Object。

 
反对 0举报 0 评论 0
 

免责声明:本文仅代表作者个人观点,与乐学笔记(本网)无关。其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
    本网站有部分内容均转载自其它媒体,转载目的在于传递更多信息,并不代表本网赞同其观点和对其真实性负责,若因作品内容、知识产权、版权和其他问题,请及时提供相关证明等材料并与我们留言联系,本网站将在规定时间内给予删除等相关处理.

  • Windows API Reference for C#, VB.NET
    不错的.net 下用API的参考站点地址在:http://www.webtropy.com/articles/Win32-API-DllImport-art9.asp 下面摘抄分类,便于大家直接就拿来用: File, Memory, Process, Threading, Time, Console, and Comm control(kernel32.dll) _hread_hwrite_lclose_lcr
    03-16
  • 一个基于API的VB.net串口通讯类 vbnet串口通信
    VB.net的串口通讯支持总是让人觉得有所不足,在使用VB6的MsComm32.ocx时,很多人都会在VB.net的开发中觉得很困扰。    这里讲述的VB.net串口通讯类使用native代码,并且它是通API调用实现的,你会发现VB.net的串口通讯就是这么简单。    在说明如何使
    02-12
  • [VB][ASP.NET]FileUpload控件「批次上传 / 多档
    FileUpload控件「批次上传 / 多档案同时上传」的范例 (VB语法) http://www.dotblogs.com.tw/mis2000lab/archive/2008/05/14/3986.aspx    FileUpload控件真的简单好用,不使用它来作批次上传,却要改用别的方法,实在不聪明。要用就一次用到底,公开File
    02-10
  • 第八章 VB中ActiveX控件的使用
    轉自:http://wwww.hyit.edu.cn/edu/vb/study/index.htm第八章          VB中ActiveX控件的使用8.1  概述     这里的ActiveX控件是指VB标准工具箱里没有的控件,用时需从“工程”菜单里选择“部件…”(或右键单击工具箱,从快捷菜单中选择“部
    02-10
  • 第二章 VB的界面设计
    轉自:http://wwww.hyit.edu.cn/edu/vb/study/index.htm第二章         VB的界面设计2.1  VB用户界面设计基础1. 概述   界面的设计有两步:先绘制控件,然后确定控件属性。   绘制控件:在工具箱里单击想画的控件,在窗体里按下鼠标并拖曳,然后
    02-10
  • C#/VB.NET 获取Excel中图片所在的行、列坐标位置
    C#/VB.NET 获取Excel中图片所在的行、列坐标位
    本文以C#和vb.net代码示例展示如何来获取Excel工作表中图片的坐标位置。这里的坐标位置是指图片左上角顶点所在的单元格行和列位置,横坐标即顶点所在的第几列、纵坐标即顶点所在的第几行。下面是获取图片位置的详细方法及步骤。【程序环境】按照如下方法来引
    02-09
  • VB操作XML
    VB操作XML
    XSL(可扩展样式表语言)是对CSS的一种扩展,功能比CSS强大得多。XML链接是在HTML链接的功能之上加以扩展,可以支持更为复杂的链接,通过XML链接,不仅可以在XML文件之间建立链接,还可以建立其他类型数据之间的链接,其规范分为三个部分:XLink语言,XPointe
    02-09
  • VB6多线程,关键段操作 vb6.0 多线程
    Option Explicit Declare Function GetLastError Lib "kernel32" () As Long 'Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long 'Declare Sub ExitThread Lib "kernel32" (Optional ByVal dwExitCode
    02-09
  • VB.NET调用IE,并且等待
                Dim p As New Process            '获得URL            aURL = GetURL()            '获得IE路径            p.StartInfo.FileName = System.Environment.GetFolderPath( _ 
    02-09
  • vb的VSFlexGrid控件 vb msflexgrid
    多行选中VSFlexGrid的SelectionMode = flexSelectionListBox,现在可以配合Ctrl进行多行选择循环取值用vsflexgrid.SelectedRows 可以得到你选择的行的总数量然后用循环可以得到具体的行中具体列的内容Dim Temp  As StringDim i As IntegerFor i =
    02-09
点击排行