dbaccess/source/core/misc/sdbcoretools.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 #include <sdbcoretools.hxx>
  21
  22 #include <com/sun/star/beans/XPropertySet.hpp>
  23 #include <com/sun/star/container/XChild.hpp>
  24 #include <com/sun/star/util/XModifiable.hpp>
  25 #include <com/sun/star/sdb/XDocumentDataSource.hpp>
  26 #include <com/sun/star/task/InteractionRequestStringResolver.hpp>
  27 #include <com/sun/star/embed/XTransactedObject.hpp>
  28 #include <com/sun/star/embed/ElementModes.hpp>
  29
  30 #include <comphelper/diagnose_ex.hxx>
  31 #include <comphelper/interaction.hxx>
  32 #include <rtl/ref.hxx>
  33
  34 namespace dbaccess
  35 {
  36
  37     using namespace ::com::sun::star::uno;
  38     using namespace ::com::sun::star::util;
  39     using namespace ::com::sun::star::io;
  40     using namespace ::com::sun::star::sdb;
  41     using namespace ::com::sun::star::beans;
  42     using namespace ::com::sun::star::task;
  43     using namespace ::com::sun::star::embed;
  44     using namespace ::com::sun::star::container;
  45
  46     void notifyDataSourceModified(const css::uno::Reference< css::uno::XInterface >& _rxObject)
  47     {
  48         Reference< XInterface > xDs = getDataSource( _rxObject );
  49         Reference<XDocumentDataSource> xDocumentDataSource(xDs,UNO_QUERY);
  50         if ( xDocumentDataSource.is() )
  51             xDs = xDocumentDataSource->getDatabaseDocument();
  52         Reference< XModifiable > xModi( xDs, UNO_QUERY );
  53         if ( xModi.is() )
  54             xModi->setModified(true);
  55     }
  56
  57     Reference< XInterface > getDataSource( const Reference< XInterface >& _rxDependentObject )
  58     {
  59         Reference< XInterface > xParent = _rxDependentObject;
  60         Reference< XInterface > xReturn;
  61         while( xParent.is() )
  62         {
  63             xReturn = xParent;
  64             Reference<XChild> xChild(xParent,UNO_QUERY);
  65             xParent.set(xChild.is() ? xChild->getParent() : Reference< XInterface >(),UNO_QUERY);
  66         }
  67         return xReturn;
  68     }
  69
  70     OUString extractExceptionMessage( const Reference<XComponentContext> & _rContext, const Any& _rError )
  71     {
  72         OUString sDisplayMessage;
  73
  74         try
  75         {
  76             Reference< XInteractionRequestStringResolver > xStringResolver = InteractionRequestStringResolver::create(_rContext);
  77
  78             ::rtl::Reference pRequest( new ::comphelper::OInteractionRequest( _rError ) );
  79             ::rtl::Reference pApprove( new ::comphelper::OInteractionApprove );
  80             pRequest->addContinuation( pApprove );
  81             Optional< OUString > aMessage = xStringResolver->getStringFromInformationalRequest( pRequest );
  82             if ( aMessage.IsPresent )
  83                 sDisplayMessage = aMessage.Value;
  84         }
  85         catch( const Exception& )
  86         {
  87             DBG_UNHANDLED_EXCEPTION("dbaccess");
  88         }
  89
  90         if ( sDisplayMessage.isEmpty() )
  91         {
  92             Exception aExcept;
  93             _rError >>= aExcept;
  94
  95             sDisplayMessage = _rError.getValueTypeName() +
  96                 ":\n" +
  97                 aExcept.Message;
  98         }
  99
 100         return sDisplayMessage;
 101     }
 102
 103     namespace tools::stor {
 104
 105     bool storageIsWritable_nothrow( const Reference< XStorage >& _rxStorage )
 106     {
 107         if ( !_rxStorage.is() )
 108             return false;
 109
 110         sal_Int32 nMode = ElementModes::READ;
 111         try
 112         {
 113             Reference< XPropertySet > xStorageProps( _rxStorage, UNO_QUERY_THROW );
 114             xStorageProps->getPropertyValue( u"OpenMode"_ustr ) >>= nMode;
 115         }
 116         catch( const Exception& )
 117         {
 118             DBG_UNHANDLED_EXCEPTION("dbaccess");
 119         }
 120         return ( nMode & ElementModes::WRITE ) != 0;
 121     }
 122
 123     bool commitStorageIfWriteable( const Reference< XStorage >& _rxStorage )
 124     {
 125         bool bSuccess = false;
 126         Reference< XTransactedObject > xTrans( _rxStorage, UNO_QUERY );
 127         if ( xTrans.is() )
 128         {
 129             if ( storageIsWritable_nothrow( _rxStorage ) )
 130                 xTrans->commit();
 131             bSuccess = true;
 132         }
 133         return bSuccess;
 134     }
 135
 136 }
 137
 138 }   // namespace dbaccess
 139
 140 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */