home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a044 / 3.ddi / MISC / DDESERVE.PRG < prev    next >
Encoding:
Text File  |  1993-08-31  |  683 b   |  23 lines
  1. * This is the server application
  2. * This program does nothing but sit here and let the Client
  3. * take information from it.
  4.  
  5. USE DDESAMP
  6.  
  7. STORE "CA" TO CHARVAR
  8. STORE 1 TO RECORDNO
  9.  
  10. @ 1,2 say "HERE IS THE DATA IN THE DBF" FONT 15
  11. CREATE CONTROL BROWSE "DDEBrowse" at 4,5 save to RecordNo;
  12.    SIZE 2,50 STYLE VIEW
  13. @ 10,2 say "START THE CLIENT PROGRAM NOW." FONT 15
  14. @ 14,2 say "THIS WILL ONLY WORK IF THE" FONT 15
  15. @ 17,2 say "SERVER IS AN .EXE FILE." FONT 15
  16. @ 21,2 say "PRESS ESC TO STOP THE SERVER." FONT 15
  17.  
  18. DO WHILE .T.                && sit in this loop until ESC pressed
  19.    MYEVENT=CHKEVENT()
  20.    IF MYEVENT=1 .AND. LASTKEY()=27   && ESC was pressed
  21.      EXIT
  22.    ENDIF
  23. ENDDO