DDEVALUE (return data value sent to server)

Top  Previous  Next

 

DDEVALUE( )

The DDEVALUE procedure returns a string containing the data sent to a Clarion DDE server by the DDEPOKE statement, or the command to execute from a DDEEXECUTE statement.

Return Data Type:     STRING

Example:

WinOne  WINDOW,AT(0,0,160,400)

       END

TimeServer LONG

 

TimeStamp  FILE,DRIVER(ASCII),PRE(Tim)

Record      RECORD

FormatTime   STRING(5)

FormatDate   STRING(8)

Message      STRING(50)

           END

         END

 

CODE

OPEN(WinOne)

TimeServer = DDESERVER('TimeStamp')        !Open as server

ACCEPT

 CASE EVENT()

 OF EVENT:DDEpoke

  OPEN(TimeStamp)

  Tim:FormatTime = FORMAT(CLOCK(),@T1)

  Tim:FormatDate = FORMAT(TODAY(),@D1)

  Tim:Message  = DDEVALUE()                !Get data

  ADD(TimeStamp)

  CLOSE(TimeStamp)

  CYCLE                                    !Ensure acknowledgement

 END

END

 

See Also:

DDEPOKE

DDEEXECUTE