Лекция №28 Тема: Динамический обмен данными — dde

План:

1. Общие сведения

2. Установление контакта с сервером

3. Обмен данными между клиентом и сервером

3.1. Построение приложения-сервера

3.2. Построение приложения-клиента

4. Запрос данных сервера

5. Постоянное отслеживание информации на сервере

6. Передача информации от клиента к серверу

1. Общие сведения

Динамический обмен данными (Dinamical Data Exchange — DDE) — это технология, появившаяся в Windows ранее описанного выше OLE, но сохраняющая свое значение и до сих пор, поскольку предоставляет удобный способ обмена данными между программами. В этом диалоге программ одна, инициирующая диалог, называется клиентом, а другая, отвечающая на сообщения клиента — сервером. Диалог ведется на заданную тему (topic). Данные, передаваемые от одной программы к другой, называются элементами данных (items). В диалоге могут также передаваться серверу некоторые команды — макросы (macros). Этих основных понятий: клиент, сервер, тема, элемент данных и макрос достаточно, чтобы строить приложения, основанные на DDE. Всю сложную задачу обработки в процессе диалога множества сообщений Windows берет на себя Delphi, инкапсулируя все необходимые процедуры в четырех компонентах, расположенных в библиотеке на странице System: DdeClientConv, DdeClientltem, DdeServerConv и DdeServerltem. Первые два из них организуют работу клиента, а два вторые — работу сервера.

Основным компонентом, организующим взаимодействие, является компонент клиента DdeClientConv. Соответствующий ему компонент сервера DdeServerConv играет пассивную роль, сообщая только тему, которую может поддерживать сервер. Компоненты DdeClientltem и DdeServerltem нужны только для обмена информацией о конкретных элементах данных.

Взаимодействие DDE может выполнять следующие операции:

• Передача клиенту данных от сервера по инициативе клиента

• Передача клиенту данных от сервера при их обновлении

• Передача данных от клиента к серверу

• Передача команд (макросов) от клиента к серверу

• Установка клиентом данных на сервере

В последующих разделах будут рассмотрены способы решения каждой из этих задач.

2. Установление контакта с сервером

Начнем рассмотрение с компонента DdeServerConv, который располагается на форме приложения-сервера. Его единственное свойство — имя Name. Это имя является именем темы. Его должен знать клиент при установлении контакта с сервером. Некоторые методы компонента DdeServerConv мы рассмотрим в следующей теме, а теперь обратимся к компоненту DdeClientConv, который располагается на форме приложения-клиента и обеспечивает установление и разрыв контакта с сервером.

Два свойства компонента DdeClientConv — DdeService и DdeTopic определяют имена сервера и темы, соответствующих намеченному контакту. Имя сервера — это имя приложения-сервера, а имя темы — имя одного из компонентов DdeServerConv, расположенных на сервере. В процессе проектирования эти свойства задавать не обязательно, поскольку они могут быть установлены во время выполнения методом SetLink. Этот метод описан следующим образом:

function SetLink(Service: string; Topic: string): Boolean;

Параметры метода Service и Topic устанавливают соответственно значения свойств DdeService и DdeTopic. Установить значения этих свойств во время выполнения прямым присваиванием невозможно.

Способ установления контакта с сервером во время выполнения зависит от значения свойства ConnectMode, определяющего режим соединения. Это свойство может иметь значение ddeManual — ручной или ddeAutomatic — автоматический. При автоматическом режиме методом SetLink не только задает значения DdeService и DdeTopic, но и устанавливает сам контакт. При ручном режиме метод SetLink после установки значений DdeService и DdeTopic очищает элементы от прошлой информации, но самого соединения не устанавливает. Контакт с сервером в этом случае должен устанавливаться методом OpenLink, не имеющим параметров.

Если сервер в момент попытки установить контакт запущен, то контакт устанавливается описанными выше методами. Если это не удается, то делается попытка запустить программу, путь и имя которой указаны в свойстве ServiceApplicatiоn. Если в этом свойстве ничего не указано или запуск не удался, то метод OpenLink возвращает false.

Закрыть контакт с сервером можно методом CloseLink. Этот метод разрывает связь с сервером и очищает значения свойств DdeService и DdeTopic.

Исходя из сказанного выше, наиболее простой способ установления связи вашего приложения с сервером (если приложение будет обмениваться информацией только с одним сервером) заключается в следующем. Во время проектирования надо установить требуемые значения свойств DdeService и DdeTopic, а затем задать свойство ConnectMode = ddeAutomatic. Если сервер в данный момент запущен или он доступен, то с сервером установится связь. Доступность в данном случае означает, что выполняемый файл сервера находится в том же каталоге, в котором находится ваше приложение, или в свойстве ServiceApplication указан выполняемый файл сервера с полным путем к нему и с указанием типа файла (расширения). В этом случае свойство ConnectMode сможет установиться в ddeAutomatic. В противном случае вам будет выдано предупреждение о невозможности контакта.

Если все прошло нормально, то в дальнейшем при выполнении приложения связь с сервером будет устанавливаться автоматически. Если в момент запуска приложения сервер уже запущен, контакт установится сразу. Если же сервер не запущен к моменту запуска вашего приложения, но его выполняемый файл доступен для приложения (в указанном выше смысле), то сервер автоматически запустится и с ним будет установлен контакт. В обоих случаях вам не надо будет заботиться о контакте, т.е. не надо будет применять методы SetLink или OpenLink.

Если указанные выше условия не выполнены, т.е. сервер не запущен ни заранее, ни в момент запуска вашего приложения, то даже, если он потом будет запущен, перед установлением контакта с ним вам потребуется применить метод SetLink. Дело в том, что в этих условиях установленные при проектировании значения свойств DdeService и DdeTopic стираются, а повторно установить их можно только методом SetLink. To же самое надо иметь в виду, если вы в своем приложении закрыли соединение с сервером методом CloseLink или установили связь с другим сервером. После этого контакт прервется и его надо восстанавливать методом SetLink.

Если свойство ConnectMode компонента установлено в ddeManual, но в процессе проектирования вы установили свойства DdeService и DdeTopic, то для установления контакта вам достаточно выполнить метод OpenLink. Если же DdeService и DdeTopic не установлены или в процессе работы приложения вы хотите пере­ключаться на связь с другими серверами, то прежде, чем начать работать с серве­ром, надо выполнить метод SetLink, устанавливающий имена сервера и темы. Если при этом ConnectMode = ddeAutomatic, то автоматически устанавливается контакт с сервером. Если же ConnectMode = ddeManual, то для установления контакта после SetLink надо применить метод OpenLink.

Таким образом, правила установления контакта с сервером доступным или уже запущенным к моменту запуска приложения можно представить следующей таблицей.

Таблица 74.

Правила установления контакта

ConnectMode	DdeService и DdeTopic	Контакт
ddeAutomatic	Установлены при проектировании Не установлены при проектировании, или изменены, или контакт был прерван	Автоматический SetLink
ddeManual	Установлены при проектировании Не установлены при проектировании, или изменены, или контакт был прерван	OpenLink SetLink OpenLink

Приведем несколько примеров. Пусть ваше приложение будет обмениваться информацией только с одним заранее известным сервером, и пусть вы хотите в приложении иметь кнопку (назовем ее BExchange), при щелчке на которой, вы хотите выполнить какие-то операторы обмена данными с сервером. Вы должны разместить на своем приложении компонент DdeClientConv (назовем его DdeCIientConvl) и эту кнопку.

Далее наиболее простой путь заключается в следующем. Вы устанавливаете в DdeClientConv1 требуемые значения свойств DdeService и DdeTopic, а затем зада­ете свойство ConnectMode равным ddeAutomatic. Тогда в обработчике события OnClick кнопки BExchange вам достаточно просто написать операторы обмена данными с сервером.

Если по каким-то причинам во время проектирования сервер вам не доступен, то, задав при проектировании требуемые значения свойств DdeService и DdeTopic, вы оставляете свойство ConnectMode, равным ddeManual. В этом случае, например, в обработчике события формы OnCreate вы можете поместить оператор

if not DdeClientConvl.OpenLink then

ShowMessage('”Нет контакта с сервером”’ + DdeClientConvl.DdeService + ‘”по теме”' + DdeClientConvl.DdeTopic +' ');

Этот оператор обеспечит контакт с сервером в момент запуска приложения или соответствующее сообщение об ошибке. Другой путь — поместить в обработчик события OnClick кнопки BExchange операторы:

DdeClientConvl.SetLink(sServer, sTopic);

if not DdeClientConvl.OpenLink then

ShowMessage('”Нет контакта с сервером “' + DdeClientConvl.DdeService +’”по теме”' + DdeClientConvi.DdeTopic +' ’);

<операторы обмена данными с сервером>

В этих операторах предполагается, что параметры sServer и sTopic содержат соответственно имя сервера и имя темы. Отметим, что в этом случае нельзя ограничиться только вторым оператором OpenLink. Дело в том, что в первый раз он сработает нормально. Но при последующих щелчках на кнопке Exchange он будет выдавать ошибки, поскольку метод OpenLink возвращает false не только в случае невозможности связаться с сервером, но и в случаях, когда контакт в данный момент уже установлен. Впрочем, это относится только к возвращаемой величине. Если сообщения об ошибках вас не интересуют, то вы можете существенно сокра­тить приведенный код:

DdeClientConvl.OpenLink;

< операторы обмена данными с сервером >

Аналогичное приведенному ранее последовательное обращение к методам SetLink и OpenLink надо применять и в приложениях, работающих с несколькими разными серверами с помощью одного компонента DdeClientConv. Такое же обращение используется и в случае, если вы не устанавливали в процессе проектирования свойства DdeService и DdeTopic.

Все сказанное ранее относилось к установлению контакта с определенным сервером по определенной теме. Но имеется еще одна возможность — установление контакта с заранее неизвестным сервером, который поместил информацию о себе в буфер обмена Clipboard. Приложение-сервер, разработанное с помощью Delphi, может сделать это методом CopyToClipboard компонента DdeServerltem (об этом методе и компоненте будет подробнее рассказано в следующем разделе). Чтобы уста­новить контакт со стороны клиента с сервером, поместившим информацию в буфер обмена, надо выполнить метод PasteLink компонента DdeClientConv. Например:

if (not DdeClientConvl.PasteLink) then

ShowMessage('В буфере обмена не обнаружено данных, доступных обработке.');

Если в буфере обмена есть соответствующие данные, то метод PasteLink занесет имена сервера и темы в свойства DdeService и DdeTopic и установит контакт с этим сервером. Таким образом, этот метод заменяет рассмотренные ранее методы SetLink и OpenLink, устанавливая контакт с заранее неизвестным сервером.