聚合的概念
       聚合源自組件重用。當有兩個組件A和B，他們分別實現(xiàn)了自己的接口IA和IB。如果有一 個客戶程序創(chuàng)建了A對象使得自己可以調用IA的方法，但同時又想獲得IB的接口，調用IB的方法。這時候有兩種做法：一種是客戶程序創(chuàng)建B對象，還有一種 方法是A組件內部創(chuàng)建B組件，然后客戶通過某種途徑調用B的接口方法。

第一種方法，使得客戶必須知道有獨立的B組件的存在，第二種方法客戶可以認為只有一個組件A，組件A實現(xiàn)了兩個接口IA和IB。第二種方法可以制造出一種假象，讓客戶程序編寫更加簡單。從組件A如何管理組件B的方法上，第二種方法還可以分為兩種：包容和聚合。

包容很簡單，如果組件IB接口擁有一個方法F(),那么A組件就要實現(xiàn)一個自己的 IBEx接口，并實現(xiàn)IBEx::F( )方法，內部調用IB::F()方法。這樣，客戶也就可以通過調用IBEx::F()來調用IB::F。在這種情況下，客戶只知道有IA和IBEx接口， 不知道還存在另一個B組件和IB接口。IBEx::F()增加一些代碼從而修改IB::F()方法的功能，甚至可以完全丟棄IB::F()方法。

       客戶程序只知道A組件而不知道B組件，并且認為A組件實現(xiàn)了IA和IB接口。因此，當客戶創(chuàng)建了A組件（通過CoCreateInstance函數(shù)），獲取到IUnknown接口時，應該獲得的是A組件實現(xiàn)的IUnknown接口。      問 題在于B組件有自己的IUnknown的接口實現(xiàn)，如果B組件還是采用一般的方法實現(xiàn)IUnknown接口的話，當客戶調用 IB::QueryInterface函數(shù)，就不會得到IA接口，這當然是不允許的。所以一個支持聚合的組件，它的IUnknown實現(xiàn)必然要有別于普通 組件。

       B組件應該擁有一個成員變量IUnknown* m_pUnknownOuter;該指針可以指向A組件的IUnknown接口。當客戶調用IB::QueryInterface請求時，如果IB接口已 經(jīng)被聚合了，就調用m_pUnknownOuter->QueryInterface方法，這實際上就是調用了A組件的 QueryInterface方法。那么，m_pUnknownOuter指針是什么時候被初始化的呢？CoCreateInstance函數(shù)和 IClassFactory：：CreateInstance方法都接受一個IUnknown參數(shù)。如果A組件內部想聚合B組件的IB接口，他就會將自己 的IUnknown指針傳遞進去,如果A組件并不想聚合B組件，那么簡單的傳遞一個NULL就行了。

       B組件可以根據(jù)m_pUnknownOuter是否為NULL，來判斷是否被聚合。

       B組件實現(xiàn)的具體步驟如下：

1） 聲明一個INondelegationUnknown接口，該接口擁有IUnknown接口一樣的純虛函數(shù)，當然函數(shù)名前面均加上Nondelegation前綴。

2） CB類（假設CB類為組件類）繼承并實現(xiàn)INondelegationUnknown接口，實現(xiàn)代碼和普通組件的IUnknown一樣，這用于非聚合的情況下。

3） CB類的構 造函數(shù)接受IUnknown指針，如果傳遞進來的是NULL,說明B組件并不被用作聚合。m_pUnknownOuter變量就指向B組件自身的 IUnknown接口。如果傳遞進來的不是NULL，說明被用作聚合。m_pUnknownOuter變量值等于參數(shù)值，指向外部組件的IUnknown 接口指針。

4） CB類也要 繼承并實現(xiàn)IUnknown接口。這個接口的QueryInterface函數(shù)實現(xiàn)只是調用 m_pUnknownOuter->QueryInterfac方法。m_pUnknownOuter究竟代表什么取決于創(chuàng)建組件時是否傳遞了外部 組件的IUnknown指針。

5） B組件的類 廠的CreateInstance方法內部創(chuàng)建CB類時，將IUnknown* pUnkownOuter參數(shù)傳遞給構造函數(shù)。創(chuàng)建成功后，調用B組件自身的（而不是外部的）NondelegationQueryInterface方 法，將自身的INondelegationUnknown傳遞出去給組件A。


******************************************
Freebasic的代碼例子：
這是一個comsample.dll的例子。這個comSample里面主要有兩個組件,cMath和cSquare這兩個com組件。其中cMath是聚合者，而cSquare是被聚合者。（如果從com的使用角度看，主動聚合者本質上是com的client端，被聚合者本質是com的server端，這里將通過類工廠，讓server端把內部的方法暴露出來，供client端調用）
第一步，我們先看一下cMath的頭文件BI是怎么聲明的（注：tlb是vb的頭文件，沒有tlb的com組件vb無法調用，但FB照樣可以使用沒用tlb的com組件，這個例子就是沒有額外寫tlb）
cMath的BI聲明：
#include Once "Win/objbase.bi"        '引用
#include "CSquare.bi"                         '引用cSquare的頭文件
Type IMath extends IUnknown           'Imath接口聲明為iunknown接口
    Declare abstract Sub SumSquare(Val1  As Integer,  Val2  As Integer, pResult As Integer ptr)      '聲明靜態(tài)方法
End Type
    extern IID_IMath As IID                  '導出IID，供外部調用

Type CMath extends IMath               '定義類cMath

public:
    ' 實現(xiàn) IUnknown Interface.
    Declare virtual Function QueryInterface(iid As  REFIID , ppv As LPVOID Ptr ) As HRESULT                     '這三個涵數(shù)都是以virtual虛函數(shù)形式聲明，接口在FB中都是這樣
    Declare virtual Function  AddRef() As ULong
    Declare virtual Function  Release()As ULong

    '實現(xiàn) IMath Interface.
    Declare virtual Sub  SumSquare(Val1  As Integer,  Val2  As Integer, pResult As Integer ptr)
   
    Declare Constructor     '聲明構造函數(shù)
     Declare Destructor      '析構
     
     m_pISquare  As  ISquare Ptr       '聲明被聚合者Csquare的iSquare的接口

private:                      '內部成員數(shù)據(jù)
    m_cRef  As Long      '這是用來記錄引用的狀態(tài)
End Type