Click above to get retro games delivered to your door ever month!

// FiveWin DDEML Class TDDEMLServer demonstration

#include "FiveWin.ch"

extern DbUseArea, DbGoTop, DbSkip, DbGoBottom

static oWnd, oServer

//----------------------------------------------------------------------------//

function Main()

   USE c:\FiveWin.19\samples\Customer

   DEFINE WINDOW oWnd TITLE "DDEML Server"

   ACTIVATE WINDOW oWnd ;
      ON INIT InitServer()

   oServer:End()   // Destroyes the DDEML Server

return nil

//----------------------------------------------------------------------------//

function InitServer()

   if oServer == nil
      oServer = TDDEMLServer():New()

      // Enable the application as a remote NetDDE server !!!
      oServer:SetNetDDE( .t. )

      oServer:bOnConnect = { || oWnd:Say( 3, 0, "Connected!" ) }

      oServer:bOnExecute = { | cCommand | ;
                           MsgInfo( "Command: " + cCommand,;
                                    "Server: Command Received" ) }

      oServer:bOnRequest = { | cRequest, cTopic | ;
                             RequestData( cRequest ) }

      oServer:bOnDisconnect = { || MsgInfo( "The client has disconnected!" ) }


   endif

return nil

//----------------------------------------------------------------------------//

function RequestData( cRequest )

   local cResult := &( cRequest )    // Clipper powerfull macros... <g>

return oServer:Return( cResult )

//----------------------------------------------------------------------------//