復(fù)習(xí)復(fù)習(xí)COM {IXxxVB客戶p} 復(fù)習(xí)COMIn-ce屬性頁 結(jié)構(gòu) 和+ CC從桌面應(yīng)用發(fā)展到企業(yè)應(yīng)用Web關(guān)鍵業(yè)務(wù)基礎(chǔ)設(shè)施開發(fā)調(diào)試測(cè)試配置如transactionsecurityevent1COM+COM+ –隊(duì)列服 服務(wù)負(fù)載平衡(內(nèi)存數(shù)據(jù)庫(kù)COM+COM+的設(shè)計(jì)思想上而不是基礎(chǔ)設(shè)施上– 12 COM+Application COM+ServerApplicationLibraryApplication 對(duì)客戶透明使用增強(qiáng)了的COM 安裝interceptor COM+根據(jù)指定的應(yīng)用屬性管理服務(wù)進(jìn)程的生命周期2COM+DllRegisterServertypelib既可以綁在dll上typelib——component

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

COM激活對(duì)象時(shí)創(chuàng)建 Authentication認(rèn)證(鑒定3COM+安全性(續(xù)一

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

難點(diǎn)所在 的組件中這加劇了事務(wù)的 4每個(gè)組件對(duì)DTC負(fù) 對(duì)象表態(tài)committing

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

JITactivation

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

(compensatingresource

缺點(diǎn)破 Worker要求一個(gè)事務(wù)連接 Clerk負(fù)責(zé)與各方面的通信包括 隊(duì)列組件(Queued企業(yè)活動(dòng) 電子郵 留例如在off-line下寫 然后放到outbox中一旦on-line郵件就被發(fā)送出去)

QC

QC 7–使用[out][in,out]能的需要例不能使用枚舉器對(duì)象用同樣的異步機(jī)制 同樣的組件既可以與Queue結(jié)合也可以不缺點(diǎn)缺少控制能力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創(chuàng)建QC對(duì)象GetObject(“ publisher tightlycoupledCOM+的方案looselycoupledevent

1類235讀入46交到每個(gè)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+內(nèi)存緩沖2

已移到