DDEAPP (return server application)

Top  Previous  Next

 

DDEAPP( )

The DDEAPP procedure returns a string containing the application name in the DDE channel that has just posted a DDE event. This is usually the same as the first parameter to the DDESERVER or DDECLIENT procedure when the DDE channel is established.

Return Data Type:     STRING

Example:

ClientApp STRING(20)

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

        STRING(@S20),AT(5,5,90,20),USE(ClientApp)

       END

 

TimeServer LONG

DateServer LONG

FormatTime STRING(5)

FormatDate STRING(8)

 

CODE

OPEN(WinOne)

TimeServer = DDESERVER('SomeApp','Time')    !Open as server

DateServer = DDESERVER('SomeApp','Date')    !Open as server

ACCEPT

 CASE EVENT()

 OF EVENT:DDErequest

  CASE DDECHANNEL()

  OF TimeServer

   ClientApp = DDEAPP()                     !Get client's name

   DISPLAY                                  !and display on screen

   FormatTime = FORMAT(CLOCK(),@T1)

   DDEWRITE(TimeServer,DDE:manual,'Time',FormatTime)

  OF DateServer

   ClientApp = DDEAPP()                     !Get client's name

   DISPLAY                                  !and display on screen

   FormatDate = FORMAT(TODAY(),@D1)

   DDEWRITE(DateServer,DDE:manual,'Date',FormatDate)

  END

 END

END

 

See Also:

DDECLIENT

DDESERVER