* Следующий пример демонстрирует установку канала DDE с электронной
* таблицей Sheet1 (Microsoft Excel). Функции DDEAdvise( ) устанавливают две
* связи с содержимым двух ячеек электронной таблицы (R1C1 и R1C2). При
* изменении данных в какой-либо из этих двух ячеек выполняется
* пользовательская функция NEWDATA. Она тестирует параметры item и
* advise, чтобы определить, какой именно элемент изменился и какого
* рода связь была установлена.

PUBLIC mchannum

mchannum = DDEInitiate('Excel', 'Sheet1')

IF mchannum != -1

= DDEAdvise(mchannum, 'R1C1', 'newdata', 1) && Notify link

= DDEAdvise(mchannum, 'R1C2', 'newdata', 2) && Automatic link

WAIT WINDOW 'Enter data in first two cells in Excel.'

ENDIF

PROCEDURE newdata

PARAMETERS channel, action, item, data, format, advise

IF action = 'ADVISE'

DO CASE

CASE item = 'R1C1' && Notify link

newvalue = DDERequest(channel, item)

? 'R1C1 notify link: ' + newvalue

CASE item = 'R1C2' && Automatic link

newvalue = data

? 'R1C2 automatic link: ' + newvalue

ENDCASE

ELSE

IF action != "TERMINATE"

= DDETerminate(mchannum)

ENDIF

ENDIF