home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 14 Text / 14-Text.zip / RB3774.ZIP / DMPHONE.ZIP / DMPHONE.C next >
Text File  |  1992-05-07  |  9KB  |  292 lines
  1. //**************************************************************************************** */
  2. //
  3. //  DMPHONE.C - a demo program by Alan Chambers - UK PS Technical Support, on residency
  4. //             at the ITSC, Boca Raton
  5. //
  6. //  Modified 6 May 1992 to work with GA code.
  7. //
  8. //
  9. //  This program is designed to be used with the DMCUST sample program.  A customer
  10. //  can be dragged onto the telephone icon displayed by this program, with the result
  11. //  that a series of beeps, reminiscent of touchtone dialling tones, are sounded.
  12. //
  13. //  The program illustrates the use of a private rendering mechanism, DRM_SHAREMEM, from
  14. //  the target's point of view.
  15. //
  16. //**************************************************************************************** */
  17. //
  18. //  The program displays a telephone icon as using the WC_STATIC class, then subclasses
  19. //  this static window to add function for drag/drop, moving the icon around the desktop,
  20. //  and providing a context (pop-up) menu.
  21. //
  22. /**************************************************************************************** */
  23.  
  24.  
  25. #define INCL_WIN
  26. #define INCL_GPI
  27. #define INCL_DOS
  28.  
  29. #include <os2.h>                        /* PM header file               */
  30. #include "dmphone.h"                      /* Resource symbolic identifiers*/
  31. #include <stdio.h>
  32. #include <string.h>
  33. #include <stdlib.h>
  34. #include <ctype.h>
  35. #include <memory.h>
  36.  
  37.  
  38. #define OBJECTDATASIZE 100
  39. #define DRAGXFERMEMNAME "\\SHAREMEM\\Drgphone.mem"
  40.  
  41.  
  42. typedef struct {
  43.                  char name[30];
  44.                  char address[100];
  45.                  char phone[15];
  46.                  int  credit_limit;
  47.                } 
  48.                  CUSTOMER, *PCUSTOMER;
  49.  
  50. typedef struct{
  51.                 RECORDCORE core;
  52.                 CUSTOMER cust;
  53.               }
  54.                 CONTRECORD, *PCONTRECORD;
  55.  
  56. MRESULT EXPENTRY PhoneSubclassProc( HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2 );
  57. void mfbeep(ULONG, ULONG);
  58. void phonedial(PCHAR phone);
  59.  
  60.  
  61. HAB  hab;          
  62. HPOINTER hptrPostIcon, hptrArrow;
  63. PFNWP StaticWinProc;
  64. HWND hwndPhone,
  65.      hwndMenu;
  66.  
  67. INT main (VOID)
  68. { 
  69.   HMQ  hmq;                             /* Message queue handle         */
  70.   QMSG qmsg;                            /* Message from message queue   */
  71.  
  72.   hab = WinInitialize(0);
  73.  
  74.   hmq = WinCreateMsgQueue( hab, 0 );
  75.  
  76.   hptrPostIcon = WinLoadPointer(HWND_DESKTOP, 0, ID_MYPOINTER);
  77.   hptrArrow = WinQuerySysPointer(HWND_DESKTOP, SPTR_ARROW, FALSE);
  78.  
  79.   hwndPhone = WinCreateWindow(HWND_DESKTOP, WC_STATIC, "#9999",
  80.                                         WS_VISIBLE | SS_ICON,
  81.                                         10, 10, 64, 64, 
  82.                                         HWND_DESKTOP, HWND_TOP, ID_PHONEICON,
  83.                                         0, 0);
  84.  
  85.   StaticWinProc = WinSubclassWindow(hwndPhone, PhoneSubclassProc);
  86.  
  87.   hwndMenu =  WinLoadMenu(hwndPhone, (ULONG)NULL, RESID_MENU);
  88.  
  89.  
  90.   while(WinGetMsg(hab, &qmsg, 0L, 0, 0))       // message processing loop
  91.      WinDispatchMsg(hab, &qmsg);
  92.  
  93.  
  94.  
  95.   WinDestroyMsgQueue( hmq );             
  96.   WinTerminate( hab );                   
  97. } 
  98.  
  99.  
  100.  
  101. MRESULT EXPENTRY PhoneSubclassProc( HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2 )
  102. {
  103.   SWP swp;
  104.   PDRAGTRANSFER pdxfer;
  105.   PCUSTOMER pxfercust;
  106.   PDRAGINFO pdinfo;
  107.   PDRAGITEM pditem;
  108.   ULONG rc;
  109.   static char IconText[20] = "Icon #";
  110.   char curDir[100];
  111.   char msgtext[100];
  112.   static BOOL button2down = FALSE;
  113.   static POINTS oldpos, newpos;
  114.   static BOOL moved = FALSE;
  115.                     
  116.  
  117.   switch( msg )
  118.   {
  119.      case DM_DRAGOVER:
  120.        pdinfo = (PDRAGINFO)mp1; 
  121.        DrgAccessDraginfo(pdinfo);
  122.        pditem = DrgQueryDragitemPtr(pdinfo, 0);
  123.        if(DrgVerifyRMF(pditem, "DRM_SHAREMEM", "DRF_TEXT"))
  124.        {
  125.          DrgFreeDraginfo(pdinfo);
  126.          return(MPFROM2SHORT(DOR_DROP, DO_COPY));
  127.        }
  128.        else
  129.        {
  130.          DrgFreeDraginfo(pdinfo);
  131.          return(MPFROM2SHORT(DOR_NEVERDROP, 0));
  132.        }
  133.        break;
  134.  
  135.  
  136.      case DM_DROP:
  137.        pdinfo = (PDRAGINFO)mp1;
  138.        DrgAccessDraginfo(pdinfo);
  139.        pditem = DrgQueryDragitemPtr(pdinfo, 0);
  140.        
  141.        // allocated a named shared memory object for a customer *pxfercust
  142.  
  143.        rc = DosAllocSharedMem((PPVOID)&pxfercust, DRAGXFERMEMNAME, sizeof(CUSTOMER), PAG_COMMIT | PAG_WRITE | PAG_READ);
  144.  
  145.        // allocate and fill the dxfer structure;
  146.  
  147.        pdxfer = DrgAllocDragtransfer(1);      
  148.  
  149.        pdxfer->cb = sizeof(DRAGTRANSFER);
  150.        pdxfer->hwndClient = hwnd;
  151.        pdxfer->pditem = pditem;
  152.        pdxfer->hstrSelectedRMF = DrgAddStrHandle("<DRM_CUSTOMER,DRF_TEXT>");
  153.        pdxfer->hstrRenderToName = DrgAddStrHandle(DRAGXFERMEMNAME);
  154.        pdxfer->ulTargetInfo = 0;
  155.        pdxfer->usOperation = DO_COPY;
  156.  
  157.        rc = (ULONG)DrgSendTransferMsg(pdinfo->hwndSource, DM_RENDER, (MPARAM)pdxfer, NULL);
  158.  
  159.        if(rc == TRUE)
  160.        {       
  161.           phonedial(pxfercust->phone);
  162.        }
  163.  
  164.  
  165.        DrgFreeDraginfo(pdinfo);
  166.        DrgFreeDragtransfer(pdxfer);
  167.        DosFreeMem((PVOID)pxfercust);
  168.  
  169.        break;           
  170.  
  171.     //*****************************************************************************
  172.     // The next three cases are to detect a user's request for the context menu
  173.     // If he presses button 2, then releases it without moving the mouse
  174.     // the context menu is displayed.  Pressing button 2 and moving before releasing
  175.     // is the way the telephone can be moved about the screen.
  176.     //*****************************************************************************
  177.   
  178.     case WM_BUTTON2DOWN:
  179.        button2down = TRUE;
  180.        moved = FALSE;
  181.        memcpy((PVOID)&oldpos, (PVOID)&mp1, sizeof(POINTS));     //save mouse pos.
  182.        break;
  183.  
  184.     case WM_BUTTON2UP:
  185.        button2down = FALSE;
  186.        if(moved)
  187.        {
  188.          WinSetPointer(HWND_DESKTOP, hptrArrow);
  189.          WinSetCapture(HWND_DESKTOP, (HWND)NULL);
  190.          memcpy((PVOID)&newpos, (PVOID)&mp1, sizeof(POINTS));     //save mouse pos.
  191.          WinQueryWindowPos(hwndPhone, &swp);
  192.          WinSetWindowPos(hwndPhone, HWND_TOP, swp.x + (newpos.x - oldpos.x),
  193.                                               swp.y + (newpos.y - oldpos.y), 
  194.                          swp.cx, swp.cy, SWP_MOVE);       
  195.        }
  196.        else
  197.        {  
  198.          rc = WinPopupMenu(hwndPhone, hwndPhone, hwndMenu, 0, 0, 0, 
  199.                      PU_MOUSEBUTTON1 /*| PU_POSITIONONITEM | PU_HCONSTRAIN | PU_VCONSTRAIN*/ );
  200.        }
  201.     
  202.        break;
  203.  
  204.     case WM_MOUSEMOVE:
  205.        if(button2down)
  206.        {
  207.          if(!moved)
  208.          {
  209.            WinSetPointer(HWND_DESKTOP, hptrPostIcon);
  210.            WinSetCapture(HWND_DESKTOP, hwndPhone);
  211.          }
  212.          moved = TRUE;
  213.        }
  214.        break;
  215.        
  216.     case WM_COMMAND:
  217.       switch (SHORT1FROMMP(mp1))
  218.       {
  219.         case ID_EXITPROG:
  220.           WinPostMsg(hwnd, WM_CLOSE, (MPARAM)0, (MPARAM)0);
  221.           break;
  222.       }
  223.       break;  
  224.  
  225.     case WM_CLOSE:
  226.       WinPostMsg(hwnd, WM_QUIT, (MPARAM)0,(MPARAM)0);     
  227.       break;
  228.    
  229.     default:
  230.       return (MRESULT)StaticWinProc(hwnd, msg, mp1, mp2);
  231.   }
  232.   return (MRESULT)FALSE;
  233. } 
  234.  
  235.  
  236. //****************************************************************************
  237. //
  238. //  The following two functions implement the phone dialling functions.  
  239. //  Unfortunately, OS/2 does not support the production of multiple concurrent
  240. //  tones on the PC speaker.  Since a touchtone phone generates a pair of tones
  241. //  for each number, we can't reproduce this accurately.  For this sample program
  242. //  therefore, all we do is rapidly alternate the two tones in each case.  The
  243. //  frequencies used are correct.
  244. //
  245. //****************************************************************************
  246.  
  247. void phonedial(PCHAR phone)
  248. {  
  249.   char *p;
  250.   ULONG num;
  251.   int hi, lo;
  252.  
  253.   for(p=phone; p != '\0' && (p-phone) < 8; p++)
  254.   {
  255.     if(*p >= '0' && *p <= '9')
  256.     {
  257.       num = (*p - '0');
  258.  
  259.       if(num == 1 || num == 2 || num == 3)
  260.         lo = 697;
  261.       else if(num == 4 || num == 5 || num == 6)
  262.         lo = 770;
  263.       else if(num == 7 || num == 8 || num == 9)
  264.         lo = 852;
  265.       else
  266.         lo = 941;    // zero
  267.  
  268.       if(num == 1 || num == 4 || num == 7)
  269.         hi = 1209;
  270.       else if(num == 2 || num == 5 || num == 8)
  271.         hi = 1336;
  272.       else if(num == 3 || num == 6 || num == 9)
  273.         hi = 1477;
  274.       mfbeep(lo, hi);
  275.     }
  276.   }
  277. }
  278.  
  279.  
  280. #define FLIPTIME 10 
  281. void mfbeep(ULONG f1, ULONG f2)
  282. {
  283.   int i;
  284.    
  285.   for(i=1; i<30/FLIPTIME; i++)
  286.   {
  287.      DosBeep(f1, FLIPTIME);
  288.      DosBeep(f2, FLIPTIME);
  289.   }
  290.   DosSleep(50);
  291. }
  292.