COM+的事务

KeyLife富翁笔记

作者: HongYuan
标题: COM+的事务
关键字:
分类: COM+
密级: 公开

(评分: , 回复: 0, 阅读: 495) »»

Requires a Transaction 需要事务
requires a new Transaction 需要一个新事务
Supports Transaction 支持事务
Does not Supports Transactions 不支持事务
Ignores Transactions  

2005-11-10 10:14:33   

修改笔记

发表评语»»»

 2005-11-11 16:57:49    单元MTS（COM+/MTS）

 IObjectContext = interface(IUnknown)
    ['{51372AE0-CAE7-11CF-BE81-00AA00A2FA25}']
    function CreateInstance(const cid, rid: TGUID; out pv): HResult; stdcall;
    procedure SetComplete; safecall;
    procedure SetAbort; safecall;
    procedure EnableCommit; safecall;
    procedure DisableCommit; safecall;
    function IsInTransaction: Bool; stdcall;
    function IsSecurityEnabled: Bool; stdcall;
    function IsCallerInRole(const bstrRole: WideString): Bool; safecall;
  end;


function GetObjectContext: IObjectContext;
const
  IID_IObjectContext: TGUID = '{51372AE0-CAE7-11CF-BE81-00AA00A2FA25}';
begin
  LoadMtsProcs;
  if Assigned(CoGetObjectContextProc) then
    CoGetObjectContextProc(IID_IObjectContext, Result)
  else if Assigned(GetObjectContextProc) then
    OleCheck(GetObjectContextProc(Result))
  else
    Result := nil;
end;