VB与COM概念(ZZ)

详细的概念请查相关的书,这里是把一些重点以VB使用者的观点加以突显出来。

COM物件透过CLSID来判定其唯一性(就如我们的身份证号唯一决定一个人),这CLSID是
一个128BIT的GUID,它过透过复杂的制保证它Create出来时全球唯一,而这CLSID在vb
中,是由VB自动产生,而我们引用com物件时可不是由clsid来做,而是用ProgID,如
果您有发展过VB的ActiveX .Dll/.Exe Server时,便可以知道这ProgID便是
ProjectName.ClassName,正因如此,我们大多不觉得有CLSID的存在。而VB实作COM物件
是透过ActiveX .Dll/.Exe专案来做,但于MTS中只能用Inprocess的Com,所以我们只著
重在ActiveX .Dll Server的建构。

如果说,我们用VB写一个ActiveX .DLL专案,它的名称是OffADO 而有两个Class,名称分
别是Myclass1, ErrSrv ,在Compiler成.DLL之后,便会我们开发的电脑中注册该COM物
件,而引用时,可以透过CreateObject("OffADO.MyClass1") CreateObject("Offado.ErrSrv")
之后来引用其内部的Method,注意的是,这个例子中,虽只产生一个.DLL,但是它有两
个CLSID,分别唯一决定是 OffADO.MyClass1与OffADO.ErrSrv。

在COM的文章中,常见到一个名辞 Interface,其实它是一组相关的Function/Subroutine
的集合,它定义了有哪些Func/Sub与其对应的参数与传回值的型态等等资讯,一般来说
Interface的定义里面不会有任何的程式码,程式码是在COM实作中写。以上面的
例子来说,OffADO.MyClass1这个Com object,会有一个interface叫做 _MyClass1(Class
Name前加一个 "_"),而_Myclass1中有哪些Func/Sub呢,那就是我们OffADO.MyClass1程
式中Public 的Function与Property Get/Let (注意:Interface中只有Func/Sub 而没有
Property,所以VB中透过Property Get/Let 的方式来模拟出Property的存在,您觉不觉得
Property Get/Let 的长像和 FUNCTION没什么不同)。Interface一旦决定了,就不能再
更动它(Interface内的Function不能改变名称、参数个数及型态、ReturnValue的型态
等等,但是如何Implement则可以),如果真的想要更动时,那得使用新的一个Interface
来做,旧的要保留(才能使旧有引用它的人能继续做事),所以COM物件在散发出去前可得
先好好考虑一番。

COM物件的每个Interface也有一个Unique的ID(也是128Bit GUID的格式),用以囃一决定
该Interface,而COM这些Interface及其中的数型态回值等资讯是放在Type Library中,
我们用VB引用ActiveX Server时(eg. Set rs = New ADODB.Recordset),之所以在Design
Time于物件的reference后打个".",所有可用的Function/Property等全会Show出来,而
且Function中该传有多少参数,传回值是什么也一清二楚,便是由Type Linrary中取出
资料。而这 Type library是存于何处呢?如果您散发过ActiveX .Dll Server会知道一般
使用 Regsvr32 DllServer名称 来注册,如此一来不但该部电脑有.Dll Server可用,而
且VB引用它时,所有Method /Property都可以Show出来,是的,如果您用VB开发.Dll Server
,Type Library的资讯是存于.Dll档之中的。

在VB中,实作一个COM物件它可以有多少个Interface呢?可以有多个,它是透过Implements
指令来做,详细查on line Help,我们以MS公司的例子来说,我们在TestPrj专案中定义
有一Interface ILookUp,另以 CCustomer.cls来实作它 
'ILookup.cls (因只是定义,所以没有程式码)

Function GetByID(byval lngID as Long) as Variant
End Function

Function GetByEmail(byval strEmail as String) as Variant
End Function
 
'CCustomer.cls中有以下程式码

Implements ILookup '定义了它有ILook的Interface
'如果有其他的Interface,可以再用Implements指令再加一个进来,如下:
'Implements IAnotherInterface

Private Function GetByID(byval lngID as Long) as Variant
   '程式码在这里写出来
   'eg. GetById = lngID + 5
End Function

Private Function GetByEmail(byval strEmail as String) as Variant
 '程式码在这里写出来
 'eg. GetByEmail = strEmail & "@mail.ncku.edu.tw"
End Function

Public Function CustmFunc1() as String
 CustmFunc1 = "Test"
End Function
 

'Client中如何呼叫呢?

Dim objCustomer as TestPrj.CCustomer
Dim objLookup as TestPrj.ILookup

Set objCustomer = CreateObject("TestPrj.CCustomer")
Debug.Print objCustomer.CustFunc1
Set objLookup = objCustomer  '要求objCustomer中的ILookup Interface
Debug.Print objLookup.GetByEmail("cww5")

 


VB在产生COM物件之后,会在Registry中主要定义以下三个部份的资讯

1. /HKEY_CLASSES_ROOT/   注以本例ProgID = OffADO.MyClass1
   Subkey: ClsID     Value:"{1DFDF84D-......}"
   这里定义了ProgID与CLSID间的Mapping
2. /HKEY_CLASSES_ROOT/CLSID/    注这即上述 {1DFDF84D-......}
   底下又定义了许多Key
    key                Default value的意义
   ----------------    ------------------------------------------   
     InprocServer32    定义.Dll Server的所在(如果Under MTS则为"")
     LocalServer32     定义.exe Server的所在(如果Under MTS内有另外的值)
     ProgID            上例为offADO.Myclass1
     Programmable      没有值
     TypeLib           存TypeLibrary的LibID eg.{2BFDF84D-......}
     Version           版本
3. /HKEY_CLASSES_ROOT/TypeLib/ 就是上述的 {2BFDF84D-......}

如果是定义成RemoteServer者,又有许多不同,像 /HKEY_CLASSES_ROOT/CLSID/
下就没有那么多的Key,而在/HKEY_CLASSES_ROOT/AppID/ 下有
RemoteServerName的Key,其value便是RemoteServer在的机器。而Server端呢,若是Under
mts,则出现不同的Key( AppId、LaunchPermissio、 RunAs)
  
再来解释VB 专案属性Menu中 元件Tag 的以下设定
.无相容元件(no compatibility)
  每次compiler Type Library ID、CLSID、InterFace ID都会改
.与转案相容(Project compatibility)
  每次compiler InterFace ID 、CLSID会改,但Type Library ID都不会改。
  这用于专案开发阶段,
.与机器码相容(Binary compatibility)
  每次compiler Type Library ID、CLSID、InterFace ID都不会改,所以可以做到
  Backward compatibility。这用于专案已散发出去。试想,如果散发出后的clsid也
  改了,那么,原先引用您这activeX Server的程式,会因新版元件到来时变成不能。

 

DirectX修复工具(DirectX Repair)是一款系统级工具软件,简便易用。本程序为绿色版,无需安装,可直接运行。 本程序的主要功能是检测当前系统的DirectX状态,如果发现异常则进行修复。程序主要针对0xc000007b问题设计,可以完美修复该问题。本程序中包含了最新版的DirectX redist(Jun2010),并且全部DX文件都有Microsoft的数字签名,安全放心。 本程序为了应对一般电脑用户的使用,采用了傻瓜式一键设计,只要点击主界面上的“检测并修复”按钮,程序就会自动完成校验、检测、下载、修复以及注册的全部功能,无需用户的介入,大大降低了使用难度。 本程序适用于多个操作系统,如Windows XP(需先安装.NET 2.0,详情请参阅“致Windows XP用户.txt”文件)、Windows Vista、Windows 7、Windows 8、Windows 8.1、Windows 8.1 Update、Windows 10,同时兼容32位操作系统和64位操作系统。本程序会根据系统的不同,自动调整任务模式,无需用户进行设置。 本程序的V3.8版分为标准版、增强版以及在线修复版。所有版本都支持修复DirectX的功能,而增强版则额外支持修复c++的功能。在线修复版功能标准版相同,但其所需的数据包需要在修复时自动下载。各个版本之间,主程序完全相同,只是其配套使用的数据包不同。因此,标准版和在线修复版可以通过补全扩展包的形式成为增强版。本程序自V3.5版起,自带扩展功能。只要在主界面的“工具”菜单下打开“选项”对话框,找到“扩展”标签,点击其中的“开始扩展”按钮即可。扩展过程需要Internet连接,扩展成功后新的数据包可自动生效。扩展用时根据网络速度不同而不同,最快仅需数秒,最慢需要数分钟,烦请耐心等待。 本程序自V2.0版起采用全新的底层程序架构,使用了异步多线程编程技术,使得检测、下载、修复单独进行,互不干扰,快速如飞。新程序更改了自我校验方式,因此使用新版本的程序时不会再出现自我校验失败的错误;但并非取消自我校验,因此程序安全性之前版本相同,并未降低。 程序有自动更新c++功能。由于绝大多数软件运行时需要c++的支持,并且c++的异常也会导致0xc000007b错误,因此程序在检测修复的同时,也会根据需要更新系统中的c++组件。自V3.2版本开始使用了全新的c++扩展包,可以大幅提高工业软件修复成功的概率。修复c++的功能仅限于增强版,标准版及在线修复版在系统c++异常时(非丢失时)会提示用户使用增强版进行修复。除常规修复外,新版程序还支持C++强力修复功能。当常规修复无效时,可以到本程序的选项界面内开启强力修复功能,可大幅提高修复成功率。请注意,此功能为试验性功能,请仅在常规修复无效时再使用。 程序有两种窗口样式。正常模式即默认样式,适合绝大多数用户使用。另有一种简约模式,此时窗口将只显示最基本的内容,修复会自动进行,修复完成10秒钟后会自动退出。该窗口样式可以使修复工作变得更加简单快速,同时方便其他软件、游戏将本程序内嵌,即可进行无需人工参的快速修复。开启简约模式的方法是:打开程序所在目录下的“Settings.ini”文件(如果没有可以自己创建),将其中的“FormStyle”一项的值改为“Simple”并保存即可。 新版程序支持命令行运行模式。在命令行中调用本程序,可以在路径后直接添加命令进行相应的设置。常见的命令有7类,分别是设置语言的命令、设置窗口模式的命令,设置安全级别的命令、开启强力修复的命令、设置c++修复模式的命令、控制DirectDraw的命令、显示版权信息的命令。具体命令名称可以通过“/help”或“/?”进行查询。 程序有高级筛选功能,开启该功能后用户可以自主选择要修复的文件,避免了其他不必要的修复工作。同时,也支持通过文件进行辅助筛选,只要在程序目录下建立“Filter.dat”文件,其中的每一行写一个需要修复文件的序号即可。该功能仅针对高级用户使用,并且必须在正常窗口模式下才有效(简约模式时无效)。 本程序有自动记录日志功能,可以记录每一次检测修复结果,方便在出现问题时,及时分析和查找原因,以便找到解决办法。 程序的“选项”对话框中包含了6项高级功能。点击其中的“注册系统文件夹中所有dll文件”按钮可以自动注册系统文件夹下的所有dll文件。该项功能不仅能修复DirectX的问题,还可以修复系统中很多其他由于dll未注册而产生的问题,颇为实用。点击该按钮旁边的小箭头,还可以注册任意指定文件夹下的dll文件,方便用户对绿色版、硬盘版的程序组件进行注册。点
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值