home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ddeshare / ddesh.c next >
Encoding:
C/C++ Source or Header  |  1992-12-31  |  5.9 KB  |  197 lines
  1. //*************************************************************************
  2. //    DDESH.DLL
  3. //
  4. //    DDEShare functions for Visual Basic.
  5. //
  6. //    Software Assist Corporation - 1992
  7. //
  8. //*************************************************************************
  9. #include <windows.h>
  10. #include <nddeapi.h>
  11. #include <vbapi.h>
  12. #include <string.h>
  13.  
  14. typedef struct PassShareInfo_tag
  15.     {
  16.     char            szAppName[MAX_APPNAME+1];
  17.     char            szTopicName[MAX_TOPICNAME+1];
  18.     char            szItemName[MAX_ITEMNAME+1];
  19.     char                szPassword1[MAX_PASSWORD];
  20.     DWORD                       dwPermissions1;
  21.     char                szPassword2[MAX_PASSWORD];
  22.     DWORD                       dwPermissions2;
  23.     } PASSSHAREINFO, *PPASSSHAREINFO, FAR *LPPASSSHAREINFO;
  24.  
  25.  
  26. //*************************************************************************
  27. //     LibMain -
  28. //           Standard DLL constructor.
  29. //        Allocate local memory to store Global handles to
  30. //        FileCon entries for each file.
  31. //*************************************************************************
  32.  
  33. #pragma argsused
  34. int FAR pascal LibMain(HANDLE hModule,
  35.             WORD wDataSeg,
  36.             WORD cbHeapSize,
  37.             LPSTR lpszCmdLine)
  38. {
  39.     if (cbHeapSize > 0)
  40.     UnlockData(0);        
  41.     return (1);
  42. }
  43.  
  44. //*************************************************************************
  45. //     WEP -                                                                 
  46. //           Standard DLL destructor.  Free up local memory and quit.            
  47. //*************************************************************************
  48. #pragma argsused
  49. int FAR pascal WEP(int bSystemExit)
  50. {
  51.     return (1);
  52. }
  53.  
  54. //************************************************************************
  55. //    VBGetNodeName
  56. //    Return a string containing the node name.
  57. //*************************************************************************
  58. HLSTR FAR pascal _export VBGetNodeName(void)
  59. {
  60. char    szNodeName[MAX_DOMAINNAME+1];
  61.  
  62.     if (NDdeGetNodeName(&szNodeName[0],MAX_DOMAINNAME+1)!=NDDE_NO_ERROR)
  63.         return(VBCreateTempHlstr(NULL,NULL));
  64.     return(VBCreateTempHlstr(&szNodeName[0],lstrlen(&szNodeName[0])));
  65. }
  66.  
  67. //************************************************************************
  68. //    VBShareDel
  69. //    Delete a share name.
  70. //*************************************************************************
  71. int FAR pascal _export VBShareDel(LPSTR pszShareName)
  72. {
  73.  
  74.     return(NDdeShareDel(NULL,pszShareName,NULL));
  75. } 
  76.  
  77. //************************************************************************
  78. //    VBShareEnum
  79. //    Return a list of currently defined shares.
  80. //*************************************************************************
  81. int FAR pascal _export VBShareEnum(HANDLE hWnd)
  82. {
  83. HGLOBAL        hGbl;
  84. LPBYTE        pBuff;
  85. DWORD        nNames;
  86. DWORD        nRemain;
  87. DWORD        i;
  88. int               rc;
  89.  
  90.     hGbl=GlobalAlloc(GHND,10000);
  91.     if (hGbl==NULL)
  92.         return(NDDE_OUT_OF_MEMORY);
  93.     pBuff=GlobalLock(hGbl);
  94.  
  95.     rc=NDdeShareEnum(0,0,pBuff,10000,&nNames,&nRemain);
  96.     for(i=1; i<=nNames; i++)
  97.     {
  98.         SendMessage(hWnd,LB_ADDSTRING,NULL,(LONG)(LPSTR)pBuff);
  99.         pBuff=pBuff+lstrlen(pBuff)+1;
  100.     }
  101.     GlobalUnlock(hGbl);
  102.     GlobalFree(hGbl);
  103.     return(rc);
  104. }
  105.  
  106. //************************************************************************
  107. //    VBShareGetInfo
  108. //         Get information on an existing share entry.
  109. //*************************************************************************
  110. int FAR pascal _export VBShareGetInfo(LPSTR pszShareName,
  111.                 PPASSSHAREINFO pPShare)
  112. {
  113. NDDESHAREINFO        AShare;
  114. HGLOBAL            hGbl;
  115. LPBYTE            pBuff;
  116. DWORD            nBuff;
  117. int            rc;
  118. DWORD            nBytes;
  119. WORD            nItems;
  120. LPBYTE            tChar;
  121.  
  122.     nBuff=sizeof(AShare)+(MAX_PASSWORD*2)+2
  123.         +MAX_DOMAINNAME+1
  124.         +MAX_APPNAME+1
  125.         +MAX_TOPICNAME+1
  126.         +MAX_ITEMNAME+1;
  127.     hGbl=GlobalAlloc(GHND,nBuff);
  128.     if (hGbl==NULL)
  129.         return(NDDE_OUT_OF_MEMORY);
  130.     pBuff=GlobalLock(hGbl);
  131.  
  132.     rc=NDdeShareGetInfo(NULL,pszShareName,2,
  133.         (PNDDESHAREINFO)pBuff,nBuff,&nBytes,&nItems);
  134.     if (rc!=NDDE_NO_ERROR)
  135.         {
  136.         GlobalUnlock(hGbl);
  137.                 GlobalFree(hGbl);
  138.         return(rc);
  139.     }
  140.     hmemcpy(&AShare,pBuff,sizeof(AShare));
  141.     _fmemset(pPShare->szPassword1,' ',MAX_PASSWORD);
  142.         if (AShare.cbPassword1>0)
  143.         hmemcpy(pPShare->szPassword1,AShare.lpbPassword1,AShare.cbPassword1);
  144.     pPShare->dwPermissions1=AShare.dwPermissions1;
  145.     _fmemset(pPShare->szPassword2,' ',MAX_PASSWORD);
  146.         if (AShare.cbPassword2>0)
  147.         hmemcpy(pPShare->szPassword2,AShare.lpbPassword2,AShare.cbPassword2);
  148.     pPShare->dwPermissions2=AShare.dwPermissions2;
  149.     _fmemset(pPShare->szAppName,' ',MAX_APPNAME+1);
  150.     lstrcpy(pPShare->szAppName,AShare.lpszTargetApp);
  151.     tChar=(LPBYTE)pPShare->szAppName+lstrlen(AShare.lpszTargetApp);
  152.         *tChar=' ';
  153.     _fmemset(pPShare->szTopicName,' ',MAX_TOPICNAME+1);
  154.     lstrcpy(pPShare->szTopicName,AShare.lpszTargetTopic);
  155.     tChar=(LPBYTE)pPShare->szTopicName+lstrlen(AShare.lpszTargetTopic);
  156.     *tChar=' ';
  157.     _fmemset(pPShare->szItemName,' ',MAX_ITEMNAME+1);
  158.     lstrcpy(pPShare->szItemName,AShare.lpszItem);
  159.     tChar=(LPBYTE)pPShare->szItemName+lstrlen(AShare.lpszItem);
  160.     *tChar=' ';
  161.     GlobalUnlock(hGbl);
  162.     GlobalFree(hGbl);
  163.     return(rc);
  164. }
  165.  
  166. //************************************************************************
  167. //    VBShareUpdate
  168. //    Update a share entry.
  169. //*************************************************************************
  170. int FAR pascal _export VBShareUpdate(LPSTR pszShareName,
  171.                 LPSTR pszAppName,
  172.                 LPSTR pszTopName,
  173.                 LPSTR pszItemName,
  174.                 LPSTR pszPswd1,
  175.                 LPSTR pszPswd2,
  176.                 DWORD Perm1,
  177.                                 DWORD Perm2)
  178. {
  179. NDDESHAREINFO        AShare;
  180.  
  181.     NDdeShareDel(NULL,pszShareName,NULL);
  182.  
  183.     _fstrcpy(AShare.szShareName,pszShareName);
  184.     AShare.lpszTargetApp=pszAppName;
  185.     AShare.lpszTargetTopic=pszTopName;
  186.     AShare.lpbPassword1=pszPswd1;
  187.     AShare.cbPassword1=lstrlen(pszPswd1);
  188.     AShare.lpbPassword2=pszPswd2;
  189.     AShare.cbPassword2=lstrlen(pszPswd2);
  190.     AShare.dwPermissions1=Perm1;
  191.     AShare.dwPermissions2=Perm2;
  192.     AShare.lpszItem=pszItemName;
  193.     AShare.cAddItems=0;
  194.         AShare.lpNDdeShareItemInfo=NULL;
  195.  
  196.     return(NDdeShareAdd(NULL,2,&AShare,sizeof(AShare)));
  197. }