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