dbaccess/win32/source/odbcconfig/odbcconfig.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20
  21 #ifndef __cplusplus
  22 #error Need C++ to compile
  23 #endif
  24
  25 #define UNICODE
  26 #define _UNICODE
  27 #include <tchar.h>
  28
  29 #ifdef _MSC_VER
  30 #pragma warning(push, 1)
  31 #pragma warning(disable:4005)
  32 #endif
  33
  34 #include <windows.h>
  35 #include <shellapi.h>
  36 #include <sqlext.h>
  37
  38 #ifdef _MSC_VER
  39 #pragma warning(pop)
  40 #endif
  41
  42 // the name of the library which contains the SQLManageDataSources function
  43 #define ODBC_UI_LIB_NAME    L"ODBCCP32.DLL"
  44
  45 // the signature of the SQLManageDataSources function
  46 typedef SQLRETURN (SQL_API* TSQLManageDataSource) (SQLHWND hwndParent);
  47
  48 // displays the error text for the last error (GetLastError), and returns this error value
  49 int displayLastError()
  50 {
  51     DWORD   dwError = GetLastError();
  52
  53     LPVOID lpMsgBuf;
  54     FormatMessage(
  55         FORMAT_MESSAGE_ALLOCATE_BUFFER |
  56         FORMAT_MESSAGE_FROM_SYSTEM,
  57         NULL,
  58         dwError,
  59         MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language
  60         (LPTSTR)&lpMsgBuf,
  61         0,
  62         NULL
  63     );
  64
  65     // Display the string.
  66     MessageBox( NULL, (LPCTSTR)lpMsgBuf, NULL, MB_OK | MB_ICONERROR );
  67
  68     // Free the buffer.
  69     LocalFree( lpMsgBuf );
  70
  71     return dwError;
  72 }
  73
  74 /** registers the window class for our application's main window
  75 */
  76 BOOL registerWindowClass( HINSTANCE _hAppInstance )
  77 {
  78     WNDCLASSEX wcx;
  79
  80     wcx.cbSize = sizeof(wcx);                   // size of structure
  81     wcx.style = CS_HREDRAW | CS_VREDRAW;        // redraw if size changes
  82     wcx.lpfnWndProc = DefWindowProc;            // points to window procedure
  83     wcx.cbClsExtra = 0;                         // no extra class memory
  84     wcx.cbWndExtra = 0;                         // no extra window memory
  85     wcx.hInstance = _hAppInstance;              // handle to instance
  86     wcx.hIcon = NULL;                           // predefined app. icon
  87     wcx.hCursor = NULL;                         // predefined arrow
  88     wcx.hbrBackground = NULL;                   // no background brush
  89     wcx.lpszMenuName =  NULL;                   // name of menu resource
  90     wcx.lpszClassName = L"ODBCConfigMainClass"; // name of window class
  91     wcx.hIconSm = NULL;                         // small class icon
  92
  93     return ( !!RegisterClassEx( &wcx ) );
  94 }
  95
  96 /// initializes the application instances
  97 HWND initInstance( HINSTANCE _hAppInstance )
  98 {
  99     HWND hWindow = CreateWindow(
 100         L"ODBCConfigMainClass", // name of window class
 101         L"ODBC Config Wrapper", // title-bar string
 102         WS_OVERLAPPEDWINDOW,    // top-level window
 103         CW_USEDEFAULT,          // default horizontal position
 104         CW_USEDEFAULT,          // default vertical position
 105         CW_USEDEFAULT,          // default width
 106         CW_USEDEFAULT,          // default height
 107         (HWND) NULL,            // no owner window
 108         (HMENU) NULL,           // use class menu
 109         _hAppInstance,          // handle to application instance
 110         (LPVOID) NULL);         // no window-creation data
 111
 112     // don't show the window, we only need it as parent handle for the
 113     // SQLManageDataSources function
 114     return hWindow;
 115 }
 116
 117 // main window function
 118 #ifdef __MINGW32__
 119 extern "C" int APIENTRY WinMain( HINSTANCE _hAppInstance, HINSTANCE, LPSTR, int )
 120 #else
 121 extern "C" int APIENTRY _tWinMain( HINSTANCE _hAppInstance, HINSTANCE, LPTSTR, int )
 122 #endif
 123 {
 124     if ( !registerWindowClass( _hAppInstance ) )
 125         return FALSE;
 126
 127     HWND hAppWindow = initInstance( _hAppInstance );
 128     if ( !IsWindow( hAppWindow ) )
 129         return displayLastError();
 130
 131     HMODULE hModule = LoadLibraryW( ODBC_UI_LIB_NAME );
 132     if ( hModule == NULL )
 133         hModule = LoadLibraryExW( ODBC_UI_LIB_NAME, NULL, LOAD_WITH_ALTERED_SEARCH_PATH );
 134     if ( hModule == NULL )
 135         return displayLastError();
 136
 137     FARPROC pManageDSProc = GetProcAddress( hModule, "SQLManageDataSources" );
 138     if ( pManageDSProc == NULL )
 139         return displayLastError();
 140
 141     TSQLManageDataSource pManageDS = (TSQLManageDataSource)pManageDSProc;
 142     if ( !( (*pManageDS)( hAppWindow ) ) )
 143         return displayLastError();
 144
 145     FreeLibrary( hModule );
 146
 147     return 0;
 148 }
 149
 150 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */