Visual Basic 組件
將原有的Visual Basic 項目文件拷貝到新的開發(fā)環(huán)境中，用VB打開使用MTS類庫（Mts.dll）開發(fā)的項目。檢查項目使用的參考庫，會發(fā)現(xiàn)MTS類庫已經(jīng)被COM+ Services Type Library（comsvcs.dll）所代替了。

當Microsoft Visual Basic創(chuàng)建新的COM Services組件的時候，它提供MTS所有的函數(shù)。要確保這些函數(shù)能夠被移植到Windows 2000的組件正確的使用，Microsoft給COM Services組件分配了和舊的MTS組件完全一樣的CLSID。

基于Visual Basic的組件從表面上看是通過類型庫的說明來訪問MTS的函數(shù)，但內(nèi)部是通過CLSID來訪問的。在Windows 2000中，基于Visual Basic的ASP組件訪問同樣的函數(shù)，但是它通過新的COM Services組件。

作為將組件移植到新系統(tǒng)的測試，將VB中的項目文件不做任何修改進行編譯，你會發(fā)現(xiàn)不僅編譯過程沒有任何的問題，而且在Windows 2000中用ASP頁訪問組件的表現(xiàn)也和在NT中是一樣的---當然，這還要看組件的功用以及他訪問什么樣的外部進程。舉例說，某組件實現(xiàn)ObjectControl以利用JIT功能然后調(diào)用內(nèi)建的ASP Response對象向客戶端輸出信息。

Figure 8Implementing ObjectControl


' the response object instance
Private m_oResponse As Response

'Implementation of ObjectControl interface
Implements ObjectControl

' ObjectControl Methods
Private Sub ObjectControl_Activate()
Dim oContext As ObjectContext
Set oContext = GetObjectContext()

Set m_oResponse = oContext("Response")
End Sub

' for object pooling, required method
Function ObjectControl_CanBePooled() As Boolean
ObjectControl_CanBePooled = False
End Function

' cleanup
Sub ObjectControl_Deactivate()

Set m_oResponse = Nothing
End Sub

' use the Response object instance
Sub testResponse()

m_oResponse.Write "Hello Windows 2000 World!"

End Sub



在IIS5.0中，將組件注冊到Component Services并由ASP頁面訪問的結(jié)果與在NT4中將組件注冊到MTS中的表現(xiàn)是一樣的。注意，ASP頁面調(diào)用testResponse方法，它將激發(fā)JIT調(diào)用ObjectControl Activate方法，創(chuàng)建Response對象輸出“Hello World”信息。

在兩個操作系統(tǒng)環(huán)境中訪問組件不同的地方在于組件在Windows 2000中會較早的失效。Windows NT4中只有在頁面完全退出作用域時才被釋放；在Windows 2000中，組件在最后一個引用被釋放時就釋放了。因此，只要在ASP頁面中將組件的實例設(shè)為Nothing（VBScript），VB的組件立刻就失效了。

當然，上面說的并不是ASP組件在Windows 2000和Windows NT中表現(xiàn)不同的唯一的地方。如果組件原來用作調(diào)用Windows NT特定的服務(wù)或執(zhí)行某些操作，如輸入/輸出，Windows 2000在實現(xiàn)上可能會有些不同，也就是說可能需要重寫相關(guān)的代碼來適應(yīng)新的系統(tǒng)。不過，如果ASP組件主要是使用某些技術(shù)（如ActiveX Data Object--ADO）訪問數(shù)據(jù)庫，這種情況受到的影響是最小的。

注意在Windows 2000中開發(fā)組件和Windows NT有一些不同，在Windows NT中用Visual Basic(Visual C++)開發(fā)注冊到MTS的組件時，每次編譯后要刷新組件一次。原因是，VB(VC)會在組件（DLL）生成后自動的注冊一次。但是，Visual Basic創(chuàng)建的注冊表實體會和MTS為這個組件創(chuàng)建的注冊表實體沖突。在重編譯后通過在MTS中刷新組件，會使MTS修復(fù)相關(guān)的錯誤。

在Windows 2000中，COM+和MTS并不是分割開來的，而被訪問的組件通過Visual Basic或REGSVR32.EXE進行注冊也是COM+所支持的。COM Services仍然保留了Refresh選項保持向后兼容性，但是已經(jīng)不用在重編譯后使用該選項。

談到注冊的問題，并不是非要重編譯組件或者將它們添加到COM+的應(yīng)用中才能用ASP訪問，仍舊可以使用REGSVR32.EXE注冊組件。使用REGSVR32.EXE注冊組件或把組件添加到COM+應(yīng)用中唯一不同的COM+考慮經(jīng)配置的組件，而REGSVR32.EXE考慮未配置的組件。只要組件不使用事務(wù)處理和JIT功能，他仍舊會工作的很好，而不管是如何注冊的。



Windows 2000中的Visual C++組件

如果使用Visual C++開發(fā)ASP組件，Platform SDK安裝程序會把SDK類庫和頭文件添加到開發(fā)環(huán)境中，如圖9。如在Visual Basic中一樣，ASP組件在Visual C++中重編譯的過程不需要或只需要很少的改變，這包括任何使用ATL組件向?qū)��?chuàng)建的ASP或MTS組件。



在使用Visual C++ 6.0 ATL 向?qū)��?chuàng)建ASP組件的時候，會使用ScriptingContext對象和OnStartPage 和OnEndPage事件處理程序，以例示ScriptingContext對象、創(chuàng)建ASP內(nèi)建對象實例以及清除對象。Microsoft保留這些引用主要是為了保證向后兼容性，而使得這些組件可以工作在Windows 2000和IIS 5.0環(huán)境下，

盡管ScriptingContext依舊存在，但是不要再繼續(xù)使用它們進行開發(fā)工作。作為替代，應(yīng)當使用其它的ATL Object Wizard選項或者使用組件類庫進行開發(fā)。請認真的考慮一下再將涉及ScriptingContext組件移植到Windows 2000中，在未來該對象將不再被支持。

在使用ATL Object Wizard創(chuàng)建MTS組件時，會把MTS類庫和頭文件加入到項目中。如下列代碼會自動的添加到組件的頭文件中。

#include <mtx.h>
在Windows 2000中MTS已經(jīng)被COM+替代，MTS類庫也被COM Service類庫替代。那么，MTS組件是如何成功的編譯并工作呢？

答案很簡單，打開Platform SDK所附帶的mtx.h文件就真相大白了：

//Copyright (C) 1995-1999 Microsoft
//Corporation.All rights reserved.
#define __MTxSpm_LIBRARY_DEFINED__
#include "comsvcs.h"
Platform SDK所帶的mtx.h文件其實就是COM Services頭文件的包裝文件。如果檢查Visual C++項目的外部相關(guān)性（external dependencies），你會發(fā)現(xiàn)comsvcs.h包含在列表中而不是mtx.h。這個文件也是為什么要把Platform SDK的庫和包含文件放置到Visual Studio安裝的文件前面的原因之一，要確保組件選擇了正確版本的頭文件，比如mtx.h。

實際上你可以改變組件中的代碼來不引用mtx.h:

#include <comsvcs.h>
這并不會影響到最終結(jié)果，在windows 2000中ASP組件可以注冊成為COM+應(yīng)用并由ASP頁面訪問。

還是那句話，遷移過來的組件在Windows 2000中擁有和NT4中一樣的組件服務(wù)。但是，如果沒有認真的考慮和廣泛的修改，你并不能使用Windows 2000 COM+新的服務(wù)功能。