home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l430 / 1.ddi / CHAP6.ZIP / DDSERVER.C < prev    next >
Encoding:
C/C++ Source or Header  |  1992-06-13  |  8.4 KB  |  308 lines
  1. /*
  2.     DDSERVER.C -- Demonstrates server end of Drag and Drop protocol
  3.     in both 3.0 and 3.1 using DragObject
  4.  
  5.     Copyright (c) Dave Maxey 1992
  6.     
  7.     From Chapter 6 of "Undocumented Windows" (Addison-Wesley 1992)
  8.     by Andrew Schulman, Dave Maxey and Matt Pietrek
  9.  
  10.     Build using: WINIOBC DDSERVER (for Borland C++ v3.00)
  11.                  WINIOMS DDSERVER (for Microsoft C/SDK)
  12. */
  13.  
  14. #include <windows.h> 
  15. #include <string.h> 
  16. #include "wmhandlr.h" 
  17. #include "winio.h" 
  18. #include "dragdrop.h"
  19. #ifndef __BORLANDC__
  20. #define MK_FP(a,b)  ((void far *)(((unsigned long)(a) << 16) | (b)))
  21. #endif
  22.  
  23. #define ID_HELP 1
  24.  
  25.  
  26. void usage_help(HWND hwnd, WORD wId)
  27.     {
  28.     HWND hSave;
  29.     static HWND hwndHelp = NULL;
  30.     
  31.     if (IsWindow(hwndHelp))
  32.         {
  33.         BringWindowToTop(hwndHelp);
  34.         return;
  35.         }
  36.     
  37.     if (! (hwndHelp = winio_window("HELP", 1, WW_HASMENU)))
  38.         return;
  39.     
  40.     hSave = winio_setcurrent(hwndHelp);
  41.     
  42.     winio_setpaint(hwndHelp, FALSE);
  43.     
  44.     printf(
  45.         "At any stage, in response to the prompt,\n"
  46.         "\tyou may enter a list of one or more\n"
  47.         "\tfilenames or directories. If more\n"
  48.         "\tthan one is entered, each filename\n"
  49.         "\tin the list should be separated by\n"
  50.         "\ta space, eg:\n"
  51.         "\t\tfile.001 file.002\n"
  52.         "\n"
  53.         "The currently defined files may be dragged\n"
  54.         "\tout of DDSERVER into, for example the\n"
  55.         "\tDDCLIENT program, or Program Manager.\n"
  56.         "\n"
  57.         "Note that when the program starts, no files\n"
  58.         "\thave yet been defined, so dragging is\n"
  59.         "\tnot possible until you have entered\n"
  60.         "\tat least one file or directory.\n"
  61.         "\n"
  62.         "For more information, please refer to the\n"
  63.         "\tDragObject entry in Chapter 6 of\n"
  64.         "\t\"Undocumented Windows\".\n");
  65.  
  66.     winio_setpaint(hwndHelp, TRUE);
  67.     
  68.     winio_home(hwndHelp);
  69.     
  70.     winio_setcurrent(hSave);
  71.     } 
  72.  
  73.  
  74. /* Undocumented function DRAGOBJ */
  75. /* Compile with 3.0 SDK, run with 3.0/3.1 */
  76. extern DWORD FAR PASCAL DragObject(HWND hwndScope, HWND hwndOwner,
  77.     WORD wFlags, WORD hOfstruct, char *szList, HCURSOR hDragCursor);
  78.  
  79. char filelist[128];
  80. char szSaveTitle[128];
  81. WMHANDLER prev_lbuttondown, prev_lbuttonup, prev_mousemove;
  82. HCURSOR hDragCursor;
  83. BOOL bDrag = FALSE;
  84. WORD wDragType;
  85. HANDLE hOfstruct = 0;
  86. LPOFSTRUCT lpof;
  87. int cObjs;
  88. char *szArgv0;
  89.  
  90. #include "checkord.c"
  91.  
  92. WORD verr(WORD sel)
  93.     {
  94.     _asm mov ax, 1
  95.     _asm verr word ptr sel
  96.     _asm je short ok
  97.     _asm dec ax
  98.     ok:;
  99.     }
  100.  
  101. BOOL do_DragObject(void)
  102.     {
  103.     DWORD lRet;
  104.  
  105.     puts("Dragging...");
  106.     GetWindowText(__hMainWnd, szSaveTitle, sizeof(szSaveTitle));
  107.     winio_settitle(__hMainWnd, szArgv0);
  108.     lRet = DragObject(GetDesktopWindow(), __hMainWnd, wDragType,
  109.         hOfstruct, (char *) &filelist, hDragCursor);
  110.     winio_settitle(__hMainWnd, szSaveTitle);
  111.     printf("Returned %08lX\n", lRet);
  112.  
  113.     switch (lRet)
  114.         {
  115.         case DRAG_PRNT :
  116.             printf("Dropped onto a print oriented app.\n"); break;
  117.         case DRAG_FILE :
  118.             printf("Dropped onto a file oriented app.\n");  break;
  119.         case 1 :
  120.             printf("Drop accepted (rejected if v3.1).\n");  break;
  121.         default :
  122.             printf("Drop not completed.\n");        return FALSE;
  123.         }
  124.     return TRUE;
  125.     }
  126.  
  127.  
  128. void do_31Protocol(void)
  129.     {
  130.     DWORD pntDrop;
  131.     HANDLE hDropInfo;
  132.     DWORD dwSizeBlk;
  133.     LPDROPINFO lpDropInfo;
  134.     int i;
  135.     LPSTR lpsz;
  136.     char *sz;
  137.     char szBuf[80];
  138.     HWND hwndDrop;
  139.     
  140.     pntDrop = GetMessagePos();
  141.     
  142.     // Estimate size of allocation needed. This should be plenty.
  143.     dwSizeBlk = (DWORD) cObjs * 128;
  144.  
  145.     hDropInfo =
  146.         GlobalAlloc(GMEM_DDESHARE | GMEM_ZEROINIT, dwSizeBlk);
  147.         
  148.     lpDropInfo = (LPDROPINFO) GlobalLock(hDropInfo);
  149.     
  150.     lpDropInfo->wOfsFirst = 8;
  151.     lpDropInfo->xDrop = LOWORD(pntDrop);
  152.     lpDropInfo->yDrop = HIWORD(pntDrop);
  153.     lpsz = (LPSTR) &lpDropInfo->chBuffer;
  154.  
  155.     // WinFile emulation!
  156.     lstrcpy((LPSTR) &szBuf, szArgv0);
  157.  
  158.     // remove filename to leave \ terminated path
  159.     *(strrchr(szBuf, '\\') + 1) = 0;
  160.     sz = filelist;
  161.     
  162.     // copy in complete pathed filenames
  163.     for (i = 0; i < cObjs; i++)
  164.         {
  165.         lstrcpy(lpsz, (LPSTR) &szBuf);
  166.         lstrcat(lpsz, (LPSTR) strtok(sz, " "));
  167.         lpsz = (LPSTR) ((DWORD) lpsz + lstrlen(lpsz) + 1);
  168.         sz = NULL;
  169.         }
  170.     for (; i > 0; i--)
  171.         filelist[strlen(filelist)] = ' ';
  172.         
  173.     GlobalUnlock(hDropInfo);
  174.     
  175.     // Find out who to send WM_DROPFILES to
  176.     hwndDrop = WindowFromPoint(MAKEPOINT(pntDrop));
  177.  
  178.     SendMessage(hwndDrop, WM_DROPFILES, hDropInfo, 0L);
  179.     
  180.     // In case the client app doesn't follow the rules
  181.     if (verr(hDropInfo))
  182.         GlobalFree(hDropInfo);
  183.     }
  184.  
  185.  
  186. BOOL free_sel(HWND hwnd)
  187.     {
  188.     if (hOfstruct)
  189.         GlobalFree(hOfstruct);
  190.     return TRUE;
  191.     }
  192.  
  193. long my_lbuttondown(HWND hwnd, WORD wMsg, WORD wParam,
  194.     DWORD lParam)
  195.     {
  196.     // Only allow dragging if there is something to drag
  197.     if (filelist[0])
  198.         bDrag = TRUE;
  199.     return (*prev_lbuttondown)(hwnd, wMsg, wParam, lParam);
  200.     }
  201.  
  202. long my_lbuttonup(HWND hwnd, WORD wMsg, WORD wParam,
  203.     DWORD lParam)
  204.     {
  205.     bDrag = FALSE;
  206.     return (*prev_lbuttonup)(hwnd, wMsg, wParam, lParam);
  207.     }
  208.  
  209. long my_mousemove(HWND hwnd, WORD wMsg, WORD wParam,
  210.     DWORD lParam)
  211.     {
  212.     if (bDrag)
  213.         {
  214.         // Avoid 'reentrancy'
  215.         bDrag = FALSE;
  216.         if (do_DragObject())
  217.             do_31Protocol();
  218.         }
  219.     return (*prev_mousemove)(hwnd, wMsg, wParam, lParam);   
  220.     }
  221.  
  222. int main(int argc, char *argv[])
  223.     {
  224.     int i;
  225.     char *sz;
  226.     
  227.     if (! CheckOrdName("DragObject", "USER", 464))
  228.         return 0;
  229.  
  230.     winio_settitle(__hMainWnd, "Drag'n'Drop Server");
  231.     winio_about("DDSERVER"
  232.         "\nDemonstrates server end of Drag and Drop protocol"
  233.         "\nin both 3.0 and 3.1 using DragObject"
  234.         "\n\nFrom Chapter 6 of"
  235.         "\n\"Undocumented Windows\" (Addison-Wesley, 1992)"
  236.         "\nby Andrew Schulman, David Maxey and Matt Pietrek"
  237.         );
  238.     
  239.     winio_setmenufunc(__hMainWnd, ID_HELP, (MENU_FUNC) usage_help);
  240.     
  241.     InsertMenu(winio_hmenuhelp(__hMainWnd),
  242.         0, MF_STRING | MF_ENABLED | MF_BYPOSITION,
  243.         ID_HELP, "&Usage");
  244.     
  245.     // for later WinFile emulation (!)
  246.     szArgv0 = argv[0];
  247.     
  248.     prev_lbuttondown = wmhandler_set(__hMainWnd, WM_LBUTTONDOWN,
  249.         (WMHANDLER) my_lbuttondown);
  250.     prev_lbuttonup = wmhandler_set(__hMainWnd, WM_LBUTTONUP,
  251.         (WMHANDLER) my_lbuttonup);
  252.     prev_mousemove = wmhandler_set(__hMainWnd, WM_MOUSEMOVE,
  253.         (WMHANDLER) my_mousemove);
  254.     winio_onclose(__hMainWnd, (DESTROY_FUNC) free_sel);
  255.  
  256.     // Use the class icon for the drag cursor
  257.     hDragCursor = GetClassWord(__hMainWnd, GCW_HICON);
  258.     
  259.             
  260.     while (TRUE)
  261.         {
  262.         printf("Enter file(s) and/or dir(s)\n"
  263.             "separated by a single space:\n");
  264.         gets(filelist);
  265.         strupr(filelist);
  266.  
  267.         // Ensure it is space char terminated
  268.         if (filelist[strlen(filelist) - 1] != ' ')
  269.             strcat(filelist, " ");
  270.         printf("List is <%s>\n", filelist);
  271.         for (i = 0, cObjs = 0; filelist[i]; i++)
  272.             if (filelist[i] == ' ') cObjs++;
  273.  
  274.         // Free up the last allocation if necessary
  275.         if (hOfstruct)
  276.             {
  277.             GlobalFree(hOfstruct);
  278.             hOfstruct = 0;
  279.             }
  280.         
  281.         // Detect the 'object' type
  282.         if (cObjs > 1)
  283.             wDragType = DRAGOBJ_MULTIPLE;
  284.         else
  285.         if (filelist[strlen(filelist) - 2] == '\\')
  286.             wDragType = DRAGOBJ_DIRECTORY;
  287.         else
  288.             {
  289.             // Allocate ourselves a global block for a single file
  290.             hOfstruct = GlobalAlloc(GMEM_DDESHARE, sizeof(OFSTRUCT));
  291.             lpof = (LPOFSTRUCT) GlobalLock(hOfstruct);
  292.             OpenFile((LPSTR) &filelist, lpof, OF_PARSE);
  293.             printf("Filename parsed to: %Fs\n",
  294.                 (LPSTR) &lpof->szPathName);
  295.             if (((sz = strchr(filelist, '.')) != NULL) &&
  296.                 ((strncmp((char *) (sz+1), "EXE", 3) == 0) ||
  297.                 (strncmp((char *) (sz+1), "BAT", 3) == 0) ||
  298.                 (strncmp((char *) (sz+1), "COM", 3) == 0)))
  299.                 wDragType = DRAGOBJ_PROGRAM;
  300.             else
  301.                 wDragType = DRAGOBJ_DATA;
  302.             wDragType |= DRAGOBJ_EXTERNAL;
  303.             GlobalUnlock(hOfstruct);
  304.             }
  305.         }
  306.     return 0;
  307.     }
  308.