* В следующем примере создается простейшая среда сервера myserver,
* которая поддерживает выполнение команд Visual FoxPro из приложения
*-клиента. Приложение-клиент делает запросы к серверу myserver через
* тему DO, и для выполнения команды клиента используется
* макроподстановка.

*** Set Visual FoxPro up as a DDE server ***

= DDESetService('myserver', 'DEFINE')

= DDESetService('myserver', 'EXECUTE', .T.)

= DDESetTopic('myserver', 'DO', 'DOTOPIC')

WAIT WINDOW 'Server portion service setup ... ' NOWAIT

*** Use Visual FoxPro as a DDE client ***

gnChannel = DDEInitiate('myserver','DO')

=DDEExecute(gnChannel, 'WAIT WINDOW "Command Executed ... "')

=DDETerminate(gnChannel)

PROCEDURE dotopic

PARAMETERS gnChannel, gcAction, gcItem, gData, gcFormat, gnAdvise

glResult = .F.

*** It's necessary to return .T. from an ***

*** INITIATE action or no connection is made ***

IF gcAction = 'INITIATE'

glResult = .T.

ENDIF

IF gcAction = 'EXECUTE'

&gData

glResult = .T.

ENDIF

IF gcAction = 'TERMINATE'

WAIT WINDOW 'Goodbye ... ' NOWAIT

glResult = .T.

ENDIF

RETURN glResult

* После того как эта программа будет выполнена, вы будете иметь готовую
* службу Visual FoxPro, к которой могут обращаться другие приложения.
* Если у вас есть Microsoft Excel, можно запустить следующую
* макрокоманду Excel:

gnMyChan = INITIATE("myserver","DO")

=EXECUTE(MyChan,"WAIT WINDOW 'Hi, this is EXCEL speaking'")

=RETURN( )