===========================================

Объекты Cache обеспечивают связь широкого разнообразия клиентских приложений и инструментальных средств через интерфейс ActiveX:

Объекты Cache включают следующие компоненты ActiveX:

Сервер объектов Cache для ActiveX – сервер автоматизации ActiveX, который дает приложениям клиента доступ к сервер-ориентированным объектам Cache. Внутренне, сервер объектов Cache для ActiveX создает объект ActiveX, который отражает объект на сервере Cache. Объектные свойства и методы представлены как свойства и методы ActiveX. Когда методы вызваны, они выполняются на машине сервера.

Каждый объект клиента Cache ObjInstance может обратиться к объекту на сервере. Возможно, что несколько объектов клиента обращаются к одному и тому же объекту на сервере. В любом случае, индекс ссылки серверного объекта увеличивается на единицу, если любые клиентские объекты связываются с серверным объектом.

Клиентские объекты, которые выполняют специальные функции (например, объекты SysList и ResultSet) и не являющиеся объектами Cache, не могут обращаться к объекту на сервере.

Клиентский объект Cache – объект ActiveX, использующий указатель на интерфейс IDISPATCH ("объект" в Visual Basic).

Например, можно обращаться к свойствам и методам объекта Patient из Visual Basic, используя следующий код:

patient.Name

’ возвращает значение Nama для объекта patient

patient.Admit

`запускает метод Admit() объекта patient на сервере

Сервер объектов Cache для ActiveX состоит из шести типов объектов ActiveX:

В дополнение к обеспечению доступа к Cache из любого приложения, поддерживающего объекты ActiveX, интерфейс Cache ActiveX включают специальные инструментальные средства, именуемые Visual Cache, для использования только в Visual Basic. Хотя все примеры в этой главе используют Visual Basic, они не используют Visual Cache.

Хотя можно использовать объекты Cache в Visual Basic без настройки, проект Visual Basic следует настроить, если требуется использовать ранннее связывание. Ранннее связывание – особенность Visual Basic, которая позволяет объявлять объекты так, чтобы они несли информацию относительно их типа.

Например, с помощью раннего связывания можно определить:

Dim List as CacheObject.SysList

Раннее связывание также обеспечивает всплывающие меню, которые показывают возможные элементы завершения инструкции:

Раннее связывание также обеспечивают всплывающие окна синтаксиса для элементов объектов Cache:

Процесс настройки проекта Visual Basic состоит из выбора проектных ссылок. Когда в Visual Basic первый раз используется объект Cache, нужно добавить cacheobject.dll к проекту перед выбором проектных ссылок, для чего следует выполнить следующие действия:

Выбрать проектные ссылки, для чего нужно:

В этой секции содержатся темы:

В этом разделе экстенсивно используются объекты Cache Factory. Секция Объекты Cache Factory завершает описание этих объектов и их методов.

Как правило, одно из первых действий, выполняемых приложением клиента, - создание объекта Cache Factory и установка соединения с машиной сервера, содержащей объекты Cache.

Например, в рамках Visual Basic следующий код обеспечивает один из способов сделать вышесказанное:

` Программа Visual Basic

option Explicit

Dim factory As CacheObject.Factory

Private Sub Form_Load()

` Создание объекта Factory

` Следует использовать "Set", чтобы присвоить значение объекту

Set factory = CreateObject("CacheObject.Factory")

` Соединение с сервером, если его нет

If Not factory.IsConnected() Then

Dim connectstring As String

` Можно явно определить строку подключения:

connectstring = "cn_iptcp:127.0.0.1[6001]:USER"

‘ Можно поочередно включать диалог подключения

‘ Этот метод возвращает строку подключения.

connectionstring = factory.ConnectDlg()

Dim success As Boolean

success = factory.Connect(connectstring)

End If

Set factory = CreateObject("CacheObject.Factory")

CreateObject завершится неудачно, если не найдет или не сможет загрузить cacheobject.dll (который содержит объект Cache Factory).

Можно проверить объект Cache Factory на наличие установки подключения, используя метод Factory.IsConnected(). Этот метод возвращает истину, если подключение существует.

Затем, используя объект Cache Factory, выполняется подключение к серверу, используя метод Connect() объекта Cache Factory:

success = factory.Connect(connectstring)

Connect() выполняет строку подключения, содержащую протокол подключения, адрес IP или Полностью Квалифицированное Имя домена (FQDN) и номер порта, и рабочую область (namespace), отделенные двоеточиями. Протокол подключения – всегда cn_iptcp, указывает на то, что используется протокол TCP/IP. Адрес IP и порт вместе уникально определяют определенный сервер Cache. Номер порта задается в квадратных скобках ("[" и "]") сразу после адреса IP или FQDN. Namespace определяет, в какой рабочей области находятся пользовательские объекты Cache. Если namespace не указано, приложение соединится с namespace, задаваемой по умолчанию.

Метод Connect() возвращает Истину, если соединение с сервером прошло успешно, и – Ложь, если соединение не выполнено.

Можно создать новый экземпляр объекта Cache, используя метод New() объекта Cache Factory:

Dim Patient As Object

Set Patient = factory.New("Patient")

Метод New() берет имя класса Cache как аргумент. New() делает следующее:

Можно сохранить экземпляр независимо хранимого объекта, используя его метод %Save() (называемый sys_Save в Visual Basic). Следует обратить внимание, что sys_Save – метод объекта Cache, а не объекта Cache Factory. Например:

Dim status As String

status = patient.sys_Save

patient.sys_Close

Set patient = Nothing

Чтобы загрузить существующий объект Cache из базы данных, нужно использовать метод Open() объекта Cache Factory. Например:

Dim Patient As Object

Set Patient = factory.Open("Patient", oid)

Open() имеет два аргумента: имя открываемого класса Cache OID, с которым объект был сохранен в базе данных. Значение OID – строка в формате списка Cache. Open() делает следующее:

Если Open() не может открыть указанный объект(цель), то возвращается состояние ошибки.

Как только экземпляр объекта Cache создан, вызывав методы New() или Open() объекта Cache Factory, объект можно использовать (как и любой другой объект Visual Basic).

Например, можно получать и устанавливать значение свойства:

Dim name As String

name = patient.Name

patient.Name = name

Можно вызывать методы на объект (обратите внимание, что методы выполнены на сервере):

patient.Admit()

Имеются некоторые различия между использованием объектов в Visual Basic и Cache ObjectScript: vетоды Cache ObjectScript, которые начинаются с "%", в Visual Basic начинаются с "sys _ ". Следовательно, метод %Save() ObjectScript. – это метод sys_Save() в Visual Basic.

Также следует отметить, что не следует пологаться на заданное по умолчанию свойство объектов Visual Basic.

Например, нужно использовать:

patient.Name = txtName.Text

вместо:

patient.Name = txtName ` Не используйте синтаксис свойств по умолчанию

Сервер объектов Cache для ActiveX поддерживает функциональные возможности обратной связи через метод SetOutput() класса Factory. Этот метод позволяет направлять системный вывод в приложение клиента. Например:

Set factory = CreateObject("CacheObject.Factory")

factory.SetOutput Text1

' Системный вывод теперь направлен в Text1

Чтобы отключать функциональные возможности вывода, можно вызывать SetOutput с пустой строкой:

factory.SetOutput ""

Cache обеспечивает устойчивый интерфейс для выполнения запросов. К этому интерфейсу можно обращаться из ActiveX, используя объект ResultSet. Объекты ResultSet существуют только в ActiveX; они не имеют никаких соответствующих объектов в Cache. Каждый объект ResultSet связан с определенным запросом класса Cache.

Например, выполнение запроса ByName в классе Person:

Dim rset As CacheObject.ResultSet

Dim columns As Integer

Set rset = factory.ResultSet("Person","ByName")

columns = rset.GetColumnCount()

rset.Execute("A")

While rset.Next()

For counter = 1 To columns

Print rset.GetData(counter)

Next counter

Wend

rset.Close()

Объект Cache Factory вызывает ошибку Visual Basic, если он сталкивается с состоянием ошибки. В этом случае можно получить информацию об ошибке, используя объект err Visual Basic. Например:

Private Sub OpenObject(oid As String)

On Error GoTo error_trap:

Dim Patient As Object

Set patient = factory.Open("Patient", oid)

’......

Exit Sub

Error_trap:

MsgBox (Err.Description)

End Sub

Поочередно можно использовать метод GetErrorText() класса Factory. Этот метод берет свойство описания сгенерированного объекта(цели) ошибки и возвращает текст сгенерированной ошибки. Например:

msg = factory.GetErrorText(err.description)

Существуют три типа ошибок Cache в ActiveX:

===========================================

===========================================

По вопросам поддержки любых продуктов InterSystems Corporation обращайтесь:

Россия 121019, Москва, Волхонка, 6, #14