第六章 Caché 使用注册对象

第六章 使用注册对象

注意： %RegisteredObject 是抽象类 不能实例化

对象类介绍

对象类是继承自%RegisteredObject的任何类。使用对象类，可以做以下事情:

• 创建类的实例。这些实例称为对象。
• 设置对象的属性。
• 调用那些对象的方法(实例方法)。
  只有使用对象类才能执行这些任务。
  类%Persistent和%SerialObject是%RegisteredObject的子类。

OREF基础知识

当创建一个对象时，Caché会创建一个内存中的结构，该结构保存关于该对象的信息，同时还创建一个OREF(对象引用)，它是指向该结构的指针。
对象类提供了几个创建OREF的方法。在处理任何对象类时，都要广泛地使用OREF。在指定对象的属性值、访问对象的属性值和调用对象的实例方法时使用它们。考虑下面的例子:

SAMPLES>set person=##class(Sample.Person).%New()
 
SAMPLES>set person.Name="Carter,Jacob N."
 
SAMPLES>do person.PrintPerson()
 
Name: Carter,Jacob N.

在第一步中，我们调用样本的%New()方法。Person类，它创建一个对象并返回一个指向该对象的OREF。我们设变量person等于这个OREF。在下一步中，我们将设置对象的Name属性。在第三步中，我们调用对象的PrintPerson()实例方法。(注意Name属性和PrintPerson()方法都是示例—它们在示例中定义。

OREF是瞬态的;该值仅在对象位于内存中时存在，并且不能保证在不同的调用中是常量。

无效的OREF错误

在简单表达式中，如果试图设置属性、访问属性或调用非OREF变量的实例方法，则会收到一个错误。例如:

SAMPLES>write p2.PrintPerson()
 
WRITE p2.PrintPerson()
^

SAMPLES>set p2.Name="Dixby,Jase"
 
SET p2.Name="Dixby,Jase"
^

/// d ##class(PHA.OP.MOB.Test).TestingOREF()
ClassMethod TestingOREF()
{
	s p2=""
    w p2.PrintPerson()
}

测试一个OREF

Caché 提供了一个函数$ISOBJECT，可以使用它来测试给定的变量是否包含OREF。如果变量包含OREF，则此函数返回1，否则返回0。如果给定的变量不包含OREF，那么在尝试设置属性、访问属性或调用变量的实例方法之前，最好先使用这个函数。

/// d ##class(PHA.OP.MOB.Test).TestingOREF()
ClassMethod TestingOREF()
{
	s p2=""
	i $isobject(p2)
	.w p2.PrintPerson()
	e  d
	.w "不是OERF"
}

OREFs, Scope, and Memory

任何给定的OREF都是指向其他OREF也可能指向的内存对象的指针。也就是说，OREF(它是一个变量)与内存中的对象不同(尽管在实践中，术语OREF和对象经常互换使用)。

注意以下几点：

• OREF仅在特定名称空间内有效;因此，如果存在现有的OREF和当前的名称空间更改，则先前名称空间中的任何OREF都不再有效。 如果尝试从其他名称空间使用oref，可能不会立即出现错误，但是结果不能被认为是有效的或可用的，并可能导致当前名称空间中出现灾难性的结果。
• Caché自动管理内存中的结构，如下所示。对于每个内存中的对象，Caché维护一个引用计数——该对象的引用数量。无论何时设置变量或对象属性来引用对象，其引用计数都会自动递增。当一个变量停止引用一个对象(如果它超出范围，被杀死，或被设置为一个新值)，该对象的引用计数将递减。当该计数变为0时，对象将自动销毁(从内存中删除)，并调用其%OnClose()方法(如果存在)。

例如：

Method Test()
{
    Set person = ##class(Sample.Person).%OpenId(1)

    Set person = ##class(Sample.Person).%OpenId(2)
}

此方法创建Sample的一个实例。并将对它的引用放入变量Person中。然后它创建另一个Sample实例。将Person的值替换为对它的引用。此时，第一个对象不再被引用并被销毁。在方法结束时，person超出范围，第二个对象被销毁。

删除OREF

如果需要删除OREF，请使用KILL命令:

kill OREF

• OREF 是一个包含OREF的变量。此命令删除变量。如果没有对该对象的进一步引用，该命令还将该对象从内存中删除，如前所述。

/// d ##class(PHA.OP.MOB.Test).KillOREF()
ClassMethod KillOREF()
{
	
	s LocalInstance = ##class(PHA.OP.MOB.TestTwo).%New()
	s LocalInstance1 = ##class(PHA.OP.MOB.TestTwo).%New()
	s LocalInstance.date=+$h
	s LocalInstance1.date=+$h
	w "LocalInstance: "_LocalInstance.date,!
	k LocalInstance
	w "LocalInstance1: "_LocalInstance1.date,!
	;s LocalInstance.date=+$h //K掉后 就写不出来了
}

OREFs、SET命令和系统功能

对于某些系统函数(例如$Piece、$Extract和$List)，Caché支持一种可用于修改现有值的替代语法。该语法将函数与SET命令组合如下:

/// d ##class(PHA.OP.MOB.Test).KillOREF()
ClassMethod KillOREF1() [ Language = basic ]
{
	
	SET function_expression = value
}

• function_expression 对系统函数的调用，带有参数，值就是值。例如，下面的语句将colorlist字符串的第一部分设置为“Magenta”:

SET $PIECE(colorlist,",",1)="Magenta"

不支持以这种方式修改oref或它们的属性。

创建新对象

要创建给定对象类的新实例，请使用该类的类方法%new()。该方法创建一个对象并返回一个OREF。以下是一个例子:

 Set person = ##class(MyApp.Person).%New()

%New()方法接受一个参数，默认情况下忽略该参数。如果存在，则将此参数传递给已定义的类的%OnNew()回调方法。如果定义了%OnNew()，它可以使用参数以某种方式初始化新创建的对象。

Class PHA.OP.MOB.TestTwo Extends PHA.OP.MOB.Test
{

Property date As %Date;

Property value As %Date;

Method %OnNew(initvalue As %String) As %Status [ Private, ServerOnly = 1 ]
{
	s ..value=initvalue
    s ..date=$zd(+$h,3)
    w ..date,!
    w ..value,!
    Quit $$$OK
}
}

%Status 返回值有2种

• $$$ISOK(status:%Status)如果状态码状态不代表错误条件，则返回true(1)。

• $$$ISERR(status:%Status)如果状态代码状态表示错误条件，则返回true(1)。

/// d ##class(PHA.OP.MOB.Test).TestOnNew()
ClassMethod TestOnNew()
{
	
	s LocalInstance = ##class(PHA.OP.MOB.TestTwo).%New("测试")
	s LocalInstance.date=+$h
	s value=LocalInstance.value
	w LocalInstance.date,!
	w value,!
}

如果有影响如何创建给定类的新对象的复杂需求，则可以提供用于创建该类实例的替代方法。这样的方法将调用%New()，然后根据需要初始化对象的属性。这种方法有时称为工厂方法。

Viewing Object Contents

w 命令为OREF写入以下形式的输出:

n@Classname

• Classname 类的名称
• n 是一个整数，表示该类在内存中的一个特定实例。
  例如

SAMPLES>write p
[email protected]

如果将ZWRITE命令与OREF一起使用，那么cache将显示有关关联对象的更多信息。

DHC-APP>d ##class(PHA.OP.MOB.Test).TestOnNew()
2020-02-08
测试
 
 b
 ^
zTestOnNew+2^PHA.OP.MOB.Test.1
DHC-APP 2d1>w LocalInstance
[email protected]
DHC-APP 2d1>zw LocalInstance
LocalInstance=