Пример использования на pascal

Top  Previous  Next

uses

  ...

  , Contexts

  ...

 

procedure SomeUsefulRoutine;

var

  CS: IContextSession;

  CL: IContextList;

begin

  CL := GetContextList;

  // захват [зарегистрированных] контекстов

  if not Assigned(CL)

  or not CL.AddRegistered(CS, 'ServKAU')

  or not CL.Add(CS, @SomeInitializator, @SomeFinalizator) then

    // безбоязненно выходим - захваченные контексты будут освобождены автоматически

    exit;

  ...

end;

...

end.