home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / DDE21.ZIP / CLIENT / CLIENT.C next >
Text File  |  1993-04-09  |  16KB  |  468 lines
  1. /*
  2.   $Workfile:   client.c  $
  3.   $Revision:   1.1.1.0  $
  4.   $Date:   09 May 1991 18:10:02  $
  5.   $Logfile:   W:/dde/client.c_v  $
  6.   $Author:   mikem  $
  7.   $Modtime:   09 May 1991 18:07:04  $
  8.  
  9.    Sample Client DDE application
  10.    Copyright (C) Personal Systems Developer, IBM Corporation 1991
  11.    Author: Michael R. MacFaden
  12.    Internet: macfaden@paloic1.vnet.ibm.com
  13.  
  14. */
  15.  
  16. #pragma  comment(compiler)
  17. #pragma  comment(user, "Copyright (C) IBM Corp 1991")
  18.  
  19. #define  INCL_WIN       
  20. #define  INCL_ERRORS    
  21. #define  INCL_DOS
  22. #include <os2.h>       
  23. #include <stdio.h>       
  24. #include <string.h>     
  25. #include "pmutils.h"
  26. #include "client.h"
  27.  
  28. MRESULT EXPENTRY ClientWndProc(HWND,USHORT,MPARAM,MPARAM);
  29. VOID EXPENTRY PaintWindow(HWND hwnd,CHAR *szMsg);
  30. PDDESTRUCT EXPENTRY MakeDDEReqSeg(USHORT usFormat,PSZ pszItemName,BOOL fAck);
  31. MRESULT EXPENTRY InitDlgProc(HWND hwnd,USHORT msg,MPARAM mp1,MPARAM mp2);
  32. MRESULT EXPENTRY AboutDlgProc (HWND hwnd, USHORT msg, MPARAM mp1, MPARAM mp2);
  33.  
  34. /* globals */
  35. #define  MAX_MSG_SZ    300             // max size of text string
  36. CHAR szClientClass[] = "DDE-Sample";
  37. CHAR szBuf[MAX_MSG_SZ+1];                       // formatting buffer
  38. HWND hwndFrame,hwndClient,hwndMenu,hwndDDEserver;
  39. USHORT cbDDEMsg;                       // length of message
  40. BOOL fConnected = FALSE;               // status of a DDE conversation
  41. BOOL fAdvise = FALSE;                  // status of hot link
  42.  
  43. INT main()
  44. {
  45.   static ULONG flFrameFlags = FCF_TITLEBAR|FCF_SYSMENU|FCF_SIZEBORDER|
  46.      FCF_MINMAX|FCF_TASKLIST|FCF_MENU;
  47.   HAB hab = (ULONG ) 0;
  48.   HMQ hmq = (ULONG ) 0;
  49.   QMSG qmsg;
  50.  
  51.   hab = WinInitialize(0);
  52.   hmq = WinCreateMsgQueue(hab, 0);
  53.   if(!WinRegisterClass(hab, szClientClass,(PFNWP)ClientWndProc,0,0))
  54.    {
  55.       WinAlarm(HWND_DESKTOP, WA_ERROR);        /* Register failed */
  56.       DosExit(EXIT_PROCESS,1);
  57.    }
  58.    hwndFrame = 0;
  59.    hwndFrame = WinCreateStdWindow(HWND_DESKTOP, WS_VISIBLE,
  60.                                   &flFrameFlags, szClientClass, szClientClass,
  61.                                   0, (HMODULE)0, ID_MAINWND, &hwndClient);
  62.    if(!hwndFrame)
  63.    {
  64.       WinAlarm(HWND_DESKTOP, WA_ERROR); /* Window create failed */
  65.       DosExit(EXIT_PROCESS,1);
  66.    }
  67.  
  68.  /* Use default system icon */
  69.   WinSendMsg(hwndFrame, WM_SETICON, (MPARAM)WinQuerySysPointer(HWND_DESKTOP, 
  70.     SPTR_APPICON, FALSE), NULL);
  71.  
  72.  while(WinGetMsg(hab,&qmsg,0,0,0))        /* Message loop */
  73.     WinDispatchMsg(hab,&qmsg);
  74.  
  75.   WinDestroyWindow(hwndFrame);     /* clean up */
  76.   WinDestroyMsgQueue(hmq);
  77.   WinTerminate(hab);
  78.   return 0;
  79. } 
  80.  
  81.  
  82. MRESULT EXPENTRY ClientWndProc(HWND hwnd,USHORT msg,MPARAM mp1,MPARAM mp2)
  83. {
  84.   static DDECONV ddec;              // DDE Server name and requested topic
  85.   static CHAR szDDEItemName[CV_MAXDDENAME]; // DDE item (piece of data) in topic format
  86.   static CHAR szMsg[MAX_MSG_SZ];       // text string
  87.   static USHORT usItem = 0;            // Menu item
  88.   PDDEINIT pddei = NULL;               // DDE init struct ptr
  89.   PDDESTRUCT pdde = NULL,pddeOut = NULL; // DDE Transaction struct ptr
  90.   static CONVCONTEXT Context;
  91.  
  92.   switch (msg)
  93.     {
  94.     case  WM_CREATE :
  95.       hwndFrame = WinQueryWindow(hwnd, QW_PARENT);
  96.       hwndMenu = WinWindowFromID(WinQueryWindow(hwnd, QW_PARENT), (USHORT)FID_MENU);
  97.  
  98.       strcpy(ddec.szDDEServerName, CV_DDEAPPNAME);
  99.       strcpy(ddec.szDDETopicName, CV_DDETOPIC);
  100.       strcpy(szDDEItemName, CV_DDEITEMSG);
  101.       WinSetWindowText(hwndFrame, "...Not Connected...");
  102.       /* position window on users screen */
  103.       WinSetWindowPos(hwndFrame,HWND_TOP,
  104.         50,50,    /* window position (x,y) */
  105.         250,250,  /* window size (width/height) */
  106.         SWP_SIZE | SWP_MOVE | SWP_SHOW);
  107.       return 0;
  108.  
  109.     case  WM_COMMAND :
  110.       switch (SHORT1FROMMP(mp1))
  111.         {
  112.         case  IDM_STARTCONV :
  113.           if (WinDlgBox(HWND_DESKTOP,
  114.                         hwndFrame,
  115.                         (PFNWP) InitDlgProc,
  116.                         0, 
  117.                         IDD_INIT_DLG,
  118.                         &ddec))
  119.             if (!WinDdeInitiate(hwnd, ddec.szDDEServerName, 
  120.                ddec.szDDETopicName, &Context))
  121.               {
  122.               WinAlarm(HWND_DESKTOP, WA_ERROR);
  123.               WinMessageBox(HWND_DESKTOP, HWND_DESKTOP, 
  124.                  "WinDdeInitiate() failed!", "API Failure", 1, MB_OK|
  125.                  MB_ICONEXCLAMATION|MB_APPLMODAL|MB_MOVEABLE);
  126.               } 
  127.           return 0;
  128.  
  129.         case  IDM_STOPCONV :
  130.           WinDdePostMsg(hwndDDEserver, hwnd, WM_DDE_TERMINATE, NULL, TRUE);
  131.           EnableMenuItem(hwndMenu, IDM_REQUEST, FALSE);
  132.           EnableMenuItem(hwndMenu, IDM_ADVISE, FALSE);
  133.           EnableMenuItem(hwndMenu, IDM_ENDADVISE, FALSE);
  134.           EnableMenuItem(hwndMenu, IDM_STOPCONV, FALSE);
  135.           EnableMenuItem(hwndMenu, IDM_STARTCONV, TRUE);
  136.           hwndDDEserver = (HWND) NULL;        // store client window handle
  137.           WinSetWindowText(hwndFrame, "...Not Connected...");
  138.               fConnected = FALSE;
  139.           return 0;
  140.  
  141.         case  IDM_REQUEST :
  142.           /* if a conversation on the System topic is esablished,
  143.            issuing a request causes the current status to be retrieved
  144.           */
  145.               if (strcmp("System", ddec.szDDETopicName) == 0)
  146.                 pdde = MakeDDEReqSeg(CF_TEXT, "Status", 0);
  147.               else      
  148.                  pdde = MakeDDEReqSeg(CF_TEXT, szDDEItemName, 0);
  149.           if (pdde)
  150.             {
  151.             WinDdePostMsg(hwndDDEserver, hwnd, WM_DDE_REQUEST, pdde, TRUE);
  152.             usItem = IDM_REQUEST;
  153.             } 
  154.           else
  155.             {
  156.             WinAlarm(HWND_DESKTOP, WA_ERROR);
  157.             WinSetWindowText(hwndFrame, "...MakeDDEReqSeg() failed..");
  158.             break;
  159.             }
  160.           return 0;
  161.  
  162.         case  IDM_ADVISE :
  163.           fAdvise = TRUE;
  164.           pddeOut = MakeDDEReqSeg(CF_TEXT, szDDEItemName, DDE_FACKREQ);
  165.           if (pddeOut)
  166.             {
  167.             WinDdePostMsg(hwndDDEserver, hwnd, WM_DDE_ADVISE, pddeOut, TRUE);
  168.             WinSetWindowText(hwndFrame, "...sent hot link request...");
  169.             EnableMenuItem(hwndMenu, IDM_ADVISE, FALSE);
  170.             } 
  171.           usItem = IDM_ADVISE;
  172.           break;
  173.  
  174.         case  IDM_ENDADVISE :
  175.           fAdvise = FALSE;
  176.           pddeOut = MakeDDEReqSeg(CF_TEXT, szDDEItemName, DDE_FACKREQ);
  177.           if (pddeOut)
  178.             {
  179.             WinDdePostMsg(hwndDDEserver, hwnd, WM_DDE_UNADVISE, pddeOut, 
  180.                TRUE);
  181.             WinSetWindowText(hwndFrame, "...sent hot link terminate request...");
  182.             usItem = IDM_ENDADVISE;
  183.             } 
  184.           break;
  185.  
  186.         case IDM_ABOUT:
  187.           WinDlgBox (HWND_DESKTOP, hwnd, (PFNWP) AboutDlgProc,
  188.                      (HMODULE) NULL, IDD_ABOUT, NULL) ;
  189.           return 0 ;
  190.  
  191.         } 
  192.       break; /* wm_command */
  193.  
  194.     case  WM_DDE_INITIATEACK :
  195.       WinAlarm(HWND_DESKTOP, WA_NOTE);
  196.       if (hwndDDEserver != (HWND)mp1 && fConnected) // is this our server
  197.         {
  198.         WinDdePostMsg((HWND)mp1, hwnd, WM_DDE_TERMINATE, NULL, TRUE);
  199.             break;
  200.         } 
  201.  
  202.       pddei = (PDDEINIT)mp2;           // MS V2 PG 430
  203.       if (!strcmp(ddec.szDDEServerName, pddei->pszAppName))
  204.         {
  205.         if (!strcmp(ddec.szDDETopicName, pddei->pszTopic))
  206.           {
  207.           hwndDDEserver = (HWND)mp1;   // store client window handle
  208.           EnableMenuItem(hwndMenu, IDM_STARTCONV, FALSE);
  209.           EnableMenuItem(hwndMenu, IDM_STOPCONV, TRUE);
  210.           EnableMenuItem(hwndMenu, IDM_REQUEST, TRUE);
  211.           EnableMenuItem(hwndMenu, IDM_ADVISE, TRUE);
  212.           WinSetWindowText(hwndFrame, "Connected...");
  213.           fConnected = TRUE;
  214.           } 
  215.         } 
  216.       break;
  217.  
  218.     case  WM_DDE_ACK :                 /* server sent DDE Acknowledgement   */
  219.       pdde = (PDDESTRUCT)mp2;
  220.       if (!pdde)
  221.         break;
  222.  
  223.       switch (usItem)                 // what was this ack in response to?
  224.         {
  225.         case  IDM_ADVISE :
  226.           if (pdde->fsStatus & DDE_FACK)
  227.             {
  228.             EnableMenuItem(hwndMenu, usItem, FALSE);
  229.             EnableMenuItem(hwndMenu, IDM_REQUEST, FALSE);
  230.             EnableMenuItem(hwndMenu, IDM_ENDADVISE, TRUE);
  231.             } 
  232.           else
  233.             {
  234.             EnableMenuItem(hwndMenu, usItem, TRUE);
  235.             EnableMenuItem(hwndMenu, IDM_REQUEST, TRUE);
  236.             EnableMenuItem(hwndMenu, IDM_ENDADVISE, FALSE);
  237.                 fAdvise = FALSE;
  238.             } 
  239.           break;
  240.  
  241.         case  IDM_ENDADVISE :
  242.           if (pdde->fsStatus & DDE_FACK)
  243.             {
  244.             EnableMenuItem(hwndMenu, usItem, FALSE);
  245.             EnableMenuItem(hwndMenu, IDM_REQUEST, TRUE);
  246.             EnableMenuItem(hwndMenu, IDM_ADVISE, TRUE);
  247.             } 
  248.           break;
  249.  
  250.         case  IDM_REQUEST :
  251.           if (!(pdde->fsStatus&DDE_FACK))
  252.             WinAlarm(HWND_DESKTOP, WA_ERROR);
  253.           break;
  254.         }                              // switch()
  255.       break;
  256.  
  257.     case  WM_DDE_DATA :                // server sent a chunk of data
  258.       if (hwndDDEserver != (HWND)mp1) // ignore responses from other servers
  259.         break;
  260.       pdde = (PDDESTRUCT)mp2;
  261.       if (!pdde)                       // check ptr
  262.         break;
  263.       // write incomming text message to screen
  264.       strcpy(szMsg, (PSZ)DDES_PABDATA(pdde)); // Extract data
  265.       if (strlen(szMsg) == 0)
  266.         strcpy(szMsg, "<no text message from server>");
  267.       PaintWindow(hwnd, szMsg);
  268.       WinInvalidateRect(hwnd, NULL, FALSE);
  269.  
  270.       if (pdde->fsStatus&DDE_FACKREQ)  // does server requre ack?
  271.         {
  272.         pddeOut = MakeDDEReqSeg(CF_TEXT, szDDEItemName, DDE_FACK);
  273.         if (pddeOut)
  274.           {
  275.           WinDdePostMsg(hwndDDEserver, hwnd, WM_DDE_ACK, pdde, TRUE);
  276.           } 
  277.         } 
  278.       break;
  279.  
  280.     case  WM_CLOSE :
  281.       if (hwndDDEserver)
  282.         WinDdePostMsg(hwndDDEserver, hwnd, WM_DDE_TERMINATE, NULL, TRUE);
  283.       WinPostMsg(hwnd, WM_QUIT, 0L, 0L);
  284.       return 0;
  285.  
  286.     case  WM_PAINT :
  287.       PaintWindow(hwnd, szMsg);
  288.       return 0;
  289.  
  290.     case  WM_DDE_TERMINATE :
  291.       if (hwndDDEserver != (HWND)mp1) // ignore responses from other servers
  292.         break;
  293.       EnableMenuItem(hwndMenu, IDM_STARTCONV, TRUE);
  294.       EnableMenuItem(hwndMenu, IDM_STOPCONV, FALSE);
  295.          if (fAdvise)
  296.       EnableMenuItem(hwndMenu, IDM_ENDADVISE, FALSE);
  297.       hwndDDEserver =(HWND) NULL;            // store client window handle
  298.       WinSetWindowText(hwndFrame, "...Not Connected...");
  299.       fConnected = FALSE;
  300.       break;
  301.  
  302.     case  WM_ERASEBACKGROUND :
  303.       return (MRESULT)1;
  304.     } 
  305.   return  WinDefWindowProc(hwnd, msg, mp1, mp2);
  306. }
  307.  
  308. /*
  309. Pre - hwnd is a valid window handle, szMsg is a null terminated string (PSZ)
  310. Post - writes szMsg in hwnd centered vertically and horizontally
  311. */
  312.  
  313. VOID EXPENTRY PaintWindow(HWND hwnd,CHAR *szMsg)
  314. {
  315.   HPS hps = NULL;
  316.   RECTL rcl;
  317.  
  318.   hps = WinBeginPaint(hwnd, (HPS)NULL, NULL);
  319.   if (!hps)
  320.     return ;
  321.   WinQueryWindowRect(hwnd, &rcl);
  322.   WinDrawText(hps, -1, szMsg, &rcl, CLR_NEUTRAL, CLR_BACKGROUND, DT_CENTER|
  323.      DT_VCENTER|DT_ERASERECT);
  324.  
  325.   WinEndPaint(hps);
  326. } // PaintWindow()
  327.  
  328. /*
  329. Pre  - this routine is called directly by PM
  330. Post - handles all window processing for dialog box: IDD_INIT_DLG
  331. */
  332.  
  333. MRESULT EXPENTRY InitDlgProc(HWND hwnd,USHORT msg,MPARAM mp1,MPARAM mp2)
  334. {
  335.   static PDDECONV pddec = NULL;        // ptr to dde server name and topic
  336.   static HWND hwndServer = NULL,hwndTopic = NULL; // text entry window handles
  337.  
  338.   switch (msg)
  339.     {
  340.     case  WM_INITDLG :
  341.       pddec = MPFROMP(mp2);
  342.       if (pddec == NULL)
  343.         {
  344.         WinMessageBox(HWND_DESKTOP, hwndClient, "Invalid pointer", 
  345.            "PMMSG - Error", 10, MB_OK|MB_ICONEXCLAMATION|MB_APPLMODAL|
  346.            MB_MOVEABLE);
  347.         return (MRESULT)WinDismissDlg(hwnd, FALSE);
  348.         } 
  349.       /* 1. Set up text entry field default strings and lengths */
  350.       SetEFTextLength(hwnd, ID_SERVER_CBX, CV_MAXDDENAME);
  351.       SetEFTextLength(hwnd, ID_TOPIC_CBX, CV_MAXTOPICNAME);
  352.       hwndServer = WinWindowFromID(hwnd, ID_SERVER_CBX);
  353.       if (hwndServer)
  354.         {
  355.         WinSetWindowText(hwndServer, pddec->szDDEServerName);
  356.         WinSendMsg(hwndServer, EM_SETSEL,  // highlight for easy discard
  357.            MPFROM2SHORT((USHORT)0, (USHORT)CV_MAXDDENAME), (MPARAM)0);
  358.         /* insert app name into combo box */
  359.         WinSendMsg(hwndServer, LM_INSERTITEM, MPFROMSHORT((SHORT) LIT_END),
  360.            MPFROMP(pddec->szDDEServerName));
  361.         } 
  362.       hwndTopic = WinWindowFromID(hwnd, ID_TOPIC_CBX);
  363.       if (hwndTopic)
  364.         {
  365.         // 2. Enter default topics into combo box
  366.         WinSendMsg(hwndTopic, LM_INSERTITEM, MPFROMSHORT((SHORT) LIT_END), MPFROMP(CV_DDETOPIC));
  367.         WinSendMsg(hwndTopic, LM_INSERTITEM, MPFROMSHORT((SHORT) LIT_END), MPFROMP(SZDDESYS_TOPIC));
  368.         WinSetWindowText(hwndTopic, pddec->szDDETopicName);
  369.         }
  370.       return 0;  /* wm_initdlg */
  371.  
  372.     case  WM_COMMAND :
  373.       switch (SHORT1FROMMP(mp1))
  374.         {
  375.         case  DID_OK :
  376.            // obtain new values to use 
  377.           WinQueryWindowText(hwndServer, CV_MAXDDENAME,  
  378.              pddec->szDDEServerName);
  379.           WinQueryWindowText(hwndTopic, CV_MAXTOPICNAME,  
  380.              pddec->szDDETopicName);
  381.           return (MRESULT)WinDismissDlg(hwnd, TRUE);
  382.  
  383.         case  DID_CANCEL :
  384.           return (MRESULT)WinDismissDlg(hwnd, FALSE);
  385.  
  386.         }                              // wm_command
  387.       break;
  388.  
  389.     case  WM_SYSCOMMAND :              // process dlg box system menu
  390.       switch (LOUSHORT(mp1))
  391.         {
  392.         case  SC_CLOSE :
  393.           return (MRESULT)WinDismissDlg(hwnd, FALSE);
  394.  
  395.         default  :
  396.           return  WinDefDlgProc(hwnd, msg, mp1, mp2);
  397.         }                              // wm_syscommand
  398.  
  399.       break;                           // wm_syscommand
  400.     }                                  // switch()
  401.   return  WinDefDlgProc(hwnd, msg, mp1, mp2);
  402. }                                      // InitDlgProc()
  403.  
  404. /*
  405. Pre - format, item name, and fsStatus are valid
  406. Post - a valid data segment for WM_DDE_REQUEST message is built
  407.        and a pddestruct is returned else (error) null is returned
  408. */
  409.  
  410. PDDESTRUCT EXPENTRY MakeDDEReqSeg(USHORT usFormat,PSZ pszItemName,BOOL fsStatus)
  411. {
  412.   PULONG pulSharedObj = NULL;     /* pointer to shared object */
  413.   PDDESTRUCT pdde = NULL;
  414.   ULONG rc = 0;
  415.   USHORT cbObjSize = 0;                // count of bytes to request
  416.  
  417.   /**************************************************************************/
  418.   /* 1) Allocate a givable memory block                                     */
  419.   /**************************************************************************/
  420.  
  421.   cbObjSize = (USHORT)strlen(pszItemName)+ (USHORT) 1;
  422.   rc = DosAllocSharedMem((VOID *)&pulSharedObj, NULL, cbObjSize,
  423.              PAG_COMMIT | PAG_READ | PAG_WRITE | OBJ_GIVEABLE);
  424.   if (rc && pulSharedObj)          // check api return code and ptr
  425.     return  NULL;
  426.  
  427.   /**************************************************************************/
  428.   /* 2) Fill in the new DDE structure                                       */
  429.   /**************************************************************************/
  430.  
  431.   pdde = (PDDESTRUCT) pulSharedObj;
  432.   pdde->cbData = cbObjSize;
  433.   pdde->offszItemName = sizeof(DDESTRUCT);
  434.   pdde->usFormat = usFormat;
  435.   strcpy(DDES_PSZITEMNAME(pdde), pszItemName); // item name
  436.   pdde->offabData = (USHORT) pdde->offszItemName+ (USHORT) strlen(pszItemName)+ (USHORT)1;
  437.   pdde->fsStatus = fsStatus;           // set status flags
  438.   pdde->cbData = 0;                    // no data is needed
  439.   pdde->offabData = 0;
  440.   return  pdde;
  441. }  /* MakeDDESeg() */
  442.  
  443. /*
  444. Pre - valid PM client exists
  445. Post - processing of about dialog box completed
  446. */
  447.  
  448. MRESULT EXPENTRY AboutDlgProc (HWND hwnd, USHORT msg, MPARAM mp1, MPARAM mp2)
  449. {
  450.   switch (msg)
  451.       {
  452.       case WM_COMMAND:
  453.       switch (SHORT1FROMMP(mp1))
  454.            {
  455.            case DID_OK:
  456.            case DID_CANCEL:
  457.            WinDismissDlg (hwnd, TRUE);
  458.            return 0;
  459.            }
  460.       break ;
  461.       }
  462.   return WinDefDlgProc (hwnd, msg, mp1, mp2) ;
  463. } /* AboutDlgProc */
  464.  
  465.  
  466. // $Workfile:   client.c  $
  467.  
  468.