关于ObjectContext对象和ObjectControl对象的使用问题，高手们，请你们帮忙解决这个难题。

Question

没有使用过VB下的，Delphi下面SetComplete是这样解释的：
当MTS对象的方法执行完毕之后，如果时成功执行完毕，那么MTS对象可以调用IObjectContext接口的SetComplete方法，此时MTS执行环境便会尝试Commint这个方法进行修改，并释放MTS对象。
SetAbort的解释是：与SetComplete()方法类似，这个方法用于通知MTS控件的工作已经完成，不再需要保留状态信息。不过调用这个方法还表明控件出错或处于一种不确定状态，所有当前事务都必须被放弃。同时MTS对象被释放
在程序中，如果一段代码执行成功，使用SetComplete，失败，执行SetAbort:
Try
  ...
  SetComplete
Except
  ...
  SetAbort
End;至于Count、Item、Security，在Delphi中没有完全对应的函数。

Answer 1

随便贴贴，学过VB的人都应该知道的，不好意思。 Implements ObjectControl Dim objOC As ObjectContext Public Sub Something() 
    'This is a user-defined procedure/method 
    'The ObjectContext Object is returned by GetObjectContext 
     
    On Error Goto Abort 
     
    '******************************************************* 
    '       Perform whatever you want in this area 
    '       Visual Basic 6 stuff goes here 
    '       The Something() procedure/method is just 
    '       an example - you may use properties and other 
    '       methods/procedures as well! 
    '******************************************************* 
     
Finished: 
    objOC.SetComplete 
        Exit Sub 
Abort: 
    objOC.SetAbort 
        Err.Raise Err.Number, Err.Source, Err.Description 
        Exit Sub 
End Sub Private Sub ObjectControl_Activate() 
    'MTS invokes this procedure/method when the component/object is instantiated 
    Set objOC = GetObjectContext() 
    Exit Sub 
End Sub Private Function ObjectControl_CanBePooled() As Boolean 
    'This enables MTS object pooling (not currently supported my MTS 2.0) 
    ObjectControl_CanBePooled = True 
End Function Private Sub ObjectControl_Deactivate() 
    'MTS invokes this procedure/method right before the component/object is released 
    Set objOC = Nothing 
    Exit Sub 
End Sub  

Answer 2

你说的东西在《深入理解COM+》上可以找到，全部贴上来太累，而且侵犯版权。
清华大学出版社出版
ISBN 7-302-00836-1/TP.308
作者：David S.Platt
翻译：潘爱名

Answer 3

你说的东西在《深入理解COM+》上可以找到，全部贴上来太累，而且侵犯版权。
清华大学出版社出版
ISBN 7-302-00836-1/TP.308
作者：David S.Platt
翻译：潘爱民

Answer 4

我暂时找不到这本书，另外我不用研究得很深入，大家跟我讲述一下ObjectContext的方法在实际的运用就可以了（除了setcomplete和setabort），谢谢大家。

Answer 5

ObjectContext是COM+的一个很小的部分。
MTS（微软事物处理机制，内核正是COM+），你要清楚运用不妨看看MTS的有关编程吧！

Answer 6

这个问题只有bucher、ukyoyj、TechnoFantasy，各得15、25、10分吧。