Visual FoxPro: collecting data using WinWedge

*** Set this application up as a DDE server. The following code must be run at the start***
*** of your application to make it able to respond to DDE commands.***
*** Set the DDE application name to: "MyServer" and Enable DDE command execution***

= DDESetService('MyServer', 'DEFINE')
= DDESetService('MyServer', 'EXECUTE', .T.)

*** Set the DDE topic to "MyTopic" ***
*** Set up procedure "DoCommand" to run on all DDEExecutes to topic "MyTopic"***
= DDESetTopic('MyServer', 'MyTopic', 'DoCommand')

*** The following procedure will run whenever another application***
*** issues a DDE command to application name 'MyServer' and topic 'MyTopic'***
*** The DDE command is passed in the variable "gData"***
PROCEDURE DoCommand

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'
*** support a GRABDATA command - performs a DDERequest to WinWedge***
*** on COM2, requests data from FIELD(1) and stores it in a variable: "MyData"***
IF gData="[GRABDATA]"
gnChanNum = DDEInitiate('WinWedge', 'COM2')
IF gnChanNum != -1
MyData=DDERequest(gnChanNum,'Field(1)')
= DDETerminate(gnChanNum) && Close the channel
*** The variable 'MyData' now contains the data from Field(1) in WinWedge***
*** Your code goes here to do something with it ***
WAIT WINDOW MyData NOWAIT && For Example - Display the data
ENDIF
ENDIF
ENDIF
IF gcAction = 'TERMINATE'
glResult = .T.
ENDIF
RETURN glResult