/****************************** Module Header ******************************\ * Module Name: net.c * * PURPOSE: Contains routines network support * * Created: Feb 1991 * * Copyright (c) 1991 Microsoft Corporation * * History: * Srinik 02\12\1190 Orginal * curts created portable version for WIN16/32 * \***************************************************************************/ #include #ifdef WIN16 #include #endif #ifdef WIN32 #include #endif #include "dll.h" #define MAX_DRIVE 26 char szNULL[] = ""; char szNetName[]= "NetName"; BOOL FAR PASCAL GetTaskVisibleWindow (HWND, LPARAM); void INTERNAL RemoveNetName (LPOBJECT_LE); // Gets the drive letter from topic (if one exists) and then gets the remote // name for that drive and then saves it in the object. OLESTATUS FARINTERNAL SetNetName ( LPOBJECT_LE lpobj ){ char buf[MAX_STR]; WORD2DWORD cbBuf = sizeof(buf); WORD2DWORD driveType; char szDrive[3]; if (lpobj->head.ctype == CT_EMBEDDED) return OLE_OK; if (!GlobalGetAtomName (lpobj->topic, buf, cbBuf)) return OLE_ERROR_BLANK; if (buf[1] != ':') { RemoveNetName (lpobj); return OLE_OK; } szDrive[2] = '\0'; szDrive[1] = ':'; szDrive[0] = buf[0]; AnsiUpperBuff ((LPSTR) szDrive, 1); if (!(driveType = GetDriveType (MAPVALUE(szDrive[0] - 'A',szDrive)) )) { // drive is non existent return OLE_ERROR_DRIVE; } if (driveType == DRIVE_REMOTE) { if (WNetGetConnection (szDrive, buf, (MAPTYPE(LPWORD,LPDWORD)) &cbBuf) != WN_SUCCESS) return OLE_ERROR_DRIVE; lpobj->cDrive = szDrive[0]; if (lpobj->aNetName) GlobalDeleteAtom (lpobj->aNetName); lpobj->aNetName = GlobalAddAtom(buf); #ifdef WIN16 lpobj->dwNetInfo = MAKELONG((WNetGetCaps (WNNC_NET_TYPE)), (WNetGetCaps (WNNC_DRIVER_VERSION))); #endif } else { RemoveNetName (lpobj); } return OLE_OK; } // If netname exists for the given object, then it makes sure that drive // in topic corresponds to the netname. If it's not the drive letter will // be fixed by calling FixNet() OLESTATUS FARINTERNAL CheckNetDrive ( LPOBJECT_LE lpobj, BOOL fNetDlg ){ char buf[MAX_NET_NAME]; char netName[MAX_NET_NAME]; WORD2DWORD cbBuf = sizeof(buf); char szDrive[3]; if (lpobj->head.ctype == CT_EMBEDDED) return OLE_OK; if (!lpobj->aNetName) return OLE_OK; if (!GlobalGetAtomName (lpobj->aNetName, netName, sizeof(netName))) return OLE_ERROR_MEMORY; szDrive[2] = '\0'; szDrive[1] = ':'; if (!(szDrive[0] = lpobj->cDrive)) { if (GlobalGetAtomName (lpobj->topic, buf, sizeof(buf))) szDrive[0] = lpobj->cDrive = buf[0]; } if ((WNetGetConnection (szDrive, buf, (MAPTYPE(LPWORD,LPDWORD)) &cbBuf) == WN_SUCCESS) && (!lstrcmp(netName, buf))) return OLE_OK; return FixNet (lpobj, netName, fNetDlg); } // Find if there is a drive connected to the given server. If so, get the // drive letter and set it in topic. If not try to make connection, and if // that attempt is successful the set the drive letter in topic. OLESTATUS INTERNAL FixNet ( LPOBJECT_LE lpobj, LPSTR lpNetName, BOOL fNetDlg ){ int nDrive = 2; // drive 'C' OLESTATUS retVal; if (SetNextNetDrive(lpobj, &nDrive, lpNetName)) return OLE_OK; if (fNetDlg != POPUP_NETDLG) return OLE_ERROR_NETWORK; if ((retVal = ConnectNet (lpobj, lpNetName)) == OLE_OK) { if (!ChangeTopic (lpobj)) return OLE_ERROR_BLANK; } return retVal; } BOOL FARINTERNAL SetNextNetDrive ( LPOBJECT_LE lpobj, int FAR * lpnDrive, LPSTR lpNetName ){ char buf[MAX_STR]; WORD2DWORD cbBuf = sizeof(buf); char szDrive[3]; if (!lpNetName[0]) { if (!GlobalGetAtomName(lpobj->aNetName, lpNetName, MAX_STR)) return FALSE; } szDrive[2] = '\0'; szDrive[1] = ':'; while (*lpnDrive < MAX_DRIVE) { szDrive[0] = (char) ('A' + (++*lpnDrive)); if (GetDriveType (szDrive) == DRIVE_REMOTE) { #ifdef WIN16 if (GetDriveType (++*lpnDrive) == DRIVE_REMOTE) { #endif cbBuf = sizeof(buf); if ((WNetGetConnection (szDrive, buf, (MAPTYPE(LPWORD,LPDWORD)) &cbBuf) == WN_SUCCESS) && (!lstrcmp(lpNetName, buf))) { lpobj->cDrive = szDrive[0]; return ChangeTopic (lpobj); } } } return FALSE; } BOOL FARINTERNAL ChangeTopic ( LPOBJECT_LE lpobj ){ char buf[MAX_STR]; if (!GlobalGetAtomName(lpobj->topic, buf, sizeof(buf))) return FALSE; if (lpobj->topic) GlobalDeleteAtom(lpobj->topic); buf[0] = lpobj->cDrive; lpobj->topic = GlobalAddAtom (buf); if (lpobj->hLink) { GlobalFree (lpobj->hLink); lpobj->hLink = NULL; } return TRUE; } OLESTATUS INTERNAL ConnectNet ( LPOBJECT_LE lpobj, LPSTR lpNetName ){ HWND hCurTask; HWND hwndParent = NULL; hCurTask = (HWND)ULongToPtr(MGetCurrentTask()); ASSERT (hCurTask, "Current task handle in NULL"); // Get the container task's main window, and use that as parent for // the dlg box. EnumTaskWindows (hCurTask, (WNDENUMPROC)GetTaskVisibleWindow, (DWORD_PTR) ((WORD FAR *) &hwndParent)); if (lpobj->cDrive = (char) DialogBoxParam (hInstDLL, "CONNECTDLG", hwndParent, ConnectDlgProc, (LONG_PTR) lpNetName)) return OLE_OK; else return OLE_ERROR_NETWORK; } INT_PTR FAR PASCAL ConnectDlgProc( HWND hDlg, UINT wMsg, WPARAM wParam, LPARAM lParam ){ char szPassword[32]; char szTitle[64]; switch (wMsg) { case WM_INITDIALOG: SetProp (hDlg, szNetName, (HANDLE)lParam); FillDrives (hDlg); SetDlgItemText (hDlg, IDD_PATH, (LPSTR) lParam); break; case WM_COMMAND: switch (GET_WM_COMMAND_ID(wParam,lParam)) { case IDOK: { int cch = 128; char szMessage[128]; char szDrive[3]; LPSTR lpNetName; GetDlgItemText(hDlg, IDD_DRIVE, szDrive, sizeof(szDrive)); GetDlgItemText(hDlg, IDD_PASSWORD, szPassword, sizeof(szPassword)); lpNetName = (LPSTR) GetProp (hDlg, szNetName); wParam = WNetAddConnection (lpNetName, (LPSTR) szPassword, szDrive); if (wParam == WN_SUCCESS) { RemoveProp (hDlg, szNetName); EndDialog (hDlg, szDrive[0]); return TRUE; } LoadString (hInstDLL, IDS_NETERR, szTitle, sizeof(szTitle)); #ifdef WIN16 if (WNetGetErrorText ((UINT)wParam, szMessage, &cch) != WN_SUCCESS) #endif LoadString (hInstDLL, IDS_NETCONERRMSG, szMessage, sizeof(szMessage)); if (MessageBox (hDlg, szMessage, szTitle, MB_RETRYCANCEL) == IDCANCEL) goto error; if (wParam == WN_ALREADY_CONNECTED) FillDrives (hDlg); SetDlgItemText (hDlg, IDD_PASSWORD, szNULL); break; } case IDCANCEL: error: RemoveProp (hDlg, szNetName); EndDialog(hDlg, 0); return TRUE; case IDD_DRIVE: break; case IDD_PATH: if (GET_WM_COMMAND_CMD(wParam,lParam) == EN_KILLFOCUS) { LPSTR lpNetName; lpNetName = (LPSTR) GetProp (hDlg, szNetName); SendDlgItemMessage (hDlg, IDD_PATH, WM_SETTEXT, 0, (DWORD_PTR) lpNetName); } break; default: break; } break; default: break; } return FALSE; } VOID INTERNAL FillDrives ( HWND hDlg ){ HWND hwndCB; int nDrive = 3; char szDrive[3]; DWORD dwDriveType; hwndCB = GetDlgItem(hDlg, IDD_DRIVE); SendMessage(hwndCB, CB_RESETCONTENT, 0, 0L); szDrive[2] = '\0'; szDrive[1] = ':'; while (nDrive < MAX_DRIVE) { szDrive[0] = (char) ('A' + nDrive); #ifdef WIN32 if ((dwDriveType = GetDriveType (szDrive)) == 1) #endif #ifdef WIN16 if (!GetDriveType (nDrive)) #endif SendMessage(hwndCB, CB_ADDSTRING, 0, (DWORD_PTR)(LPSTR)szDrive); nDrive++; } SendMessage(hwndCB, CB_SETCURSEL, 0, 0L); } BOOL FAR PASCAL GetTaskVisibleWindow ( HWND hWnd, LPARAM lpTaskVisWnd ){ if (IsWindowVisible (hWnd)) { *(HWND FAR *)lpTaskVisWnd = hWnd; return FALSE; } return TRUE; } void INTERNAL RemoveNetName (LPOBJECT_LE lpobj) { if (lpobj->aNetName) { GlobalDeleteAtom (lpobj->aNetName); lpobj->aNetName = (ATOM)0; } lpobj->cDrive = '\0'; }