home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 3.0 / TESTDRIVE_3.ISO / realizer / samples / refch25 / server.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  1.9 KB  |  67 lines
  1. '***********************************************************************
  2. '    Server.rlz                      
  3. '
  4. '    Realizer Reference Guide : Chapter 25
  5. '
  6. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  7. '    All rights reserved.
  8. '
  9. '***********************************************************************
  10.  
  11. PROC ServerInitiator(Session, Message, App, Topic) 
  12.     ' Message is always _Initiate 
  13.     ' App is the application being sought 
  14.     ' Topic is the topic they want to use 
  15.  
  16.     ' Only answer if the message is for us 
  17.     IF App = "Realizer" THEN 
  18.         IF DDENew(Session, App, Topic) THEN 
  19.             DDESetProc(ServerProc) 
  20.         END IF 
  21.     END IF 
  22. END PROC 
  23.  
  24.  
  25. PROC ServerProc(Session, Message, Topic, Data) 
  26.     IF Message <> _Close THEN 
  27.         DDESelect(Session) 
  28.     END IF 
  29.     SELECT CASE Message 
  30.         CASE _Request 
  31.             ' The client is requesting data on the 
  32.             ' topic.  The data shoul be sent to the 
  33.             ' client with DDEControl(_Data). 
  34.  
  35.         CASE _Advise 
  36.             ' The client is requesting that it be 
  37.             ' kept advised in any changes to the 
  38.             ' topic.  The server should set a flag 
  39.             ' and send the client a _Data message 
  40.             ' any time the topic is updated. 
  41.  
  42.         CASE _Unadvise 
  43.             ' The client is canceling a previous 
  44.             ' Advise.  The server should note that 
  45.             ' _Data messages no longer need to be 
  46.             ' sent for this topic. 
  47.  
  48.         CASE _Poke 
  49.             ' The client is sending data to the 
  50.             ' server.  The server can use the data 
  51.             ' to update its values. 
  52.  
  53.         CASE _Execute 
  54.             ' The client is sending a list of 
  55.             ' commands, in Topic, that it wants 
  56.             ' the server to execute. 
  57.  
  58.         CASE _Close 
  59.             ' The client is shutting down and notifying 
  60.             ' the server.  The server can clean any data 
  61.             ' relating to the session, such as an Advise 
  62.             ' flag.  The server should not try to select 
  63.             ' or communicate with this session anymore. 
  64.  
  65.     END SELECT 
  66. END PROC 
  67.