Реферат: OLE VFP

RUN /n c:\vfp\autmgr32.exe /regserver

Установки Automation Manager в Регистре Windows имеют следующее располо­жение:

HKEY_LOCAL_MACHINE\Software\Microsoft\Automation Manager/

Remote Automation Connection Manager

Remote Automation Connection Manager (RACMan) написан на Visual Basic 4.0 и поэтому для работы требует наличия библиотеки поддержки Visual Basic. Его ос­новное назначение заключается в управлении записями Регистра Windows, кото­рые включают необходимые сведения для внешнего соединения со стороны кли­ента и доступа клиента на сервере. RACMan требует регистрации сервера на кли­ентском компьютере, поэтому при установке приложения потребуется файл CLIREG32.EXE, который переписывается автоматически, если вы используете Setup Wizard. При запуске программа CLIREG32.EXE требует нескольких пара­метров, в том числе: имя файла с расширением VBR, который генерируется авто­матически при создании OLE-сервера, сетевое имя компьютера, сетевой протокол и параметры доступа пользователя. При этом только первый из указанных пара­метров является обязательным.

Таким образом, RACMan обеспечивает две функции:

* Внешнее соединение на компьютере клиента. Пользователь может изме­нить сервер, который уже зарегистрирован на его компьютере, и зареги­стрировать новый OLE-сервер.

* Доступ клиента к серверу. Сервер может определять возможность доступа клиента как с использованием имени компьютера, так и имени пользовате­ля. При этом для Windows NT обеспечивается интегрированная авториза­ция доступа.

Установки для внешнего OLE-сервера записываются в Регистре Windows для данного сервера с ключом CLSID в HKEY_CLASSES__ROOT.

Приведем пример использования OLE-сервера в компьютерной сети для выпол­нения расчетов с данными таблицы, хранящейся на файл-сервере. Выполним пос­ледовательно следующие действия:

1. Для создания OLE-сервера напишем следующую программу:

*1*'Создаем подкласс из базового класса Custom

*!* 'Ключевое слово OLEPUBLIC обязательно

*1* 'Именно оно и позволяет сделать наш объект OLE-объектом

DEFINE CLASS Sum_table AS CUSTOM OLEPUBLIC

* Свойство, которое запоминает значение суммы

Sum_paid = О

* Метод для расчета суммы

PROCEDURE Proc Summary

PARAMETERS What

S3T EXCLUSIVE OFF

SELECT SUM (lnv_details.price*lnv_aetails .quantity) AS sum ;

FROM С :\OFFICE4\DATABASE\ Invoices, ;

C: \OFFICE4\DATABASE\lnv_details ;

WHERE Invoices .kod_id = lnv_deta-ils.kod_id ;

AND Invoices .paid = What ;

INTO CURSOR cur_sum

**"* Возвращаемое значение

SELECT cur_sum