復習復習COM {IXxxVB客戶p} 復習COMIn-ce屬性頁 結構 和+ CC從桌面應用發展到企業應用Web關鍵業務基礎設施開發調試測試配置如transactionsecurityevent1COM+COM+ –隊列服 服務負載平衡(內存數據庫COM+COM+的設計思想上而不是基礎設施上– 12 COM+Application COM+ServerApplicationLibraryApplication 對客戶透明使用增強了的COM 安裝interceptor COM+根據指定的應用屬性管理服務進程的生命周期2COM+DllRegisterServertypelib既可以綁在dll上typelib——component

COM+ + DimCatalogAsDimComponents DimAppObjectAsCOMAdminCatalogObject'gettheApplicationscollectionandpopulateSetApplications=Catalog.'getthecorrectapplication,MyApplicationForEachAppObjectinApplicationssIfAppObject.Name="MyApplication"ThenExitFor'gettheComponentscollectionforMySetComponents=Applications.GetCollection("Components",AppObject.Key

COM激活對象時創建 Authentication認證(鑒定3COM+安全性(續一

COM+安全性(續二 gationmodelCOM+線程模型STA和COM+線程模型STA和TNA(Threadneutral 和Both類STA繼續生存特別是包含UI同步COM+提供了-based

難點所在 的組件中這加劇了事務的 4每個組件對DTC負 對象表態committing

(用戶賬戶環境(用戶賬戶環境MoveMoneyAccountA+(1)調用連接到SQL環境AccountA 環境MoveMoney (事務根對象(4)AccountSQLServer環境AccountB對象T1( (5)SQLServerSQLServerCOM+(3)SQLServer入到事務到T1(事務根對象公司賬戶環境公司賬戶環境T1COM+COM+RM(Resource例如各種數據庫系統SQLServerSQLServer 數目事務 -100公司賬戶+1005要么所有的變化都有效要么都無效緩存的中間結果要能持久[helpstring("AccountClass"),]coclass{[default]interface[ helpstring("MoveMoneyClass"),]coclass{[default]interfaceIMoveMoney6TransactionandJust-In-Time事務組件必須使用JITactivation

JITactivation

回收的價值部分回收所占整體的比例以及–一致性

(compensatingresource

缺點破 Worker要求一個事務連接 Clerk負責與各方面的通信包括 隊列組件(Queued企業活動 電子郵 留例如在off-line下寫 然后放到outbox中一旦on-line郵件就被發送出去)

QC

QC 7–使用[out][in,out]能的需要例不能使用枚舉器對象用同樣的異步機制 同樣的組件既可以與Queue結合也可以不缺點缺少控制能力QCQCQCDimShipAsSetShip=GetObject("queue:/new:VBShipProjShip.CustomerID=1111Ship.OrderID=2222Ship.LineItem12,"Drummersdrumming"Ship.LineItem11,"Pipersp"Ship.LineItem10,"Lordsalea"Ship.LineItem9,"Ladiesdancing"Ship.LineItem8,"Maidsamilking"Ship.LineItem7,"Swansaswimming"Ship.LineItem6,"Geesealaying"Ship.LineItem5,"Goldrings"Ship.LineItem4,"Callingbirds"Ship.LineItem3,"Frenchhens"Ship.LineItem2,"Turtledoves"Ship.LineItem1,"Apartridgeinapeartree"8QC與使用Moniker創建QC對象GetObject(“ publisher tightlycoupledCOM+的方案looselycoupledevent

1類235讀入46交到每個e2subscriber79SetoCOMAdminCatalog='GettheTRANSIENTSUBSCRIPTIONSAdminCatalogSetoTSCol=oCOMAdminCatalog.GetCollection("TransientSubscriptions")SetoSubscription=oTSCol.AddSetobjvar=oSubscription.Value("SubscriberInterface")=objrefoSubscription.Value("EventCLSID")=clsid'Create'CreatetheeventclassobjectDimfooAsNew'Calltheeventclassobject'smethodthat'firestheStockPriceChangedevent.PrivateSubCallfoo.StockPriceChanged(Text1.Text,CCurEnd'Calltheeventclassobject'smethodthat'firestheNewStockListedevent.PrivateSubEndSub'Thesubscribermustimplementtheinterface'whichitwantstoreceivecallsfromtheeventobjectImplementsStockEventCls'Popupmessageboxlinguserof'NewStockListedeventPrivateSubStockEventCls_NewStockListed(ByValSymbolAsMsgBox"NewStock"+Symbol+"hasstartedtrading",vbOKOnly,_"VBEventSubscriber"End'Popupmessageboxlinguserof'StockPriceChangedeventPrivateSubStockEventCls_StockPriceChanged(ByValSymbolAsString,_ByValPriceAsCurrency)MsgBox"Themarketpriceofstock"+Symbol+"isnow”+Str(Price),vbOKOnly,"VBEventEnd 1Sink

COM+內存緩沖2

已移到