Функция DDESetService( )

Создает, освобождает или модифицирует имена и установки служб DDE.

Синтаксис

DDESetService(cServiceName, cOption [, cDataFormat | lExpression])

Параметры

cServiceName

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

cOption

Задает создание, освобождение, изменение службы или получение информации о ей. В следующей таблице приведен перечень опций, которые можно задать в качестве cOption, с указанием их значений, принимаемых по умолчанию, и описанием каждой опции.

Опция	По умолчанию	Описание
DEFINE	-	Создает новое имя службы
RELEASE	-	Освобождает существующее имя службы
ADVISE	.F.	Разрешает или запрещает уведомление клиента об изменениях в элементах
EXECUTE	.F.	Разрешает или запрещает выполнение команд
POKE	.F.	Разрешает или запрещает передачу клиентом информации для данной службы
REQUEST	.T.	Разрешает или запрещает запросы к службе
FORMATS	CF_TEXT	Задает поддерживаемые форматы данных

DEFINE

Создает новое имя службы. Например, следующая команда создает имя службы myservice:

glNewService = DDESetService('myservice', 'DEFINE')

RELEASE

Освобождает существующее имя службы, чтобы высвободить системные ресурсы. Ког а освобождается имя службы, освобождаются и все имена тем этой службы.

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

glRelease = DDESetService('myservice', 'RELEASE')

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

glRelFox = DDESetService('Visual FoxPro', 'RELEASE')

ADVISE

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

Чтобы разрешить уведомление клиента, задайте в качестве lExpression значение "истина" (.T.). Если задать "ложь" (.F.), уведомление клиента будет запрещено.

Чтобы возвратить текущий статус уведомления клиента для данной службы, опустите выражение lExpression. Функция DDESetService( ) возвратит значение "истина", если в данной службе уведомление клиента разрешено; в противном случае будет возвращено значение " ожь".

EXECUTE

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

Чтобы разрешить запросы клиента на выполнение команды, задайте в качестве lExpression значение "истина" (.T.). Если задать "ложь" (.F.), запросы клиента на выполне ие команды будут запрещены. Значение .F. принимается по умолчанию.

Чтобы возвратить текущий статус выполнения команд для данной службы, опустите аргумент lExpression. Функция DDESetService( ) возвратит значение "истина", если запросы клиента а выполнение команд разрешены в данной службе; в противном случае будет возв ащено значение "ложь".

Следующие команды разрешают выполнение команд и запрещают запросы данных из п иложений-клиентов для службы myservice. Затем на экран выводится текущий статус выполнения команд для myservice:

glExecute = DDESetService('myservice', 'EXECUTE', .T.)

glRequest = DDESetService('myservice', 'REQUEST', .F.)

? DDESetService('myservice', 'EXECUTE')

POKE

Позволяет разрешать или запрещать запросы на пересылку для данной службы. Вы также можете определить текущий статус пересылки для службы с данным именем. Под обнее о пересылке данных клиенту или серверу см. описание функции DDEPoke( ).

Чтобы разрешить запросы клиента на передачу данных, задайте в качестве lExpression значение "истина" (.T.). Если задать "ложь" (.F.), запросы клиента на пере ачу будут запрещены. Значение .F. принимается по умолчанию.

Чтобы возвратить текущий статус пересылки для данной службы, опустите аргумент lExpression. Функция DDESetService( ) возвратит значение "истина", если запросы на пересы ку для данной службы разрешены; в противном случае будет возвращено значение " ожь".

REQUEST

Данная опция разрешает или запрещает запросы клиента к данной службе, а также возвращает текущий статус запросов для этой службы.

Чтобы разрешить запросы клиента к службе, задайте значение "истина" (.T.) в качестве выражения lExpression. Если задать "ложь" (.F.), запросы клиента к службе будут запрещены. По умо чанию принимается значение "истина" (.T.).

Чтобы возвратить текущий статус запросов для данной службы, опустите аргумент lExpression. Функция DDESetService( ) возвращает значение "истина", если запросы клиента ля данной службы разрешены; в противном случае возвращается "ложь".

Следующие команды запрещают запросы приложений-клиентов к службе myservice и выводят на экран текущий статус запросов для myservice:

glRequest = DDESetService('myservice', 'REQUEST', .F.)

? DDESetService('myservice', 'REQUEST')

FORMATS [cDataFormat]

Задает форматы данных, поддерживаемые данной службой. Запросы сервером фо матов, не указанных в списке cDataFormat, отвергаются. Задавать поддерживаемые форматы данных следует списком, разде яя их запятыми. Например:

=DDESetService('myservice', 'FORMATS', 'CF_TEXT, CF_SYLK')

Если опустить аргумент cDataFormat, будет поддерживаться только формат CF_TEXT.

lExpression

Задает состояние опции REQUEST, EXECUTE, POKE или ADVISE. Задайте значение "истина" (.T.), чтобы разрешить данную опцию, или "ложь" (.F.), чтобы запретить ее.

Результат

Логический

Комментарии

Допустима только в Visual FoxPro и FoxPro для Windows.

Visual FoxPro может выступать в роли сервера динамического обмена данными (DDE) для передачи информации приложениями-клиентами, базирующимся на Microsoft Windows. Функция DDESetService( ) используется для создания, освобождения или мо ификации имен и установок служб Visual FoxPro. Для каждого имени службы с помощью функции DDESetTopic( ) может быть создан набор имен тем. Приложения-клиенты запрашивают данные по темам DDE.

Функция DDESetService( ) возвращает значение "истина" (.T.), если служба была успешно создана, освобождена или модифицирована. Если службу не удалось соз ать, освободить или модифицировать, DDESetService( ) возвращает "ложь" (.F.).

Функцию DDESetService( ) можно использовать и для получения информации о дан ой службе. В Visual FoxPro существует имя службы, используемое по умолчанию: Visual FoxPro. У этой службы есть одно имя темы System. В следующей таблице перечислены все имена элементов, поддерживаемые темой System.

Имя элемента	Элемент
Topics	Список допустимых имен тем
Formats	Список поддерживаемых форматов
Status	"Занят" или "Готов"
SysItems	Список имен элементов

С помощью функции DDESetTopic( ) можно модифицировать службу Visual FoxPro или освободить ее. О том, как манипулировать именем службы Visual FoxPro, см. описание параметров функции DDESetTopic( ).