embeddedobj/source/msole/olecomponent.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*************************************************************************
   3  *
   4  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   5  *
   6  * Copyright 2000, 2010 Oracle and/or its affiliates.
   7  *
   8  * OpenOffice.org - a multi-platform office productivity suite
   9  *
  10  * This file is part of OpenOffice.org.
  11  *
  12  * OpenOffice.org is free software: you can redistribute it and/or modify
  13  * it under the terms of the GNU Lesser General Public License version 3
  14  * only, as published by the Free Software Foundation.
  15  *
  16  * OpenOffice.org is distributed in the hope that it will be useful,
  17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19  * GNU Lesser General Public License version 3 for more details
  20  * (a copy is included in the LICENSE file that accompanied this code).
  21  *
  22  * You should have received a copy of the GNU Lesser General Public License
  23  * version 3 along with OpenOffice.org.  If not, see
  24  * <http://www.openoffice.org/license.html>
  25  * for a copy of the LGPLv3 License.
  26  *
  27  ************************************************************************/
  28
  29 #include <com/sun/star/lang/IllegalArgumentException.hpp>
  30 #include <com/sun/star/lang/DisposedException.hpp>
  31 #include <com/sun/star/embed/WrongStateException.hpp>
  32 #include <com/sun/star/embed/UnreachableStateException.hpp>
  33 #include <com/sun/star/ucb/XSimpleFileAccess.hpp>
  34 #include <com/sun/star/beans/XPropertySet.hpp>
  35 #include <com/sun/star/io/XTruncate.hpp>
  36 #include <com/sun/star/awt/XRequestCallback.hpp>
  37
  38 #include <platform.h>
  39 #include <cppuhelper/interfacecontainer.h>
  40 #include <comphelper/mimeconfighelper.hxx>
  41 #include <comphelper/storagehelper.hxx>
  42 #include <osl/file.hxx>
  43 #include <rtl/ref.hxx>
  44
  45 #include <olecomponent.hxx>
  46 #include <olewrapclient.hxx>
  47 #include <advisesink.hxx>
  48 #include <oleembobj.hxx>
  49 #include <mtnotification.hxx>
  50
  51 using namespace ::com::sun::star;
  52 using namespace ::comphelper;
  53 #define     MAX_ENUM_ELE     20
  54 #define     FORMATS_NUM      3
  55
  56 // ============ class ComSmart =====================
  57 namespace {
  58
  59 template< class T > class ComSmart
  60 {
  61     T* m_pInterface;
  62
  63     void OwnRelease()
  64     {
  65         if ( m_pInterface )
  66         {
  67             T* pInterface = m_pInterface;
  68             m_pInterface = NULL;
  69             pInterface->Release();
  70         }
  71     }
  72
  73 public:
  74     ComSmart()
  75     : m_pInterface( NULL )
  76     {}
  77
  78     ComSmart( const ComSmart<T>& rObj )
  79     : m_pInterface( rObj.m_pInterface )
  80     {
  81         if ( m_pInterface != NULL )
  82             m_pInterface->AddRef();
  83     }
  84
  85     ComSmart( T* pInterface )
  86     : m_pInterface( pInterface )
  87     {
  88          if ( m_pInterface != NULL )
  89             m_pInterface->AddRef();
  90     }
  91
  92     ~ComSmart()
  93     {
  94         OwnRelease();
  95     }
  96
  97     ComSmart& operator=( const ComSmart<T>& rObj )
  98     {
  99         OwnRelease();
 100
 101         m_pInterface = rObj.m_pInterface;
 102
 103         if ( m_pInterface != NULL )
 104             m_pInterface->AddRef();
 105
 106         return *this;
 107     }
 108
 109     ComSmart<T>& operator=( T* pInterface )
 110     {
 111         OwnRelease();
 112
 113         m_pInterface = pInterface;
 114
 115         if ( m_pInterface != NULL )
 116             m_pInterface->AddRef();
 117
 118         return *this;
 119     }
 120
 121     operator T*() const
 122     {
 123         return m_pInterface;
 124     }
 125
 126     T& operator*() const
 127     {
 128         return *m_pInterface;
 129     }
 130
 131     T** operator&()
 132     {
 133         OwnRelease();
 134
 135         m_pInterface = NULL;
 136
 137         return &m_pInterface;
 138     }
 139
 140     T* operator->() const
 141     {
 142         return m_pInterface;
 143     }
 144
 145     BOOL operator==( const ComSmart<T>& rObj ) const
 146     {
 147         return ( m_pInterface == rObj.m_pInterface );
 148     }
 149
 150     BOOL operator!=( const ComSmart<T>& rObj ) const
 151     {
 152         return ( m_pInterface != rObj.m_pInterface );
 153     }
 154
 155     BOOL operator==( const T* pInterface ) const
 156     {
 157         return ( m_pInterface == pInterface );
 158     }
 159
 160     BOOL operator!=( const T* pInterface ) const
 161     {
 162         return ( m_pInterface != pInterface );
 163     }
 164 };
 165
 166 }
 167
 168 // ============ class ComSmart =====================
 169
 170 sal_Bool ConvertBufferToFormat( void* pBuf,
 171                                 sal_uInt32 nBufSize,
 172                                 const ::rtl::OUString& aFormatShortName,
 173                                 uno::Any& aResult );
 174
 175 ::rtl::OUString GetNewTempFileURL_Impl( const uno::Reference< lang::XMultiServiceFactory >& xFactory ) throw( io::IOException );
 176
 177 typedef ::std::vector< FORMATETC* > FormatEtcList;
 178
 179 FORMATETC pFormatTemplates[FORMATS_NUM] = {
 180                     { CF_ENHMETAFILE, NULL, 0, -1, TYMED_ENHMF },
 181                     { CF_METAFILEPICT, NULL, 0, -1, TYMED_MFPICT },
 182                     { CF_BITMAP, NULL, 0, -1, TYMED_GDI } };
 183
 184
 185 struct OleComponentNative_Impl {
 186     ComSmart< IUnknown > m_pObj;
 187     ComSmart< IOleObject > m_pOleObject;
 188     ComSmart< IViewObject2 > m_pViewObject2;
 189     ComSmart< IStorage > m_pIStorage;
 190     FormatEtcList m_aFormatsList;
 191     uno::Sequence< datatransfer::DataFlavor > m_aSupportedGraphFormats;
 192
 193     OleComponentNative_Impl()
 194     {
 195         // TODO: Extend format list
 196         m_aSupportedGraphFormats.realloc( 5 );
 197
 198         m_aSupportedGraphFormats[0] = datatransfer::DataFlavor(
 199             ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "application/x-openoffice-emf;windows_formatname=\"Image EMF\"" )),
 200             ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Windows Enhanced Metafile" )),
 201             getCppuType( (const uno::Sequence< sal_Int8 >*) 0 ) );
 202
 203         m_aSupportedGraphFormats[1] = datatransfer::DataFlavor(
 204             ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "application/x-openoffice-wmf;windows_formatname=\"Image WMF\"" )),
 205             ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Windows Metafile" )),
 206             getCppuType( (const uno::Sequence< sal_Int8 >*) 0 ) );
 207
 208         m_aSupportedGraphFormats[2] = datatransfer::DataFlavor(
 209             ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "application/x-openoffice-bitmap;windows_formatname=\"Bitmap\"" )),
 210             ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Bitmap" )),
 211             getCppuType( (const uno::Sequence< sal_Int8 >*) 0 ) );
 212
 213         m_aSupportedGraphFormats[3] = datatransfer::DataFlavor(
 214             ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "image/png" )),
 215             ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "PNG" )),
 216             getCppuType( (const uno::Sequence< sal_Int8 >*) 0 ) );
 217
 218         m_aSupportedGraphFormats[0] = datatransfer::DataFlavor(
 219             ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "application/x-openoffice-gdimetafile;windows_formatname=\"GDIMetaFile\"" )),
 220             ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "GDIMetafile" )),
 221             getCppuType( (const uno::Sequence< sal_Int8 >*) 0 ) );
 222     }
 223
 224     void AddSupportedFormat( const FORMATETC& aFormatEtc );
 225
 226     FORMATETC* GetSupportedFormatForAspect( sal_uInt32 nRequestedAspect );
 227
 228     sal_Bool ConvertDataForFlavor( const STGMEDIUM& aMedium,
 229                                     const datatransfer::DataFlavor& aFlavor,
 230                                     uno::Any& aResult );
 231
 232     sal_Bool GraphicalFlavor( const datatransfer::DataFlavor& aFlavor );
 233
 234     uno::Sequence< datatransfer::DataFlavor > GetFlavorsForAspects( sal_uInt32 nSupportedAspects );
 235 };
 236
 237 //----------------------------------------------
 238 DWORD GetAspectFromFlavor( const datatransfer::DataFlavor& aFlavor )
 239 {
 240     if ( aFlavor.MimeType.indexOf( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( ";Aspect=THUMBNAIL" )) ) != -1 )
 241         return DVASPECT_THUMBNAIL;
 242     else if ( aFlavor.MimeType.indexOf( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( ";Aspect=ICON" )) ) != -1 )
 243         return DVASPECT_ICON;
 244     else if ( aFlavor.MimeType.indexOf( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( ";Aspect=DOCPRINT" )) ) != -1 )
 245         return DVASPECT_DOCPRINT;
 246     else
 247         return DVASPECT_CONTENT;
 248 }
 249
 250 //----------------------------------------------
 251 ::rtl::OUString GetFlavorSuffixFromAspect( DWORD nAsp )
 252 {
 253     ::rtl::OUString aResult;
 254
 255     if ( nAsp == DVASPECT_THUMBNAIL )
 256         aResult = ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( ";Aspect=THUMBNAIL" ));
 257     else if ( nAsp == DVASPECT_ICON )
 258         aResult = ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( ";Aspect=ICON" ));
 259     else if ( nAsp == DVASPECT_DOCPRINT )
 260         aResult = ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( ";Aspect=DOCPRINT" ));
 261
 262     // no suffix for DVASPECT_CONTENT
 263
 264     return aResult;
 265 }
 266
 267 //----------------------------------------------
 268 HRESULT OpenIStorageFromURL_Impl( const ::rtl::OUString& aURL, IStorage** ppIStorage )
 269 {
 270     OSL_ENSURE( ppIStorage, "The pointer must not be empty!" );
 271
 272     ::rtl::OUString aFilePath;
 273     if ( !ppIStorage || ::osl::FileBase::getSystemPathFromFileURL( aURL, aFilePath ) != ::osl::FileBase::E_None )
 274         throw uno::RuntimeException(); // TODO: something dangerous happend
 275
 276     return StgOpenStorage( reinterpret_cast<LPCWSTR>(aFilePath.getStr()),
 277                              NULL,
 278                              STGM_READWRITE | STGM_TRANSACTED, // | STGM_DELETEONRELEASE,
 279                              NULL,
 280                              0,
 281                              ppIStorage );
 282 }
 283
 284 //----------------------------------------------
 285 sal_Bool OleComponentNative_Impl::ConvertDataForFlavor( const STGMEDIUM& aMedium,
 286                                                         const datatransfer::DataFlavor& aFlavor,
 287                                                         uno::Any& aResult )
 288 {
 289     sal_Bool bAnyIsReady = sal_False;
 290
 291     // try to convert data from Medium format to specified Flavor format
 292     if ( aFlavor.DataType == getCppuType( ( const uno::Sequence< sal_Int8 >* ) 0 ) )
 293     {
 294         // first the GDI-metafile must be generated
 295
 296         unsigned char* pBuf = NULL;
 297         sal_uInt32 nBufSize = 0;
 298         ::rtl::OUString aFormat;
 299
 300         if ( aMedium.tymed == TYMED_MFPICT ) // Win Metafile
 301         {
 302             aFormat = ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("image/x-wmf"));
 303             METAFILEPICT* pMF = ( METAFILEPICT* )GlobalLock( aMedium.hMetaFilePict );
 304             if ( pMF )
 305             {
 306                 nBufSize = GetMetaFileBitsEx( pMF->hMF, 0, NULL ) + 22;
 307                 pBuf = new unsigned char[nBufSize];
 308
 309
 310                 // TODO/LATER: the unit size must be calculated correctly
 311                 *( (long* )pBuf ) = 0x9ac6cdd7L;
 312                 *( (short* )( pBuf+6 )) = ( SHORT ) 0;
 313                 *( (short* )( pBuf+8 )) = ( SHORT ) 0;
 314                 *( (short* )( pBuf+10 )) = ( SHORT ) pMF->xExt;
 315                 *( (short* )( pBuf+12 )) = ( SHORT ) pMF->yExt;
 316                 *( (short* )( pBuf+14 )) = ( USHORT ) 2540;
 317
 318
 319                 if ( nBufSize && nBufSize == GetMetaFileBitsEx( pMF->hMF, nBufSize - 22, pBuf + 22 ) )
 320                 {
 321                     if ( aFlavor.MimeType.matchAsciiL( "application/x-openoffice-wmf;windows_formatname=\"Image WMF\"", 57 ) )
 322                     {
 323                         aResult <<= uno::Sequence< sal_Int8 >( ( sal_Int8* )pBuf, nBufSize );
 324                         bAnyIsReady = sal_True;
 325                     }
 326                 }
 327
 328                 GlobalUnlock( aMedium.hMetaFilePict );
 329             }
 330         }
 331         else if ( aMedium.tymed == TYMED_ENHMF ) // Enh Metafile
 332         {
 333             aFormat = ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("image/x-emf"));
 334             nBufSize = GetEnhMetaFileBits( aMedium.hEnhMetaFile, 0, NULL );
 335             pBuf = new unsigned char[nBufSize];
 336             if ( nBufSize && nBufSize == GetEnhMetaFileBits( aMedium.hEnhMetaFile, nBufSize, pBuf ) )
 337             {
 338                 if ( aFlavor.MimeType.matchAsciiL( "application/x-openoffice-emf;windows_formatname=\"Image EMF\"", 57 ) )
 339                 {
 340                     aResult <<= uno::Sequence< sal_Int8 >( ( sal_Int8* )pBuf, nBufSize );
 341                     bAnyIsReady = sal_True;
 342                 }
 343             }
 344         }
 345         else if ( aMedium.tymed == TYMED_GDI ) // Bitmap
 346         {
 347             aFormat = ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("image/x-MS-bmp"));
 348             nBufSize = GetBitmapBits( aMedium.hBitmap, 0, NULL );
 349             pBuf = new unsigned char[nBufSize];
 350             if ( nBufSize && nBufSize == sal::static_int_cast< ULONG >( GetBitmapBits( aMedium.hBitmap, nBufSize, pBuf ) ) )
 351             {
 352                 if ( aFlavor.MimeType.matchAsciiL( "application/x-openoffice-bitmap;windows_formatname=\"Bitmap\"", 54 ) )
 353                 {
 354                     aResult <<= uno::Sequence< sal_Int8 >( ( sal_Int8* )pBuf, nBufSize );
 355                     bAnyIsReady = sal_True;
 356                 }
 357             }
 358         }
 359
 360         if ( pBuf && !bAnyIsReady )
 361         {
 362             for ( sal_Int32 nInd = 0; nInd < m_aSupportedGraphFormats.getLength(); nInd++ )
 363                  if ( aFlavor.MimeType.match( m_aSupportedGraphFormats[nInd].MimeType )
 364                   && aFlavor.DataType == m_aSupportedGraphFormats[nInd].DataType
 365                   && aFlavor.DataType == getCppuType( (const uno::Sequence< sal_Int8 >*) 0 ) )
 366             {
 367                 bAnyIsReady = ConvertBufferToFormat( ( void* )pBuf, nBufSize, aFormat, aResult );
 368                 break;
 369             }
 370         }
 371
 372         delete[] pBuf;
 373     }
 374
 375     return bAnyIsReady;
 376 }
 377
 378 //----------------------------------------------
 379 sal_Bool OleComponentNative_Impl::GraphicalFlavor( const datatransfer::DataFlavor& aFlavor )
 380 {
 381     // Actually all the required graphical formats must be supported
 382     for ( sal_Int32 nInd = 0; nInd < m_aSupportedGraphFormats.getLength(); nInd++ )
 383          if ( aFlavor.MimeType.match( m_aSupportedGraphFormats[nInd].MimeType )
 384           && aFlavor.DataType == m_aSupportedGraphFormats[nInd].DataType )
 385             return sal_True;
 386
 387     return sal_False;
 388 }
 389
 390 //----------------------------------------------
 391 sal_Bool GetClassIDFromSequence_Impl( uno::Sequence< sal_Int8 > aSeq, CLSID& aResult )
 392 {
 393     if ( aSeq.getLength() == 16 )
 394     {
 395         aResult.Data1 = ( ( ( ( ( ( sal_uInt8 )aSeq[0] << 8 ) + ( sal_uInt8 )aSeq[1] ) << 8 ) + ( sal_uInt8 )aSeq[2] ) << 8 ) + ( sal_uInt8 )aSeq[3];
 396         aResult.Data2 = ( ( sal_uInt8 )aSeq[4] << 8 ) + ( sal_uInt8 )aSeq[5];
 397         aResult.Data3 = ( ( sal_uInt8 )aSeq[6] << 8 ) + ( sal_uInt8 )aSeq[7];
 398         for( int nInd = 0; nInd < 8; nInd++ )
 399             aResult.Data4[nInd] = ( sal_uInt8 )aSeq[nInd+8];
 400
 401         return sal_True;
 402     }
 403
 404     return sal_False;
 405 }
 406
 407 //----------------------------------------------
 408 ::rtl::OUString WinAccToVcl_Impl( const sal_Unicode* pStr )
 409 {
 410     ::rtl::OUString aResult;
 411
 412     if( pStr )
 413     {
 414         while ( *pStr )
 415         {
 416             if ( *pStr == '&' )
 417             {
 418                 aResult += ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "~" ));
 419                 while( *( ++pStr ) == '&' );
 420             }
 421             else
 422             {
 423                 aResult += ::rtl::OUString( pStr, 1 );
 424                 pStr++;
 425             }
 426         }
 427     }
 428
 429     return aResult;
 430 }
 431
 432 //----------------------------------------------
 433 OleComponent::OleComponent( const uno::Reference< lang::XMultiServiceFactory >& xFactory, OleEmbeddedObject* pUnoOleObject )
 434 : m_pInterfaceContainer( NULL )
 435 , m_bDisposed( sal_False )
 436 , m_bModified( sal_False )
 437 , m_pNativeImpl( new OleComponentNative_Impl() )
 438 , m_pUnoOleObject( pUnoOleObject )
 439 , m_pOleWrapClientSite( NULL )
 440 , m_pImplAdviseSink( NULL )
 441 , m_nOLEMiscFlags( 0 )
 442 , m_nAdvConn( 0 )
 443 , m_xFactory( xFactory )
 444 , m_bOleInitialized( sal_False )
 445 , m_bWorkaroundActive( sal_False )
 446 {
 447     OSL_ENSURE( m_pUnoOleObject, "No owner object is provided!" );
 448
 449     HRESULT hr = OleInitialize( NULL );
 450     OSL_ENSURE( hr == S_OK || hr == S_FALSE, "The ole can not be successfuly initialized\n" );
 451     if ( hr == S_OK || hr == S_FALSE )
 452         m_bOleInitialized = sal_True;
 453
 454     m_pOleWrapClientSite = new OleWrapperClientSite( ( OleComponent* )this );
 455     m_pOleWrapClientSite->AddRef();
 456
 457     m_pImplAdviseSink = new OleWrapperAdviseSink( ( OleComponent* )this );
 458     m_pImplAdviseSink->AddRef();
 459
 460 }
 461
 462 //----------------------------------------------
 463 OleComponent::~OleComponent()
 464 {
 465     OSL_ENSURE( !m_pOleWrapClientSite && !m_pImplAdviseSink && !m_pInterfaceContainer && !m_bOleInitialized,
 466                 "The object was not closed successfully! DISASTER is possible!" );
 467
 468     if ( m_pOleWrapClientSite || m_pImplAdviseSink || m_pInterfaceContainer || m_bOleInitialized )
 469     {
 470         ::osl::MutexGuard aGuard( m_aMutex );
 471         m_refCount++;
 472         try {
 473             Dispose();
 474         } catch( const uno::Exception& ) {}
 475     }
 476
 477     for ( FormatEtcList::iterator aIter = m_pNativeImpl->m_aFormatsList.begin();
 478           aIter != m_pNativeImpl->m_aFormatsList.end();
 479           ++aIter )
 480     {
 481         delete (*aIter);
 482         (*aIter) = NULL;
 483     }
 484     m_pNativeImpl->m_aFormatsList.clear();
 485
 486     delete m_pNativeImpl;
 487 }
 488
 489 //----------------------------------------------
 490 void OleComponentNative_Impl::AddSupportedFormat( const FORMATETC& aFormatEtc )
 491 {
 492     FORMATETC* pFormatToInsert = new FORMATETC( aFormatEtc );
 493     m_aFormatsList.push_back( pFormatToInsert );
 494 }
 495
 496 //----------------------------------------------
 497 FORMATETC* OleComponentNative_Impl::GetSupportedFormatForAspect( sal_uInt32 nRequestedAspect )
 498 {
 499     for ( FormatEtcList::iterator aIter = m_aFormatsList.begin();
 500           aIter != m_aFormatsList.end();
 501           ++aIter )
 502         if ( (*aIter) && (*aIter)->dwAspect == nRequestedAspect )
 503             return (*aIter);
 504
 505     return NULL;
 506 }
 507
 508 //----------------------------------------------
 509 void OleComponent::Dispose()
 510 {
 511     // the mutex must be locked before this method is called
 512     if ( m_bDisposed )
 513         return;
 514
 515     CloseObject();
 516
 517     if ( m_pOleWrapClientSite )
 518     {
 519         m_pOleWrapClientSite->disconnectOleComponent();
 520         m_pOleWrapClientSite->Release();
 521         m_pOleWrapClientSite = NULL;
 522     }
 523
 524     if ( m_pImplAdviseSink )
 525     {
 526         m_pImplAdviseSink->disconnectOleComponent();
 527         m_pImplAdviseSink->Release();
 528         m_pImplAdviseSink = NULL;
 529     }
 530
 531     if ( m_pInterfaceContainer )
 532     {
 533         lang::EventObject aEvent( static_cast< ::cppu::OWeakObject* >( this ) );
 534         m_pInterfaceContainer->disposeAndClear( aEvent );
 535
 536         delete m_pInterfaceContainer;
 537         m_pInterfaceContainer = NULL;
 538     }
 539
 540     if ( m_bOleInitialized )
 541     {
 542         // since the disposing can happen not only from main thread but also from a clipboard
 543         // the deinitialization might lead to a disaster, SO7 does not deinitialize OLE at all
 544         // so currently the same approach is selected as workaround
 545         // OleUninitialize();
 546         m_bOleInitialized = sal_False;
 547     }
 548
 549     m_bDisposed = sal_True;
 550 }
 551
 552 //----------------------------------------------
 553 void OleComponent::disconnectEmbeddedObject()
 554 {
 555     // must not be called from destructor of UNO OLE object!!!
 556     osl::MutexGuard aGuard( m_aMutex );
 557     m_pUnoOleObject = NULL;
 558 }
 559
 560 //----------------------------------------------
 561 void OleComponent::CreateNewIStorage_Impl()
 562 {
 563     // TODO: in future a global memory could be used instead of file.
 564
 565     // write the stream to the temporary file
 566     ::rtl::OUString aTempURL;
 567
 568     OSL_ENSURE( m_pUnoOleObject, "Unexpected object absence!" );
 569     if ( m_pUnoOleObject )
 570         aTempURL = m_pUnoOleObject->CreateTempURLEmpty_Impl();
 571     else
 572         aTempURL = GetNewTempFileURL_Impl( m_xFactory );
 573
 574     if ( !aTempURL.getLength() )
 575         throw uno::RuntimeException(); // TODO
 576
 577     // open an IStorage based on the temporary file
 578     ::rtl::OUString aTempFilePath;
 579     if ( ::osl::FileBase::getSystemPathFromFileURL( aTempURL, aTempFilePath ) != ::osl::FileBase::E_None )
 580         throw uno::RuntimeException(); // TODO: something dangerous happend
 581
 582     HRESULT hr = StgCreateDocfile( reinterpret_cast<LPCWSTR>(aTempFilePath.getStr()), STGM_CREATE | STGM_READWRITE | STGM_TRANSACTED | STGM_DELETEONRELEASE, 0, &m_pNativeImpl->m_pIStorage );
 583     if ( FAILED( hr ) || !m_pNativeImpl->m_pIStorage )
 584         throw io::IOException(); // TODO: transport error code?
 585 }
 586
 587 //----------------------------------------------
 588 uno::Sequence< datatransfer::DataFlavor > OleComponentNative_Impl::GetFlavorsForAspects( sal_uInt32 nSupportedAspects )
 589 {
 590     uno::Sequence< datatransfer::DataFlavor > aResult;
 591     for ( sal_uInt32 nAsp = 1; nAsp <= 8; nAsp *= 2 )
 592         if ( ( nSupportedAspects & nAsp ) == nAsp )
 593         {
 594             ::rtl::OUString aAspectSuffix = GetFlavorSuffixFromAspect( nAsp );
 595
 596             sal_Int32 nLength = aResult.getLength();
 597             aResult.realloc( nLength + m_aSupportedGraphFormats.getLength() );
 598
 599             for ( sal_Int32 nInd = 0; nInd < m_aSupportedGraphFormats.getLength(); nInd++ )
 600             {
 601                 aResult[nLength + nInd].MimeType = m_aSupportedGraphFormats[nInd].MimeType + aAspectSuffix;
 602                 aResult[nLength + nInd].HumanPresentableName = m_aSupportedGraphFormats[nInd].HumanPresentableName;
 603                 aResult[nLength + nInd].DataType = m_aSupportedGraphFormats[nInd].DataType;
 604             }
 605         }
 606
 607     return aResult;
 608 }
 609
 610 //----------------------------------------------
 611 void OleComponent::RetrieveObjectDataFlavors_Impl()
 612 {
 613     if ( !m_pNativeImpl->m_pOleObject )
 614         throw embed::WrongStateException(); // TODO: the object is in wrong state
 615
 616     if ( !m_aDataFlavors.getLength() )
 617     {
 618         ComSmart< IDataObject > pDataObject;
 619         HRESULT hr = m_pNativeImpl->m_pObj->QueryInterface( IID_IDataObject, (void**)&pDataObject );
 620         if ( SUCCEEDED( hr ) && pDataObject )
 621         {
 622             ComSmart< IEnumFORMATETC > pFormatEnum;
 623             hr = pDataObject->EnumFormatEtc( DATADIR_GET, &pFormatEnum );
 624             if ( SUCCEEDED( hr ) && pFormatEnum )
 625             {
 626                 FORMATETC pElem[ MAX_ENUM_ELE ];
 627                 ULONG nNum = 0;
 628
 629                 // if it is possible to retrieve at least one supported graphical format for an aspect
 630                 // this format can be converted to other supported formats
 631                 sal_uInt32 nSupportedAspects = 0;
 632                 do
 633                 {
 634                     HRESULT hr2 = pFormatEnum->Next( MAX_ENUM_ELE, pElem, &nNum );
 635                     if( hr2 == S_OK || hr2 == S_FALSE )
 636                     {
 637                         for( sal_uInt32 nInd = 0; nInd < FORMATS_NUM; nInd++ )
 638                             {
 639                             if ( pElem[nInd].cfFormat == pFormatTemplates[nInd].cfFormat
 640                               && pElem[nInd].tymed == pFormatTemplates[nInd].tymed )
 641                                 nSupportedAspects |= pElem[nInd].dwAspect;
 642                         }
 643                     }
 644                     else
 645                         break;
 646                 }
 647                 while( nNum == MAX_ENUM_ELE );
 648
 649                 m_aDataFlavors = m_pNativeImpl->GetFlavorsForAspects( nSupportedAspects );
 650             }
 651         }
 652
 653         if ( !m_aDataFlavors.getLength() )
 654         {
 655             // TODO:
 656             // for any reason the object could not provide this information
 657             // try to get access to the cached representation
 658         }
 659     }
 660 }
 661
 662 //----------------------------------------------
 663 sal_Bool OleComponent::InitializeObject_Impl()
 664 // There will be no static objects!
 665 {
 666     if ( !m_pNativeImpl->m_pObj )
 667         return sal_False;
 668
 669     // the linked object will be detected here
 670     ComSmart< IOleLink > pOleLink;
 671     HRESULT hr = m_pNativeImpl->m_pObj->QueryInterface( IID_IOleLink, (void**)&pOleLink );
 672     OSL_ENSURE( m_pUnoOleObject, "Unexpected object absence!" );
 673     if ( m_pUnoOleObject )
 674         m_pUnoOleObject->SetObjectIsLink_Impl( sal_Bool( pOleLink != NULL ) );
 675
 676
 677     hr = m_pNativeImpl->m_pObj->QueryInterface( IID_IViewObject2, (void**)&m_pNativeImpl->m_pViewObject2 );
 678     if ( FAILED( hr ) || !m_pNativeImpl->m_pViewObject2 )
 679         return sal_False;
 680
 681
 682     // remove all the caches
 683     IOleCache* pIOleCache = NULL;
 684     if ( SUCCEEDED( m_pNativeImpl->m_pObj->QueryInterface( IID_IOleCache, (void**)&pIOleCache ) ) && pIOleCache )
 685     {
 686         IEnumSTATDATA* pEnumSD = NULL;
 687         HRESULT hr2 = pIOleCache->EnumCache( &pEnumSD );
 688
 689         if ( SUCCEEDED( hr2 ) && pEnumSD )
 690         {
 691             pEnumSD->Reset();
 692             STATDATA aSD;
 693             DWORD nNum;
 694             while( SUCCEEDED( pEnumSD->Next( 1, &aSD, &nNum ) ) && nNum == 1 )
 695                 hr2 = pIOleCache->Uncache( aSD.dwConnection );
 696         }
 697
 698         // No IDataObject implementation, caching must be used instead
 699         DWORD nConn;
 700         FORMATETC aFormat = { 0, 0, DVASPECT_CONTENT, -1, TYMED_MFPICT };
 701         hr2 = pIOleCache->Cache( &aFormat, ADVFCACHE_ONSAVE, &nConn );
 702
 703         pIOleCache->Release();
 704         pIOleCache = NULL;
 705     }
 706
 707     hr = m_pNativeImpl->m_pObj->QueryInterface( IID_IOleObject, (void**)&m_pNativeImpl->m_pOleObject );
 708     if ( FAILED( hr ) || !m_pNativeImpl->m_pOleObject )
 709         return sal_False; // Static objects are not supported, they should be inserted as graphics
 710
 711     m_pNativeImpl->m_pOleObject->GetMiscStatus( DVASPECT_CONTENT, ( DWORD* )&m_nOLEMiscFlags );
 712     // TODO: use other misc flags also
 713     // the object should have drawable aspect even in case it supports only iconic representation
 714     // if ( m_nOLEMiscFlags & OLEMISC_ONLYICONIC )
 715
 716     m_pNativeImpl->m_pOleObject->SetClientSite( m_pOleWrapClientSite );
 717
 718     // the only need in this registration is workaround for close notification
 719     m_pNativeImpl->m_pOleObject->Advise( m_pImplAdviseSink, ( DWORD* )&m_nAdvConn );
 720     m_pNativeImpl->m_pViewObject2->SetAdvise( DVASPECT_CONTENT, 0, m_pImplAdviseSink );
 721
 722     OleSetContainedObject( m_pNativeImpl->m_pOleObject, TRUE );
 723
 724     return sal_True;
 725 }
 726
 727 //----------------------------------------------
 728 void OleComponent::LoadEmbeddedObject( const ::rtl::OUString& aTempURL )
 729 {
 730     if ( !aTempURL.getLength() )
 731         throw lang::IllegalArgumentException(); // TODO
 732
 733     if ( m_pNativeImpl->m_pIStorage )
 734         throw io::IOException(); // TODO the object is already initialized or wrong initialization is done
 735
 736     // open an IStorage based on the temporary file
 737     HRESULT hr = OpenIStorageFromURL_Impl( aTempURL, &m_pNativeImpl->m_pIStorage );
 738
 739     if ( FAILED( hr ) || !m_pNativeImpl->m_pIStorage )
 740         throw io::IOException(); // TODO: transport error code?
 741
 742     hr = OleLoad( m_pNativeImpl->m_pIStorage, IID_IUnknown, NULL, (void**)&m_pNativeImpl->m_pObj );
 743     if ( FAILED( hr ) || !m_pNativeImpl->m_pObj )
 744     {
 745         throw uno::RuntimeException();
 746     }
 747
 748     if ( !InitializeObject_Impl() )
 749         throw uno::RuntimeException(); // TODO
 750 }
 751
 752 //----------------------------------------------
 753 void OleComponent::CreateObjectFromClipboard()
 754 {
 755     if ( m_pNativeImpl->m_pIStorage )
 756         throw io::IOException(); // TODO:the object is already initialized
 757
 758     CreateNewIStorage_Impl();
 759     if ( !m_pNativeImpl->m_pIStorage )
 760         throw uno::RuntimeException(); // TODO
 761
 762     IDataObject * pDO = NULL;
 763     HRESULT hr = OleGetClipboard( &pDO );
 764     if( SUCCEEDED( hr ) && pDO )
 765     {
 766         hr = OleQueryCreateFromData( pDO );
 767         if( S_OK == GetScode( hr ) )
 768         {
 769             hr = OleCreateFromData( pDO,
 770                                     IID_IUnknown,
 771                                     OLERENDER_DRAW, // OLERENDER_FORMAT
 772                                     NULL,           // &aFormat,
 773                                     NULL,
 774                                     m_pNativeImpl->m_pIStorage,
 775                                     (void**)&m_pNativeImpl->m_pObj );
 776         }
 777         else
 778         {
 779             // Static objects are not supported
 780             pDO->Release();
 781         }
 782     }
 783
 784     if ( FAILED( hr ) || !m_pNativeImpl->m_pObj )
 785         throw uno::RuntimeException();
 786
 787     if ( !InitializeObject_Impl() )
 788         throw uno::RuntimeException(); // TODO
 789 }
 790
 791 //----------------------------------------------
 792 void OleComponent::CreateNewEmbeddedObject( const uno::Sequence< sal_Int8 >& aSeqCLSID )
 793 {
 794     CLSID aClsID;
 795
 796     if ( !GetClassIDFromSequence_Impl( aSeqCLSID, aClsID ) )
 797         throw lang::IllegalArgumentException(); // TODO
 798
 799     if ( m_pNativeImpl->m_pIStorage )
 800         throw io::IOException(); // TODO:the object is already initialized
 801
 802     CreateNewIStorage_Impl();
 803     if ( !m_pNativeImpl->m_pIStorage )
 804         throw uno::RuntimeException(); // TODO
 805
 806     // FORMATETC aFormat = { CF_METAFILEPICT, NULL, nAspect, -1, TYMED_MFPICT }; // for OLE..._DRAW should be NULL
 807
 808     HRESULT hr = OleCreate( aClsID,
 809                             IID_IUnknown,
 810                             OLERENDER_DRAW, // OLERENDER_FORMAT
 811                             NULL,           // &aFormat,
 812                             NULL,
 813                             m_pNativeImpl->m_pIStorage,
 814                             (void**)&m_pNativeImpl->m_pObj );
 815
 816     if ( FAILED( hr ) || !m_pNativeImpl->m_pObj )
 817         throw uno::RuntimeException(); // TODO
 818
 819     if ( !InitializeObject_Impl() )
 820         throw uno::RuntimeException(); // TODO
 821
 822     // TODO: getExtent???
 823 }
 824
 825 //----------------------------------------------
 826 void OleComponent::CreateObjectFromData( const uno::Reference< datatransfer::XTransferable >& )
 827 // Static objects are not supported, they should be inserted as graphics
 828 {
 829     // TODO: May be this call is useless since there are no static objects
 830     //       and nonstatic objects will be created based on OLEstorage ( stream ).
 831     //       ???
 832
 833     // OleQueryCreateFromData...
 834 }
 835
 836 //----------------------------------------------
 837 void OleComponent::CreateObjectFromFile( const ::rtl::OUString& aFileURL )
 838 {
 839     if ( m_pNativeImpl->m_pIStorage )
 840         throw io::IOException(); // TODO:the object is already initialized
 841
 842     CreateNewIStorage_Impl();
 843     if ( !m_pNativeImpl->m_pIStorage )
 844         throw uno::RuntimeException(); // TODO:
 845
 846     ::rtl::OUString aFilePath;
 847     if ( ::osl::FileBase::getSystemPathFromFileURL( aFileURL, aFilePath ) != ::osl::FileBase::E_None )
 848         throw uno::RuntimeException(); // TODO: something dangerous happend
 849
 850     HRESULT hr = OleCreateFromFile( CLSID_NULL,
 851                                     reinterpret_cast<LPCWSTR>(aFilePath.getStr()),
 852                                     IID_IUnknown,
 853                                     OLERENDER_DRAW, // OLERENDER_FORMAT
 854                                     NULL,
 855                                     NULL,
 856                                     m_pNativeImpl->m_pIStorage,
 857                                     (void**)&m_pNativeImpl->m_pObj );
 858
 859     if ( FAILED( hr ) || !m_pNativeImpl->m_pObj )
 860         throw uno::RuntimeException(); // TODO
 861
 862     if ( !InitializeObject_Impl() )
 863         throw uno::RuntimeException(); // TODO
 864 }
 865
 866 //----------------------------------------------
 867 void OleComponent::CreateLinkFromFile( const ::rtl::OUString& aFileURL )
 868 {
 869     if ( m_pNativeImpl->m_pIStorage )
 870         throw io::IOException(); // TODO:the object is already initialized
 871
 872     CreateNewIStorage_Impl();
 873     if ( !m_pNativeImpl->m_pIStorage )
 874         throw uno::RuntimeException(); // TODO:
 875
 876     ::rtl::OUString aFilePath;
 877     if ( ::osl::FileBase::getSystemPathFromFileURL( aFileURL, aFilePath ) != ::osl::FileBase::E_None )
 878         throw uno::RuntimeException(); // TODO: something dangerous happend
 879
 880     HRESULT hr = OleCreateLinkToFile( reinterpret_cast<LPCWSTR>(aFilePath.getStr()),
 881                                         IID_IUnknown,
 882                                         OLERENDER_DRAW, // OLERENDER_FORMAT
 883                                         NULL,
 884                                         NULL,
 885                                         m_pNativeImpl->m_pIStorage,
 886                                         (void**)&m_pNativeImpl->m_pObj );
 887
 888     if ( FAILED( hr ) || !m_pNativeImpl->m_pObj )
 889         throw uno::RuntimeException(); // TODO
 890
 891     if ( !InitializeObject_Impl() )
 892         throw uno::RuntimeException(); // TODO
 893 }
 894
 895 //----------------------------------------------
 896 void OleComponent::InitEmbeddedCopyOfLink( OleComponent* pOleLinkComponent )
 897 {
 898     if ( !pOleLinkComponent || !pOleLinkComponent->m_pNativeImpl->m_pObj )
 899         throw lang::IllegalArgumentException(); // TODO
 900
 901     if ( m_pNativeImpl->m_pIStorage )
 902         throw io::IOException(); // TODO:the object is already initialized
 903
 904     ComSmart< IDataObject > pDataObject;
 905     HRESULT hr = pOleLinkComponent->m_pNativeImpl->m_pObj->QueryInterface( IID_IDataObject, (void**)&pDataObject );
 906     if ( SUCCEEDED( hr ) && pDataObject && SUCCEEDED( OleQueryCreateFromData( pDataObject ) ) )
 907     {
 908         // the object must be already disconnected from the temporary URL
 909         CreateNewIStorage_Impl();
 910         if ( !m_pNativeImpl->m_pIStorage )
 911             throw uno::RuntimeException(); // TODO:
 912
 913         hr = OleCreateFromData( pDataObject,
 914                                 IID_IUnknown,
 915                                 OLERENDER_DRAW,
 916                                 NULL,
 917                                 NULL,
 918                                 m_pNativeImpl->m_pIStorage,
 919                                 (void**)&m_pNativeImpl->m_pObj );
 920     }
 921
 922     if ( !m_pNativeImpl->m_pObj )
 923     {
 924         ComSmart< IOleLink > pOleLink;
 925         hr = pOleLinkComponent->m_pNativeImpl->m_pObj->QueryInterface( IID_IOleLink, (void**)&pOleLink );
 926         if ( FAILED( hr ) || !pOleLink )
 927             throw io::IOException(); // TODO: the object doesn't support IOleLink
 928
 929         ComSmart< IMoniker > pMoniker;
 930         hr = pOleLink->GetSourceMoniker( &pMoniker );
 931         if ( FAILED( hr ) || !pMoniker )
 932             throw io::IOException(); // TODO: can not retrieve moniker
 933
 934         // In case of file moniker life is easy : )
 935         DWORD aMonType = 0;
 936         hr = pMoniker->IsSystemMoniker( &aMonType );
 937         if ( SUCCEEDED( hr ) && aMonType == MKSYS_FILEMONIKER )
 938         {
 939             ComSmart< IMalloc > pMalloc;
 940             CoGetMalloc( 1, &pMalloc ); // if fails there will be a memory leak
 941             OSL_ENSURE( pMalloc, "CoGetMalloc() failed!" );
 942
 943             LPOLESTR pOleStr = NULL;
 944             hr = pOleLink->GetSourceDisplayName( &pOleStr );
 945             if ( SUCCEEDED( hr ) && pOleStr )
 946             {
 947                 ::rtl::OUString aFilePath( ( sal_Unicode* )pOleStr );
 948                 if ( pMalloc )
 949                     pMalloc->Free( ( void* )pOleStr );
 950
 951                 hr = OleCreateFromFile( CLSID_NULL,
 952                                         reinterpret_cast<LPCWSTR>(aFilePath.getStr()),
 953                                         IID_IUnknown,
 954                                         OLERENDER_DRAW, // OLERENDER_FORMAT
 955                                         NULL,
 956                                         NULL,
 957                                         m_pNativeImpl->m_pIStorage,
 958                                         (void**)&m_pNativeImpl->m_pObj );
 959             }
 960         }
 961
 962         // in case of other moniker types the only way is to get storage
 963         if ( !m_pNativeImpl->m_pObj )
 964         {
 965             ComSmart< IBindCtx > pBindCtx;
 966             hr = CreateBindCtx( 0, ( LPBC FAR* )&pBindCtx );
 967             if ( SUCCEEDED( hr ) && pBindCtx )
 968             {
 969                 ComSmart< IStorage > pObjectStorage;
 970                 hr = pMoniker->BindToStorage( pBindCtx, NULL, IID_IStorage, (void**)&pObjectStorage );
 971                 if ( SUCCEEDED( hr ) && pObjectStorage )
 972                 {
 973                     hr = pObjectStorage->CopyTo( 0, NULL, NULL, m_pNativeImpl->m_pIStorage );
 974                     if ( SUCCEEDED( hr ) )
 975                         hr = OleLoad( m_pNativeImpl->m_pIStorage, IID_IUnknown, NULL, (void**)&m_pNativeImpl->m_pObj );
 976                 }
 977             }
 978         }
 979     }
 980
 981     // If object could not be created the only way is to use graphical representation
 982     if ( FAILED( hr ) || !m_pNativeImpl->m_pObj )
 983         throw uno::RuntimeException(); // TODO
 984
 985     if ( !InitializeObject_Impl() )
 986         throw uno::RuntimeException(); // TODO
 987 }
 988
 989 //----------------------------------------------
 990 void OleComponent::RunObject()
 991 {
 992     OSL_ENSURE( m_pNativeImpl->m_pOleObject, "The pointer can not be set to NULL here!\n" );
 993     if ( !m_pNativeImpl->m_pOleObject )
 994         throw embed::WrongStateException(); // TODO: the object is in wrong state
 995
 996     if ( !OleIsRunning( m_pNativeImpl->m_pOleObject ) )
 997     {
 998         HRESULT hr = S_OK;
 999         try
1000         {
1001             hr = OleRun( m_pNativeImpl->m_pObj );
1002         }
1003         catch( ... )
1004         {
1005             int i = 0;
1006             i++;
1007         }
1008
1009         if ( FAILED( hr ) )
1010         {
1011             if ( hr == REGDB_E_CLASSNOTREG )
1012                 throw embed::UnreachableStateException(); // the object server is not installed
1013             else
1014                 throw io::IOException();
1015         }
1016     }
1017 }
1018
1019 //----------------------------------------------
1020 awt::Size OleComponent::CalculateWithFactor( const awt::Size& aSize,
1021                                             const awt::Size& aMultiplier,
1022                                             const awt::Size& aDivisor )
1023 {
1024     awt::Size aResult;
1025
1026     sal_Int64 nWidth = (sal_Int64)aSize.Width * (sal_Int64)aMultiplier.Width / (sal_Int64)aDivisor.Width;
1027     sal_Int64 nHeight = (sal_Int64)aSize.Height * (sal_Int64)aMultiplier.Height / (sal_Int64)aDivisor.Height;
1028     OSL_ENSURE( nWidth < SAL_MAX_INT32 && nWidth > SAL_MIN_INT32
1029              && nHeight < SAL_MAX_INT32 && nHeight > SAL_MIN_INT32,
1030              "Unacceptable result size!" );
1031
1032     aResult.Width = (sal_Int32)nWidth;
1033     aResult.Height = (sal_Int32)nHeight;
1034
1035     return aResult;
1036 }
1037
1038 //----------------------------------------------
1039 void OleComponent::CloseObject()
1040 {
1041     if ( m_pNativeImpl->m_pOleObject && OleIsRunning( m_pNativeImpl->m_pOleObject ) )
1042         m_pNativeImpl->m_pOleObject->Close( OLECLOSE_NOSAVE ); // must be saved before
1043 }
1044
1045 //----------------------------------------------
1046 uno::Sequence< embed::VerbDescriptor > OleComponent::GetVerbList()
1047 {
1048     if ( !m_pNativeImpl->m_pOleObject )
1049         throw embed::WrongStateException(); // TODO: the object is in wrong state
1050
1051     if( !m_aVerbList.getLength() )
1052     {
1053         ComSmart< IEnumOLEVERB > pEnum;
1054         if( SUCCEEDED( m_pNativeImpl->m_pOleObject->EnumVerbs( &pEnum ) ) )
1055         {
1056             OLEVERB     szEle[ MAX_ENUM_ELE ];
1057             ULONG       nNum = 0;
1058             sal_Int32   nSeqSize = 0;
1059
1060             do
1061             {
1062                 HRESULT hr = pEnum->Next( MAX_ENUM_ELE, szEle, &nNum );
1063                 if( hr == S_OK || hr == S_FALSE )
1064                 {
1065                     m_aVerbList.realloc( nSeqSize += nNum );
1066                     for( sal_uInt32 nInd = 0; nInd < nNum; nInd++ )
1067                     {
1068                         m_aVerbList[nSeqSize-nNum+nInd].VerbID = szEle[ nInd ].lVerb;
1069                         m_aVerbList[nSeqSize-nNum+nInd].VerbName = WinAccToVcl_Impl( reinterpret_cast<const sal_Unicode*>(szEle[ nInd ].lpszVerbName) );
1070                         m_aVerbList[nSeqSize-nNum+nInd].VerbFlags = szEle[ nInd ].fuFlags;
1071                         m_aVerbList[nSeqSize-nNum+nInd].VerbAttributes = szEle[ nInd ].grfAttribs;
1072                     }
1073                 }
1074                 else
1075                     break;
1076             }
1077             while( nNum == MAX_ENUM_ELE );
1078         }
1079     }
1080
1081     return m_aVerbList;
1082 }
1083
1084 //----------------------------------------------
1085 void OleComponent::ExecuteVerb( sal_Int32 nVerbID )
1086 {
1087     if ( !m_pNativeImpl->m_pOleObject )
1088         throw embed::WrongStateException(); // TODO
1089
1090     HRESULT hr = OleRun( m_pNativeImpl->m_pOleObject );
1091     if ( FAILED( hr ) )
1092         throw io::IOException(); // TODO: a specific exception that transport error code can be thrown here
1093
1094     // TODO: probably extents should be set here and stored in aRect
1095     // TODO: probably the parent window also should be set
1096     hr = m_pNativeImpl->m_pOleObject->DoVerb( nVerbID, NULL, m_pOleWrapClientSite, 0, NULL, NULL );
1097
1098     if ( FAILED( hr ) )
1099         throw io::IOException(); // TODO
1100
1101     // TODO/LATER: the real names should be used here
1102     m_pNativeImpl->m_pOleObject->SetHostNames( L"app name", L"untitled" );
1103 }
1104
1105 //----------------------------------------------
1106 void OleComponent::SetHostName( const ::rtl::OUString&,
1107                                 const ::rtl::OUString& )
1108 {
1109     if ( !m_pNativeImpl->m_pOleObject )
1110         throw embed::WrongStateException(); // TODO: the object is in wrong state
1111
1112     // TODO: use aContName and aEmbDocName in m_pNativeImpl->m_pOleObject->SetHostNames()
1113 }
1114
1115 //----------------------------------------------
1116 void OleComponent::SetExtent( const awt::Size& aVisAreaSize, sal_Int64 nAspect )
1117 {
1118     if ( !m_pNativeImpl->m_pOleObject )
1119         throw embed::WrongStateException(); // TODO: the object is in wrong state
1120
1121     DWORD nMSAspect = ( DWORD )nAspect; // first 32 bits are for MS aspects
1122
1123     SIZEL aSize = { aVisAreaSize.Width, aVisAreaSize.Height };
1124     HRESULT hr = m_pNativeImpl->m_pOleObject->SetExtent( nMSAspect, &aSize );
1125
1126     if ( FAILED( hr ) )
1127     {
1128         // TODO/LATER: is it correct? In future user code probably should be ready for the exception.
1129         // if the object is running but not activated, RPC_E_SERVER_DIED error code is returned by OLE package
1130         // in this case just do nothing
1131         // Also Visio returns E_FAIL on resize if it is in running state
1132         // if ( hr != RPC_E_SERVER_DIED )
1133         throw io::IOException(); // TODO
1134     }
1135 }
1136
1137 //----------------------------------------------
1138 awt::Size OleComponent::GetExtent( sal_Int64 nAspect )
1139 {
1140     if ( !m_pNativeImpl->m_pOleObject )
1141         throw embed::WrongStateException(); // TODO: the object is in wrong state
1142
1143     DWORD nMSAspect = ( DWORD )nAspect; // first 32 bits are for MS aspects
1144     awt::Size aSize;
1145     sal_Bool bGotSize = sal_False;
1146
1147     if ( nMSAspect == DVASPECT_CONTENT )
1148     {
1149         // Try to get the size from the replacement image first
1150         ComSmart< IDataObject > pDataObject;
1151         HRESULT hr = m_pNativeImpl->m_pObj->QueryInterface( IID_IDataObject, (void**)&pDataObject );
1152         if ( SUCCEEDED( hr ) || pDataObject )
1153         {
1154             STGMEDIUM aMedium;
1155             FORMATETC aFormat = pFormatTemplates[1]; // use windows metafile format
1156             aFormat.dwAspect = nMSAspect;
1157
1158             hr = pDataObject->GetData( &aFormat, &aMedium );
1159             if ( SUCCEEDED( hr ) && aMedium.tymed == TYMED_MFPICT ) // Win Metafile
1160             {
1161                 METAFILEPICT* pMF = ( METAFILEPICT* )GlobalLock( aMedium.hMetaFilePict );
1162                 if ( pMF )
1163                 {
1164                     // the object uses 0.01 mm as unit, so the metafile size should be converted to object unit
1165                     sal_Int64 nMult = 1;
1166                     sal_Int64 nDiv = 1;
1167                     switch( pMF->mm )
1168                     {
1169                         case MM_HIENGLISH:
1170                             nMult = 254;
1171                             nDiv = 100;
1172                             break;
1173
1174                         case MM_LOENGLISH:
1175                             nMult = 254;
1176                             nDiv = 10;
1177                             break;
1178
1179                         case MM_LOMETRIC:
1180                             nMult = 10;
1181                             break;
1182
1183                         case MM_TWIPS:
1184                             nMult = 254;
1185                             nDiv = 144;
1186                             break;
1187
1188                         case MM_ISOTROPIC:
1189                         case MM_ANISOTROPIC:
1190                         case MM_HIMETRIC:
1191                             // do nothing
1192                             break;
1193                     }
1194
1195                     sal_Int64 nX = ( (sal_Int64)abs( pMF->xExt ) ) * nMult / nDiv;
1196                     sal_Int64 nY = ( (sal_Int64)abs( pMF->yExt ) ) * nMult / nDiv;
1197                     if (  nX < SAL_MAX_INT32 && nY < SAL_MAX_INT32 )
1198                     {
1199                         aSize.Width = ( sal_Int32 )nX;
1200                         aSize.Height = ( sal_Int32 )nY;
1201                         bGotSize = sal_True;
1202                     }
1203                     else
1204                         OSL_FAIL( "Unexpected size is provided!" );
1205                 }
1206             }
1207         }
1208     }
1209
1210     if ( !bGotSize )
1211         throw lang::IllegalArgumentException();
1212
1213     return aSize;
1214 }
1215
1216 //----------------------------------------------
1217 awt::Size OleComponent::GetCachedExtent( sal_Int64 nAspect )
1218 {
1219     if ( !m_pNativeImpl->m_pOleObject )
1220         throw embed::WrongStateException(); // TODO: the object is in wrong state
1221
1222     DWORD nMSAspect = ( DWORD )nAspect; // first 32 bits are for MS aspects
1223     SIZEL aSize;
1224
1225     HRESULT hr = m_pNativeImpl->m_pViewObject2->GetExtent( nMSAspect, -1, NULL, &aSize );
1226
1227     if ( FAILED( hr ) )
1228     {
1229         // TODO/LATER: is it correct?
1230         // if there is no appropriate cache for the aspect, OLE_E_BLANK error code is returned
1231         // if ( hr == OLE_E_BLANK )
1232         //  throw lang::IllegalArgumentException();
1233         //else
1234         //  throw io::IOException(); // TODO
1235
1236         throw lang::IllegalArgumentException();
1237     }
1238
1239     return awt::Size( aSize.cx, aSize.cy );
1240 }
1241
1242 //----------------------------------------------
1243 awt::Size OleComponent::GetReccomendedExtent( sal_Int64 nAspect )
1244 {
1245     if ( !m_pNativeImpl->m_pOleObject )
1246         throw embed::WrongStateException(); // TODO: the object is in wrong state
1247
1248     DWORD nMSAspect = ( DWORD )nAspect; // first 32 bits are for MS aspects
1249     SIZEL aSize;
1250     HRESULT hr = m_pNativeImpl->m_pOleObject->GetExtent( nMSAspect, &aSize );
1251     if ( FAILED( hr ) )
1252         throw lang::IllegalArgumentException();
1253
1254     return awt::Size( aSize.cx, aSize.cy );
1255 }
1256
1257 //----------------------------------------------
1258 sal_Int64 OleComponent::GetMiscStatus( sal_Int64 nAspect )
1259 {
1260     if ( !m_pNativeImpl->m_pOleObject )
1261         throw embed::WrongStateException(); // TODO: the object is in wrong state
1262
1263     sal_uInt32 nResult;
1264     m_pNativeImpl->m_pOleObject->GetMiscStatus( ( DWORD )nAspect, ( DWORD* )&nResult );
1265     return ( sal_Int64 )nResult; // first 32 bits are for MS flags
1266 }
1267
1268 //----------------------------------------------
1269 uno::Sequence< sal_Int8 > OleComponent::GetCLSID()
1270 {
1271     if ( !m_pNativeImpl->m_pOleObject )
1272         throw embed::WrongStateException(); // TODO: the object is in wrong state
1273
1274     GUID aCLSID;
1275     HRESULT hr = m_pNativeImpl->m_pOleObject->GetUserClassID( &aCLSID );
1276     if ( FAILED( hr ) )
1277         throw io::IOException(); // TODO:
1278
1279     return  MimeConfigurationHelper::GetSequenceClassID( aCLSID.Data1, aCLSID.Data2, aCLSID.Data3,
1280                                 aCLSID.Data4[0], aCLSID.Data4[1],
1281                                 aCLSID.Data4[2], aCLSID.Data4[3],
1282                                 aCLSID.Data4[4], aCLSID.Data4[5],
1283                                 aCLSID.Data4[6], aCLSID.Data4[7] );
1284 }
1285
1286 //----------------------------------------------
1287 sal_Bool OleComponent::IsDirty()
1288 {
1289     if ( !m_pNativeImpl->m_pOleObject )
1290         throw embed::WrongStateException(); // TODO: the object is in wrong state
1291
1292     if ( IsWorkaroundActive() )
1293         return sal_True;
1294
1295     ComSmart< IPersistStorage > pPersistStorage;
1296     HRESULT hr = m_pNativeImpl->m_pObj->QueryInterface( IID_IPersistStorage, (void**)&pPersistStorage );
1297     if ( FAILED( hr ) || !pPersistStorage )
1298         throw io::IOException(); // TODO
1299
1300     hr = pPersistStorage->IsDirty();
1301     return ( hr != S_FALSE );
1302 }
1303
1304 //----------------------------------------------
1305 void OleComponent::StoreOwnTmpIfNecessary()
1306 {
1307     if ( !m_pNativeImpl->m_pOleObject )
1308         throw embed::WrongStateException(); // TODO: the object is in wrong state
1309
1310     ComSmart< IPersistStorage > pPersistStorage;
1311     HRESULT hr = m_pNativeImpl->m_pObj->QueryInterface( IID_IPersistStorage, (void**)&pPersistStorage );
1312     if ( FAILED( hr ) || !pPersistStorage )
1313         throw io::IOException(); // TODO
1314
1315     if ( m_bWorkaroundActive || pPersistStorage->IsDirty() != S_FALSE )
1316     {
1317         hr = OleSave( pPersistStorage, m_pNativeImpl->m_pIStorage, TRUE );
1318         if ( FAILED( hr ) )
1319         {
1320             // Till now was required only for AcrobatReader7.0.8
1321             GUID aCLSID;
1322             hr = m_pNativeImpl->m_pOleObject->GetUserClassID( &aCLSID );
1323             if ( FAILED( hr ) )
1324                 throw io::IOException(); // TODO
1325
1326             hr = WriteClassStg( m_pNativeImpl->m_pIStorage, aCLSID );
1327             if ( FAILED( hr ) )
1328                 throw io::IOException(); // TODO
1329
1330             // the result of the following call is not checked because some objects, for example AcrobatReader7.0.8
1331             // return error even in case the saving was done correctly
1332             hr = pPersistStorage->Save( m_pNativeImpl->m_pIStorage, TRUE );
1333
1334             // another workaround for AcrobatReader7.0.8 object, this object might think that it is not changed
1335             // when it has been created from file, although it must be saved
1336             m_bWorkaroundActive = sal_True;
1337         }
1338
1339         hr = m_pNativeImpl->m_pIStorage->Commit( STGC_DEFAULT );
1340         if ( FAILED( hr ) )
1341             throw io::IOException(); // TODO
1342
1343         hr = pPersistStorage->SaveCompleted( NULL );
1344         if ( FAILED( hr ) && hr != E_UNEXPECTED )
1345             throw io::IOException(); // TODO
1346
1347     }
1348 }
1349
1350 //----------------------------------------------
1351 sal_Bool OleComponent::SaveObject_Impl()
1352 {
1353     sal_Bool bResult = sal_False;
1354     OleEmbeddedObject* pLockObject = NULL;
1355
1356     {
1357         osl::MutexGuard aGuard( m_aMutex );
1358         if ( m_pUnoOleObject )
1359         {
1360             pLockObject = m_pUnoOleObject;
1361             pLockObject->acquire();
1362         }
1363     }
1364
1365     if ( pLockObject )
1366     {
1367         bResult = pLockObject->SaveObject_Impl();
1368         pLockObject->release();
1369     }
1370
1371     return bResult;
1372 }
1373
1374 //----------------------------------------------
1375 sal_Bool OleComponent::OnShowWindow_Impl( bool bShow )
1376 {
1377     sal_Bool bResult = sal_False;
1378     OleEmbeddedObject* pLockObject = NULL;
1379
1380     {
1381         osl::MutexGuard aGuard( m_aMutex );
1382
1383         if ( m_pUnoOleObject )
1384         {
1385             pLockObject = m_pUnoOleObject;
1386             pLockObject->acquire();
1387         }
1388     }
1389
1390     if ( pLockObject )
1391     {
1392         bResult = pLockObject->OnShowWindow_Impl( bShow );
1393         pLockObject->release();
1394     }
1395
1396     return bResult;
1397 }
1398
1399 //----------------------------------------------
1400 void OleComponent::OnViewChange_Impl( sal_uInt32 dwAspect )
1401 {
1402     // TODO: check if it is enough or may be saving notifications are required for Visio2000
1403     ::rtl::Reference< OleEmbeddedObject > xLockObject;
1404
1405     {
1406         osl::MutexGuard aGuard( m_aMutex );
1407         if ( m_pUnoOleObject )
1408             xLockObject = m_pUnoOleObject;
1409     }
1410
1411     if ( xLockObject.is() )
1412     {
1413         uno::Reference < awt::XRequestCallback > xRequestCallback(
1414             m_xFactory->createInstance(
1415              ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("com.sun.star.awt.AsyncCallback") )),
1416              uno::UNO_QUERY );
1417         xRequestCallback->addCallback( new MainThreadNotificationRequest( xLockObject, OLECOMP_ONVIEWCHANGE, dwAspect ), uno::Any() );
1418     }
1419 }
1420
1421 //----------------------------------------------
1422 void OleComponent::OnClose_Impl()
1423 {
1424     ::rtl::Reference< OleEmbeddedObject > xLockObject;
1425
1426     {
1427         osl::MutexGuard aGuard( m_aMutex );
1428         if ( m_pUnoOleObject )
1429             xLockObject = m_pUnoOleObject;
1430     }
1431
1432     if ( xLockObject.is() )
1433     {
1434         uno::Reference < awt::XRequestCallback > xRequestCallback(
1435             m_xFactory->createInstance(
1436              ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("com.sun.star.awt.AsyncCallback") )),
1437              uno::UNO_QUERY );
1438         xRequestCallback->addCallback( new MainThreadNotificationRequest( xLockObject, OLECOMP_ONCLOSE ), uno::Any() );
1439     }
1440 }
1441
1442 // XCloseable
1443 //----------------------------------------------
1444 void SAL_CALL OleComponent::close( sal_Bool bDeliverOwnership )
1445     throw ( util::CloseVetoException,
1446             uno::RuntimeException )
1447 {
1448     ::osl::MutexGuard aGuard( m_aMutex );
1449     if ( m_bDisposed )
1450         throw lang::DisposedException(); // TODO
1451
1452     uno::Reference< uno::XInterface > xSelfHold( static_cast< ::cppu::OWeakObject* >( this ) );
1453     lang::EventObject aSource( static_cast< ::cppu::OWeakObject* >( this ) );
1454
1455     if ( m_pInterfaceContainer )
1456     {
1457         ::cppu::OInterfaceContainerHelper* pContainer =
1458             m_pInterfaceContainer->getContainer( ::getCppuType( ( const uno::Reference< util::XCloseListener >* ) NULL ) );
1459         if ( pContainer != NULL )
1460         {
1461             ::cppu::OInterfaceIteratorHelper pIterator( *pContainer );
1462             while ( pIterator.hasMoreElements() )
1463             {
1464                 try
1465                 {
1466                     ( (util::XCloseListener* )pIterator.next() )->queryClosing( aSource, bDeliverOwnership );
1467                 }
1468                 catch( const uno::RuntimeException& )
1469                 {
1470                     pIterator.remove();
1471                 }
1472             }
1473         }
1474
1475         pContainer = m_pInterfaceContainer->getContainer(
1476                                     ::getCppuType( ( const uno::Reference< util::XCloseListener >* ) NULL ) );
1477         if ( pContainer != NULL )
1478         {
1479             ::cppu::OInterfaceIteratorHelper pCloseIterator( *pContainer );
1480             while ( pCloseIterator.hasMoreElements() )
1481             {
1482                 try
1483                 {
1484                     ( (util::XCloseListener* )pCloseIterator.next() )->notifyClosing( aSource );
1485                 }
1486                 catch( const uno::RuntimeException& )
1487                 {
1488                     pCloseIterator.remove();
1489                 }
1490             }
1491         }
1492     }
1493
1494     Dispose();
1495 }
1496
1497 //----------------------------------------------
1498 void SAL_CALL OleComponent::addCloseListener( const uno::Reference< util::XCloseListener >& xListener )
1499     throw ( uno::RuntimeException )
1500 {
1501     ::osl::MutexGuard aGuard( m_aMutex );
1502     if ( m_bDisposed )
1503         throw lang::DisposedException(); // TODO
1504
1505     if ( !m_pInterfaceContainer )
1506         m_pInterfaceContainer = new ::cppu::OMultiTypeInterfaceContainerHelper( m_aMutex );
1507
1508     m_pInterfaceContainer->addInterface( ::getCppuType( ( const uno::Reference< util::XCloseListener >* )0 ), xListener );
1509 }
1510
1511 //----------------------------------------------
1512 void SAL_CALL OleComponent::removeCloseListener( const uno::Reference< util::XCloseListener >& xListener )
1513     throw ( uno::RuntimeException )
1514 {
1515     ::osl::MutexGuard aGuard( m_aMutex );
1516     if ( m_bDisposed )
1517         throw lang::DisposedException(); // TODO
1518
1519     if ( m_pInterfaceContainer )
1520         m_pInterfaceContainer->removeInterface( ::getCppuType( ( const uno::Reference< util::XCloseListener >* )0 ),
1521                                                 xListener );
1522 }
1523
1524 // XTransferable
1525 //----------------------------------------------
1526 uno::Any SAL_CALL OleComponent::getTransferData( const datatransfer::DataFlavor& aFlavor )
1527     throw ( datatransfer::UnsupportedFlavorException,
1528             io::IOException,
1529             uno::RuntimeException )
1530 {
1531     ::osl::MutexGuard aGuard( m_aMutex );
1532     if ( m_bDisposed )
1533         throw lang::DisposedException(); // TODO
1534
1535     if ( !m_pNativeImpl->m_pOleObject )
1536         throw embed::WrongStateException(); // TODO: the object is in wrong state
1537
1538     uno::Any aResult;
1539     sal_Bool bSupportedFlavor = sal_False;
1540
1541     if ( m_pNativeImpl->GraphicalFlavor( aFlavor ) )
1542     {
1543         DWORD nRequestedAspect = GetAspectFromFlavor( aFlavor );
1544         // if own icon is set and icon aspect is requested the own icon can be returned directly
1545
1546         ComSmart< IDataObject > pDataObject;
1547         HRESULT hr = m_pNativeImpl->m_pObj->QueryInterface( IID_IDataObject, (void**)&pDataObject );
1548         if ( FAILED( hr ) || !pDataObject )
1549             throw io::IOException(); // TODO: transport error code
1550
1551         // The following optimization does not make much sence currently just because
1552         // only one aspect is supported, and only three formats for the aspect are supported
1553         // and moreover it is not guarantied that the once returned format will be supported further
1554         // example - i52106
1555         // TODO/LATER: bring the optimization back when other aspects are supported
1556
1557         // FORMATETC* pFormatEtc = m_pNativeImpl->GetSupportedFormatForAspect( nRequestedAspect );
1558         // if ( pFormatEtc )
1559         // {
1560         //  STGMEDIUM aMedium;
1561         //  hr = pDataObject->GetData( pFormatEtc, &aMedium );
1562         //  if ( SUCCEEDED( hr ) )
1563         //      bSupportedFlavor = m_pNativeImpl->ConvertDataForFlavor( aMedium, aFlavor, aResult );
1564         // }
1565         // else
1566         {
1567             // the supported format of the application is still not found, find one
1568             for ( sal_Int32 nInd = 0; nInd < FORMATS_NUM; nInd++ )
1569             {
1570                 STGMEDIUM aMedium;
1571                 FORMATETC aFormat = pFormatTemplates[nInd];
1572                 aFormat.dwAspect = nRequestedAspect;
1573
1574                 hr = pDataObject->GetData( &aFormat, &aMedium );
1575                 if ( SUCCEEDED( hr ) )
1576                 {
1577                     bSupportedFlavor = m_pNativeImpl->ConvertDataForFlavor( aMedium, aFlavor, aResult );
1578                     if ( bSupportedFlavor )
1579                     {
1580                         // TODO/LATER: bring the optimization back when other aspects are supported
1581                         // m_pNativeImpl->AddSupportedFormat( aFormat );
1582                         break;
1583                     }
1584                 }
1585             }
1586         }
1587
1588         // If the replacement could not be retrieved, the cached representaion should be used
1589         // currently it is not necessary to retrieve it here, so it is implemented in the object itself
1590     }
1591     // TODO: Investigate if there is already the format name
1592     //       and whether this format is really required
1593     else if ( aFlavor.DataType == getCppuType( ( const uno::Reference< io::XInputStream >* ) 0 )
1594             && aFlavor.MimeType == "application/x-openoffice-contentstream" )
1595     {
1596         // allow to retrieve stream-representation of the object persistence
1597         bSupportedFlavor = sal_True;
1598         uno::Reference < io::XStream > xTempFileStream(
1599             m_xFactory->createInstance( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.io.TempFile" ) )),
1600             uno::UNO_QUERY );
1601
1602         if ( !xTempFileStream.is() )
1603             throw uno::RuntimeException(); // TODO
1604
1605         uno::Reference< io::XOutputStream > xTempOutStream = xTempFileStream->getOutputStream();
1606         uno::Reference< io::XInputStream > xTempInStream = xTempFileStream->getInputStream();
1607         if ( xTempOutStream.is() && xTempInStream.is() )
1608         {
1609             OSL_ENSURE( m_pUnoOleObject, "Unexpected object absence!" );
1610             if ( !m_pUnoOleObject )
1611             throw uno::RuntimeException();
1612
1613             m_pUnoOleObject->StoreObjectToStream( xTempOutStream );
1614
1615             xTempOutStream->closeOutput();
1616             xTempOutStream = uno::Reference< io::XOutputStream >();
1617         }
1618         else
1619             throw io::IOException(); // TODO:
1620
1621         aResult <<= xTempInStream;
1622     }
1623
1624     if ( !bSupportedFlavor )
1625         throw datatransfer::UnsupportedFlavorException();
1626
1627     return aResult;
1628 }
1629
1630 //----------------------------------------------
1631 uno::Sequence< datatransfer::DataFlavor > SAL_CALL OleComponent::getTransferDataFlavors()
1632     throw ( uno::RuntimeException )
1633 {
1634     ::osl::MutexGuard aGuard( m_aMutex );
1635     if ( m_bDisposed )
1636         throw lang::DisposedException(); // TODO
1637
1638     if ( !m_pNativeImpl->m_pOleObject )
1639         throw embed::WrongStateException(); // TODO: the object is in wrong state
1640
1641     RetrieveObjectDataFlavors_Impl();
1642
1643     return m_aDataFlavors;
1644 }
1645
1646 //----------------------------------------------
1647 sal_Bool SAL_CALL OleComponent::isDataFlavorSupported( const datatransfer::DataFlavor& aFlavor )
1648     throw ( uno::RuntimeException )
1649 {
1650     ::osl::MutexGuard aGuard( m_aMutex );
1651     if ( m_bDisposed )
1652         throw lang::DisposedException(); // TODO
1653
1654     if ( !m_pNativeImpl->m_pOleObject )
1655         throw embed::WrongStateException(); // TODO: the object is in wrong state
1656
1657     if ( !m_aDataFlavors.getLength() )
1658     {
1659         RetrieveObjectDataFlavors_Impl();
1660     }
1661
1662     for ( sal_Int32 nInd = 0; nInd < m_aDataFlavors.getLength(); nInd++ )
1663         if ( m_aDataFlavors[nInd].MimeType.equals( aFlavor.MimeType ) && m_aDataFlavors[nInd].DataType == aFlavor.DataType )
1664             return sal_True;
1665
1666     return sal_False;
1667 }
1668
1669 void SAL_CALL OleComponent::dispose() throw (::com::sun::star::uno::RuntimeException)
1670 {
1671     try
1672     {
1673         close( sal_True );
1674     }
1675     catch ( const uno::Exception& )
1676     {
1677     }
1678 }
1679
1680 void SAL_CALL OleComponent::addEventListener( const uno::Reference< lang::XEventListener >& xListener )
1681     throw ( uno::RuntimeException )
1682 {
1683     ::osl::MutexGuard aGuard( m_aMutex );
1684     if ( m_bDisposed )
1685         throw lang::DisposedException(); // TODO
1686
1687     if ( !m_pInterfaceContainer )
1688         m_pInterfaceContainer = new ::cppu::OMultiTypeInterfaceContainerHelper( m_aMutex );
1689
1690     m_pInterfaceContainer->addInterface( ::getCppuType( ( const uno::Reference< lang::XEventListener >* )0 ), xListener );
1691 }
1692
1693 //----------------------------------------------
1694 void SAL_CALL OleComponent::removeEventListener( const uno::Reference< lang::XEventListener >& xListener )
1695     throw ( uno::RuntimeException )
1696 {
1697     ::osl::MutexGuard aGuard( m_aMutex );
1698     if ( m_bDisposed )
1699         throw lang::DisposedException(); // TODO
1700
1701     if ( m_pInterfaceContainer )
1702         m_pInterfaceContainer->removeInterface( ::getCppuType( ( const uno::Reference< lang::XEventListener >* )0 ),
1703                                                 xListener );
1704 }
1705
1706 sal_Int64 SAL_CALL OleComponent::getSomething( const ::com::sun::star::uno::Sequence< sal_Int8 >& aIdentifier ) throw(::com::sun::star::uno::RuntimeException)
1707 {
1708     try
1709     {
1710         uno::Sequence < sal_Int8 > aCLSID = GetCLSID();
1711         if ( MimeConfigurationHelper::ClassIDsEqual( aIdentifier, aCLSID ) )
1712             return (sal_Int64) (IUnknown*) m_pNativeImpl->m_pObj;
1713
1714         // compatibility hack for old versions: CLSID was used in wrong order (SvGlobalName order)
1715         sal_Int32 nLength = aIdentifier.getLength();
1716         if ( nLength == 16 )
1717         {
1718             for ( sal_Int32 n=8; n<16; n++ )
1719                 if ( aIdentifier[n] != aCLSID[n] )
1720                     return 0;
1721             if ( aIdentifier[7] == aCLSID[6] &&
1722                  aIdentifier[6] == aCLSID[7] &&
1723                  aIdentifier[5] == aCLSID[4] &&
1724                  aIdentifier[4] == aCLSID[5] &&
1725                  aIdentifier[3] == aCLSID[0] &&
1726                  aIdentifier[2] == aCLSID[1] &&
1727                  aIdentifier[1] == aCLSID[2] &&
1728                  aIdentifier[0] == aCLSID[3] )
1729                 return (sal_Int64) (IUnknown*) m_pNativeImpl->m_pObj;
1730         }
1731     }
1732     catch ( const uno::Exception& )
1733     {
1734     }
1735
1736     return 0;
1737 }
1738
1739 sal_Bool SAL_CALL OleComponent::isModified() throw (::com::sun::star::uno::RuntimeException)
1740 {
1741     return m_bModified;
1742 }
1743
1744 void SAL_CALL OleComponent::setModified( sal_Bool bModified )
1745         throw (::com::sun::star::beans::PropertyVetoException, ::com::sun::star::uno::RuntimeException)
1746 {
1747     m_bModified = bModified;
1748
1749     if ( bModified && m_pInterfaceContainer )
1750     {
1751         ::cppu::OInterfaceContainerHelper* pContainer =
1752             m_pInterfaceContainer->getContainer( ::getCppuType( ( const uno::Reference< util::XModifyListener >* ) NULL ) );
1753         if ( pContainer != NULL )
1754         {
1755             ::cppu::OInterfaceIteratorHelper pIterator( *pContainer );
1756             while ( pIterator.hasMoreElements() )
1757             {
1758                 try
1759                 {
1760                     lang::EventObject aEvent( (util::XModifiable*) this );
1761                     ((util::XModifyListener*)pIterator.next())->modified( aEvent );
1762                 }
1763                 catch( const uno::RuntimeException& )
1764                 {
1765                     pIterator.remove();
1766                 }
1767             }
1768         }
1769     }
1770 }
1771
1772 void SAL_CALL OleComponent::addModifyListener( const com::sun::star::uno::Reference < com::sun::star::util::XModifyListener >& xListener ) throw(::com::sun::star::uno::RuntimeException)
1773 {
1774     ::osl::MutexGuard aGuard( m_aMutex );
1775     if ( m_bDisposed )
1776         throw lang::DisposedException(); // TODO
1777
1778     if ( !m_pInterfaceContainer )
1779         m_pInterfaceContainer = new ::cppu::OMultiTypeInterfaceContainerHelper( m_aMutex );
1780
1781     m_pInterfaceContainer->addInterface( ::getCppuType( ( const uno::Reference< util::XModifyListener >* )0 ), xListener );
1782 }
1783
1784 void SAL_CALL OleComponent::removeModifyListener( const com::sun::star::uno::Reference < com::sun::star::util::XModifyListener >& xListener) throw(::com::sun::star::uno::RuntimeException)
1785 {
1786     ::osl::MutexGuard aGuard( m_aMutex );
1787     if ( m_bDisposed )
1788         throw lang::DisposedException(); // TODO
1789
1790     if ( m_pInterfaceContainer )
1791         m_pInterfaceContainer->removeInterface( ::getCppuType( ( const uno::Reference< util::XModifyListener >* )0 ),
1792                                                 xListener );
1793 }
1794
1795 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */