Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Язык программирования Сpp 25.09.11 (2).doc
Скачиваний:
16
Добавлен:
19.08.2019
Размер:
10.09 Mб
Скачать

490 _ Глава 7

смысл которого состоит в том, что еще имеются клиенты, работающие с данным

сервером, и закрытие сервера нарушит их работу. Но если, несмотря на это преду-

преждение, вы закроете сервер, то при последующем обращении клиента к его

свойствам и методам получите сообщение об ошибке: ≪Сервер RPC недоступен≫.

Желательно предусмотреть в клиентском приложении обработку соответст-

вующих исключений. Ниже приведен исправленный код двух из рассмотренных

ранее функций. Остальные следует оформлять аналогичным образом.

void _ fastcall TForml : : FormCreate (TObject *Sender)

{

try

{

Serv=Create01eObject ("Projectl .MyServer" ) ;

}

catch (Exception &)

{

ShowMessage ("He удалось соединиться с сервером ' Projectl .MyServer ' " ) ;

void _ fastcall TForml : :BGetMessClick (TObject *Sender)

{

try

{

Editl->Text = Serv.OlePropertyGet ("Mess") ;

}

catch (Exception &)

{

ShowMessage ( "Сервер ' Projectl .MyServer ' недоступен");

В заключение надо сказать, что вы реализовали и сервер, и клиента в рамках

одной системы — C++Builder и на одном языке — C++. Но в том и состоит досто-

инство технологии СОМ, что она не зависит от языка. Если на вашем компьютере

есть какие-то иные системы, поддерживающие COM (Delphi, Visual Basic и т.п.), то

вы можете, например, реализовать с их помощью сервер, и ваше клиентское при-

ложение без проблем будет работать с ним. Или наоборот, клиенты, реализован-

ные в любой другой системе программирования, смогут работать с сервером, реа-

лизованным с помощью C++Builder.

Мы рассмотрели создание клиентского приложения для сервера, который соз-

давали сами. Аналогичным образом можно создавать приложения, работающие

с любыми серверами автоматизации, имеющимися на вашем компьютере. Единст-

венный вопрос, возникающий при этом, — откуда получить информацию об объ-

ектах, свойствах и методах, экспонируемых сервером?

Обычно эта информация содержится в справках соответствующего сервера.

В частности, в офисных приложениях Microsoft эти сведения содержатся в справках

по языку программирования VBA. А в общем случае подобную информацию, прав-

да, без комментариев, но зато более достоверную, можно получить из библиотеки

типов сервера. Для этого выполните команду File | Open, укажите в открывшемся

диалоговом окне тип открываемых файлов Type Library, найдите и откройте, напри-

мер, библиотеку типов программы Word. Имя соответствующего файла зависит от

версии вашего Microsoft Office, но обычно оно имеет вид ≪MSWord*.olb>>. Файл рас-

положен в одном из подкаталогов каталога Program Files\ Microsoft Office.

После некоторой паузы (библиотека очень большая) вы попадете в знакомое

вам окно Редактора Библиотеки Типов, в которой увидите полную информацию об

объектах сервера Word, его интерфейсах, свойствах и методах. А далее вы все это

можете использовать для построения приложения, применяя рассмотренные выше

функции CreateOleObject, OlePropertyGet, OlePropertySet, OleProcedure.

Процессы, потоки, распределенные приложения 491

Правда, для приложений Microsoft Office это вряд ли имеет смысл использо-

вать. Гораздо удобнее и надежнее реализовывать клиентов офисных приложений

Microsoft с помощью специальных компонентов, которые рассмотрены в разд. 7.9.

Кроме того, учтите, что ваше приложение, успешно работающее с какой-то верси-

ей сервера, перестанет работать при появлении новой версии Microsoft Office. На-

пример, приложения, работающие в Windows 98, не работают в Windows XP.

Правда, для приложений Microsoft Office это вряд ли имеет смысл использо-

вать. Гораздо удобнее и надежнее реализовывать клиентов офисных приложений

Microsoft с помощью специальных компонентов, которые рассмотрены в разд. 7.9.

Кроме того, учтите, что ваше приложение, успешно работающее с какой-то верси-

ей сервера, перестанет работать при появлении новой версии Microsoft Office. На-

пример, приложения, работающие в Windows 98, не работают в Windows XP.