1 /************************************************************************* 2 * 3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 4 * 5 * Copyright 2000, 2010 Oracle and/or its affiliates. 6 * 7 * OpenOffice.org - a multi-platform office productivity suite 8 * 9 * This file is part of OpenOffice.org. 10 * 11 * OpenOffice.org is free software: you can redistribute it and/or modify 12 * it under the terms of the GNU Lesser General Public License version 3 13 * only, as published by the Free Software Foundation. 14 * 15 * OpenOffice.org is distributed in the hope that it will be useful, 16 * but WITHOUT ANY WARRANTY; without even the implied warranty of 17 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18 * GNU Lesser General Public License version 3 for more details 19 * (a copy is included in the LICENSE file that accompanied this code). 20 * 21 * You should have received a copy of the GNU Lesser General Public License 22 * version 3 along with OpenOffice.org. If not, see 23 * <http://www.openoffice.org/license.html> 24 * for a copy of the LGPLv3 License. 25 * 26 ************************************************************************/ 27 28 // MARKER(update_precomp.py): autogen include statement, do not remove 29 #include "precompiled_connectivity.hxx" 30 31 //-------------------------------------------------------------------------- 32 #include "odbc/OFunctions.hxx" 33 #include <osl/process.h> 34 35 // Implib-Definitionen fuer ODBC-DLL/shared library: 36 37 namespace connectivity 38 { 39 T3SQLAllocHandle pODBC3SQLAllocHandle; 40 T3SQLConnect pODBC3SQLConnect; 41 T3SQLDriverConnect pODBC3SQLDriverConnect; 42 T3SQLBrowseConnect pODBC3SQLBrowseConnect; 43 T3SQLDataSources pODBC3SQLDataSources; 44 T3SQLDrivers pODBC3SQLDrivers; 45 T3SQLGetInfo pODBC3SQLGetInfo; 46 T3SQLGetFunctions pODBC3SQLGetFunctions; 47 T3SQLGetTypeInfo pODBC3SQLGetTypeInfo; 48 T3SQLSetConnectAttr pODBC3SQLSetConnectAttr; 49 T3SQLGetConnectAttr pODBC3SQLGetConnectAttr; 50 T3SQLSetEnvAttr pODBC3SQLSetEnvAttr; 51 T3SQLGetEnvAttr pODBC3SQLGetEnvAttr; 52 T3SQLSetStmtAttr pODBC3SQLSetStmtAttr; 53 T3SQLGetStmtAttr pODBC3SQLGetStmtAttr; 54 //T3SQLSetDescField pODBC3SQLSetDescField; 55 //T3SQLGetDescField pODBC3SQLGetDescField; 56 //T3SQLGetDescRec pODBC3SQLGetDescRec; 57 //T3SQLSetDescRec pODBC3SQLSetDescRec; 58 T3SQLPrepare pODBC3SQLPrepare; 59 T3SQLBindParameter pODBC3SQLBindParameter; 60 //T3SQLGetCursorName pODBC3SQLGetCursorName; 61 T3SQLSetCursorName pODBC3SQLSetCursorName; 62 T3SQLExecute pODBC3SQLExecute; 63 T3SQLExecDirect pODBC3SQLExecDirect; 64 //T3SQLNativeSql pODBC3SQLNativeSql; 65 T3SQLDescribeParam pODBC3SQLDescribeParam; 66 T3SQLNumParams pODBC3SQLNumParams; 67 T3SQLParamData pODBC3SQLParamData; 68 T3SQLPutData pODBC3SQLPutData; 69 T3SQLRowCount pODBC3SQLRowCount; 70 T3SQLNumResultCols pODBC3SQLNumResultCols; 71 T3SQLDescribeCol pODBC3SQLDescribeCol; 72 T3SQLColAttribute pODBC3SQLColAttribute; 73 T3SQLBindCol pODBC3SQLBindCol; 74 T3SQLFetch pODBC3SQLFetch; 75 T3SQLFetchScroll pODBC3SQLFetchScroll; 76 T3SQLGetData pODBC3SQLGetData; 77 T3SQLSetPos pODBC3SQLSetPos; 78 T3SQLBulkOperations pODBC3SQLBulkOperations; 79 T3SQLMoreResults pODBC3SQLMoreResults; 80 //T3SQLGetDiagField pODBC3SQLGetDiagField; 81 T3SQLGetDiagRec pODBC3SQLGetDiagRec; 82 T3SQLColumnPrivileges pODBC3SQLColumnPrivileges; 83 T3SQLColumns pODBC3SQLColumns; 84 T3SQLForeignKeys pODBC3SQLForeignKeys; 85 T3SQLPrimaryKeys pODBC3SQLPrimaryKeys; 86 T3SQLProcedureColumns pODBC3SQLProcedureColumns; 87 T3SQLProcedures pODBC3SQLProcedures; 88 T3SQLSpecialColumns pODBC3SQLSpecialColumns; 89 T3SQLStatistics pODBC3SQLStatistics; 90 T3SQLTablePrivileges pODBC3SQLTablePrivileges; 91 T3SQLTables pODBC3SQLTables; 92 T3SQLFreeStmt pODBC3SQLFreeStmt; 93 T3SQLCloseCursor pODBC3SQLCloseCursor; 94 T3SQLCancel pODBC3SQLCancel; 95 T3SQLEndTran pODBC3SQLEndTran; 96 T3SQLDisconnect pODBC3SQLDisconnect; 97 T3SQLFreeHandle pODBC3SQLFreeHandle; 98 T3SQLGetCursorName pODBC3SQLGetCursorName; 99 T3SQLNativeSql pODBC3SQLNativeSql; 100 101 sal_Bool LoadFunctions(oslModule pODBCso); 102 // ------------------------------------------------------------------------- 103 // Dynamisches Laden der DLL/shared lib und Adressen der Funktionen besorgen: 104 // Liefert sal_True bei Erfolg. 105 sal_Bool LoadLibrary_ODBC3(::rtl::OUString &_rPath) 106 { 107 static sal_Bool bLoaded = sal_False; 108 static oslModule pODBCso = NULL; 109 110 if (bLoaded) 111 return sal_True; 112 #ifdef WNT 113 _rPath = ::rtl::OUString::createFromAscii("ODBC32.DLL"); 114 #endif 115 #ifdef UNX 116 #ifdef MACOSX 117 _rPath = ::rtl::OUString::createFromAscii("libiodbc.dylib"); 118 #else 119 _rPath = ::rtl::OUString::createFromAscii("libodbc.so.1"); 120 pODBCso = osl_loadModule( _rPath.pData,SAL_LOADMODULE_NOW ); 121 if ( !pODBCso ) 122 _rPath = ::rtl::OUString::createFromAscii("libodbc.so"); 123 #endif /* MACOSX */ 124 #endif 125 #ifdef OS2 126 _rPath = ::rtl::OUString::createFromAscii("ODBC"); 127 #endif 128 129 if ( !pODBCso ) 130 pODBCso = osl_loadModule( _rPath.pData,SAL_LOADMODULE_NOW ); 131 if( !pODBCso) 132 #ifdef OS2 133 { 134 delete pODBCso; 135 _rPath = ::rtl::OUString::createFromAscii("WOD402"); 136 pODBCso = osl_loadModule( _rPath.pData,SAL_LOADMODULE_NOW ); 137 if( !pODBCso) 138 return sal_False; 139 } 140 #else 141 return sal_False; 142 #endif 143 144 return bLoaded = LoadFunctions(pODBCso); 145 } 146 // ------------------------------------------------------------------------- 147 148 sal_Bool LoadFunctions(oslModule pODBCso) 149 { 150 151 if( ( pODBC3SQLAllocHandle = (T3SQLAllocHandle)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLAllocHandle").pData )) == NULL ) 152 return sal_False; 153 if( ( pODBC3SQLConnect = (T3SQLConnect)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLConnect").pData )) == NULL ) 154 return sal_False; 155 if( ( pODBC3SQLDriverConnect = (T3SQLDriverConnect)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLDriverConnect").pData )) == NULL ) 156 return sal_False; 157 if( ( pODBC3SQLBrowseConnect = (T3SQLBrowseConnect)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLBrowseConnect").pData )) == NULL ) 158 return sal_False; 159 if(( pODBC3SQLDataSources = (T3SQLDataSources)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLDataSources").pData )) == NULL ) 160 return sal_False; 161 if(( pODBC3SQLDrivers = (T3SQLDrivers)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLDrivers").pData )) == NULL ) 162 return sal_False; 163 if( ( pODBC3SQLGetInfo = (T3SQLGetInfo)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetInfo").pData )) == NULL ) 164 return sal_False; 165 if(( pODBC3SQLGetFunctions = (T3SQLGetFunctions)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetFunctions").pData )) == NULL ) 166 return sal_False; 167 if( ( pODBC3SQLGetTypeInfo = (T3SQLGetTypeInfo)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetTypeInfo").pData )) == NULL ) 168 return sal_False; 169 if( ( pODBC3SQLSetConnectAttr = (T3SQLSetConnectAttr)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLSetConnectAttr").pData )) == NULL ) 170 return sal_False; 171 if( ( pODBC3SQLGetConnectAttr = (T3SQLGetConnectAttr)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetConnectAttr").pData )) == NULL ) 172 return sal_False; 173 if( ( pODBC3SQLSetEnvAttr = (T3SQLSetEnvAttr)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLSetEnvAttr").pData )) == NULL ) 174 return sal_False; 175 if( ( pODBC3SQLGetEnvAttr = (T3SQLGetEnvAttr)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetEnvAttr").pData )) == NULL ) 176 return sal_False; 177 if( ( pODBC3SQLSetStmtAttr = (T3SQLSetStmtAttr)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLSetStmtAttr").pData )) == NULL ) 178 return sal_False; 179 if( ( pODBC3SQLGetStmtAttr = (T3SQLGetStmtAttr)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetStmtAttr").pData )) == NULL ) 180 return sal_False; 181 /*if( ( pODBC3SQLSetDescField = (T3SQLSetDescField)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLSetDescField").pData )) == NULL ) 182 return sal_False; 183 if( ( pODBC3SQLGetDescField = (T3SQLGetDescField)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetDescField").pData )) == NULL ) 184 return sal_False;*/ 185 /*if( ( pODBC3SQLGetDescRec = (T3SQLGetDescRec)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetDescRec").pData )) == NULL ) 186 return sal_False; 187 if( ( pODBC3SQLSetDescRec = (T3SQLSetDescRec)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLSetDescRec").pData )) == NULL ) 188 return sal_False;*/ 189 if( ( pODBC3SQLPrepare = (T3SQLPrepare)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLPrepare").pData )) == NULL ) 190 return sal_False; 191 if( ( pODBC3SQLBindParameter = (T3SQLBindParameter)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLBindParameter").pData )) == NULL ) 192 return sal_False; 193 // if( ( pODBC3SQLGetCursorName = (T3SQLGetCursorName)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetCursorName").pData )) == NULL ) 194 // return sal_False; 195 if( ( pODBC3SQLSetCursorName = (T3SQLSetCursorName)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLSetCursorName").pData )) == NULL ) 196 return sal_False; 197 if( ( pODBC3SQLExecute = (T3SQLExecute)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLExecute").pData )) == NULL ) 198 return sal_False; 199 if( ( pODBC3SQLExecDirect = (T3SQLExecDirect)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLExecDirect").pData )) == NULL ) 200 return sal_False; 201 /*if( ( pODBC3SQLNativeSql = (T3SQLNativeSql)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLNativeSql").pData )) == NULL ) 202 return sal_False;*/ 203 if( ( pODBC3SQLDescribeParam = (T3SQLDescribeParam)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLDescribeParam").pData )) == NULL ) 204 return sal_False; 205 if( ( pODBC3SQLNumParams = (T3SQLNumParams)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLNumParams").pData )) == NULL ) 206 return sal_False; 207 if( ( pODBC3SQLParamData = (T3SQLParamData)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLParamData").pData )) == NULL ) 208 return sal_False; 209 if( ( pODBC3SQLPutData = (T3SQLPutData)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLPutData").pData )) == NULL ) 210 return sal_False; 211 if( ( pODBC3SQLRowCount = (T3SQLRowCount)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLRowCount").pData )) == NULL ) 212 return sal_False; 213 if( ( pODBC3SQLNumResultCols = (T3SQLNumResultCols)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLNumResultCols").pData )) == NULL ) 214 return sal_False; 215 if( ( pODBC3SQLDescribeCol = (T3SQLDescribeCol)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLDescribeCol").pData )) == NULL ) 216 return sal_False; 217 if( ( pODBC3SQLColAttribute = (T3SQLColAttribute)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLColAttribute").pData )) == NULL ) 218 return sal_False; 219 if( ( pODBC3SQLBindCol = (T3SQLBindCol)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLBindCol").pData )) == NULL ) 220 return sal_False; 221 if( ( pODBC3SQLFetch = (T3SQLFetch)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLFetch").pData )) == NULL ) 222 return sal_False; 223 if( ( pODBC3SQLFetchScroll = (T3SQLFetchScroll)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLFetchScroll").pData )) == NULL ) 224 return sal_False; 225 if( ( pODBC3SQLGetData = (T3SQLGetData)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetData").pData )) == NULL ) 226 return sal_False; 227 if( ( pODBC3SQLSetPos = (T3SQLSetPos)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLSetPos").pData )) == NULL ) 228 return sal_False; 229 if( ( pODBC3SQLBulkOperations = (T3SQLBulkOperations)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLBulkOperations").pData )) == NULL ) 230 return sal_False; 231 if( ( pODBC3SQLMoreResults = (T3SQLMoreResults)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLMoreResults").pData )) == NULL ) 232 return sal_False; 233 /*if( ( pODBC3SQLGetDiagField = (T3SQLGetDiagField)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetDiagField").pData )) == NULL ) 234 return sal_False;*/ 235 if( ( pODBC3SQLGetDiagRec = (T3SQLGetDiagRec)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetDiagRec").pData )) == NULL ) 236 return sal_False; 237 if( ( pODBC3SQLColumnPrivileges = (T3SQLColumnPrivileges)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLColumnPrivileges").pData )) == NULL ) 238 return sal_False; 239 if( ( pODBC3SQLColumns = (T3SQLColumns)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLColumns").pData )) == NULL ) 240 return sal_False; 241 if( ( pODBC3SQLForeignKeys = (T3SQLForeignKeys)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLForeignKeys").pData )) == NULL ) 242 return sal_False; 243 if( ( pODBC3SQLPrimaryKeys = (T3SQLPrimaryKeys)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLPrimaryKeys").pData )) == NULL ) 244 return sal_False; 245 if( ( pODBC3SQLProcedureColumns = (T3SQLProcedureColumns)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLProcedureColumns").pData )) == NULL ) 246 return sal_False; 247 if( ( pODBC3SQLProcedures = (T3SQLProcedures)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLProcedures").pData )) == NULL ) 248 return sal_False; 249 if( ( pODBC3SQLSpecialColumns = (T3SQLSpecialColumns)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLSpecialColumns").pData )) == NULL ) 250 return sal_False; 251 if( ( pODBC3SQLStatistics = (T3SQLStatistics)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLStatistics").pData )) == NULL ) 252 return sal_False; 253 if( ( pODBC3SQLTablePrivileges = (T3SQLTablePrivileges)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLTablePrivileges").pData )) == NULL ) 254 return sal_False; 255 if( ( pODBC3SQLTables = (T3SQLTables)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLTables").pData )) == NULL ) 256 return sal_False; 257 if( ( pODBC3SQLFreeStmt = (T3SQLFreeStmt)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLFreeStmt").pData )) == NULL ) 258 return sal_False; 259 if( ( pODBC3SQLCloseCursor = (T3SQLCloseCursor)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLCloseCursor").pData )) == NULL ) 260 return sal_False; 261 if( ( pODBC3SQLCancel = (T3SQLCancel)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLCancel").pData )) == NULL ) 262 return sal_False; 263 if( ( pODBC3SQLEndTran = (T3SQLEndTran)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLEndTran").pData )) == NULL ) 264 return sal_False; 265 if( ( pODBC3SQLDisconnect = (T3SQLDisconnect)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLDisconnect").pData )) == NULL ) 266 return sal_False; 267 if( ( pODBC3SQLFreeHandle = (T3SQLFreeHandle)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLFreeHandle").pData )) == NULL ) 268 return sal_False; 269 if( ( pODBC3SQLGetCursorName = (T3SQLGetCursorName)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLGetCursorName").pData )) == NULL ) 270 return sal_False; 271 if( ( pODBC3SQLNativeSql = (T3SQLNativeSql)osl_getFunctionSymbol(pODBCso, ::rtl::OUString::createFromAscii("SQLNativeSql").pData )) == NULL ) 272 return sal_False; 273 274 return sal_True; 275 } 276 // ------------------------------------------------------------------------- 277 278 } 279 280 281 282