embeddedobj/source/msole/xdialogcreator.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 <com/sun/star/embed/EmbeddedObjectCreator.hpp>
  21 #include <com/sun/star/embed/XEmbeddedObject.hpp>
  22 #include <com/sun/star/embed/EntryInitModes.hpp>
  23 #include <com/sun/star/embed/OLEEmbeddedObjectFactory.hpp>
  24 #include <com/sun/star/beans/PropertyValue.hpp>
  25 #include <com/sun/star/datatransfer/DataFlavor.hpp>
  26 #include <com/sun/star/ucb/CommandAbortedException.hpp>
  27
  28 #include <osl/thread.h>
  29 #include <osl/file.hxx>
  30 #include <osl/module.hxx>
  31 #include <comphelper/classids.hxx>
  32
  33 #include "platform.h"
  34 #include <comphelper/mimeconfighelper.hxx>
  35 #include <comphelper/processfactory.hxx>
  36 #include <cppuhelper/supportsservice.hxx>
  37
  38 #include <xdialogcreator.hxx>
  39 #include <oleembobj.hxx>
  40
  41
  42 #ifdef _WIN32
  43
  44 #include <oledlg.h>
  45
  46 class InitializedOleGuard
  47 {
  48 public:
  49     InitializedOleGuard()
  50     {
  51         if ( !SUCCEEDED( OleInitialize( nullptr ) ) )
  52             throw css::uno::RuntimeException();
  53     }
  54
  55     ~InitializedOleGuard()
  56     {
  57         OleUninitialize();
  58     }
  59 };
  60
  61 extern "C" {
  62 typedef UINT STDAPICALLTYPE OleUIInsertObjectA_Type(LPOLEUIINSERTOBJECTA);
  63 }
  64
  65 #endif
  66
  67
  68 using namespace ::com::sun::star;
  69 using namespace ::comphelper;
  70
  71 uno::Sequence< sal_Int8 > GetRelatedInternalID_Impl( const uno::Sequence< sal_Int8 >& aClassID )
  72 {
  73     // Writer
  74     if ( MimeConfigurationHelper::ClassIDsEqual( aClassID, MimeConfigurationHelper::GetSequenceClassID( SO3_SW_OLE_EMBED_CLASSID_60 ) )
  75       || MimeConfigurationHelper::ClassIDsEqual( aClassID, MimeConfigurationHelper::GetSequenceClassID( SO3_SW_OLE_EMBED_CLASSID_8 ) ) )
  76         return MimeConfigurationHelper::GetSequenceClassID( SO3_SW_CLASSID_60 );
  77
  78     // Calc
  79     if ( MimeConfigurationHelper::ClassIDsEqual( aClassID, MimeConfigurationHelper::GetSequenceClassID( SO3_SC_OLE_EMBED_CLASSID_60 ) )
  80       || MimeConfigurationHelper::ClassIDsEqual( aClassID, MimeConfigurationHelper::GetSequenceClassID( SO3_SC_OLE_EMBED_CLASSID_8 ) ) )
  81         return MimeConfigurationHelper::GetSequenceClassID( SO3_SC_CLASSID_60 );
  82
  83     // Impress
  84     if ( MimeConfigurationHelper::ClassIDsEqual( aClassID, MimeConfigurationHelper::GetSequenceClassID( SO3_SIMPRESS_OLE_EMBED_CLASSID_60 ) )
  85       || MimeConfigurationHelper::ClassIDsEqual( aClassID, MimeConfigurationHelper::GetSequenceClassID( SO3_SIMPRESS_OLE_EMBED_CLASSID_8 ) ) )
  86         return MimeConfigurationHelper::GetSequenceClassID( SO3_SIMPRESS_CLASSID_60 );
  87
  88     // Draw
  89     if ( MimeConfigurationHelper::ClassIDsEqual( aClassID, MimeConfigurationHelper::GetSequenceClassID( SO3_SDRAW_OLE_EMBED_CLASSID_60 ) )
  90       || MimeConfigurationHelper::ClassIDsEqual( aClassID, MimeConfigurationHelper::GetSequenceClassID( SO3_SDRAW_OLE_EMBED_CLASSID_8 ) ) )
  91         return MimeConfigurationHelper::GetSequenceClassID( SO3_SDRAW_CLASSID_60 );
  92
  93     // Chart
  94     if ( MimeConfigurationHelper::ClassIDsEqual( aClassID, MimeConfigurationHelper::GetSequenceClassID( SO3_SCH_OLE_EMBED_CLASSID_60 ) )
  95       || MimeConfigurationHelper::ClassIDsEqual( aClassID, MimeConfigurationHelper::GetSequenceClassID( SO3_SCH_OLE_EMBED_CLASSID_8 ) ) )
  96         return MimeConfigurationHelper::GetSequenceClassID( SO3_SCH_CLASSID_60 );
  97
  98     // Math
  99     if ( MimeConfigurationHelper::ClassIDsEqual( aClassID, MimeConfigurationHelper::GetSequenceClassID( SO3_SM_OLE_EMBED_CLASSID_60 ) )
 100       || MimeConfigurationHelper::ClassIDsEqual( aClassID, MimeConfigurationHelper::GetSequenceClassID( SO3_SM_OLE_EMBED_CLASSID_8 ) ) )
 101         return MimeConfigurationHelper::GetSequenceClassID( SO3_SM_CLASSID_60 );
 102
 103     return aClassID;
 104 }
 105
 106
 107 uno::Sequence< OUString > SAL_CALL MSOLEDialogObjectCreator::impl_staticGetSupportedServiceNames()
 108 {
 109     uno::Sequence< OUString > aRet(2);
 110     aRet[0] = "com.sun.star.embed.MSOLEObjectSystemCreator";
 111     aRet[1] = "com.sun.star.comp.embed.MSOLEObjectSystemCreator";
 112     return aRet;
 113 }
 114
 115
 116 OUString SAL_CALL MSOLEDialogObjectCreator::impl_staticGetImplementationName()
 117 {
 118     return OUString("com.sun.star.comp.embed.MSOLEObjectSystemCreator");
 119 }
 120
 121
 122 uno::Reference< uno::XInterface > SAL_CALL MSOLEDialogObjectCreator::impl_staticCreateSelfInstance(
 123             const uno::Reference< lang::XMultiServiceFactory >& xServiceManager )
 124 {
 125     return uno::Reference< uno::XInterface >( *new MSOLEDialogObjectCreator( xServiceManager ) );
 126 }
 127
 128
 129 embed::InsertedObjectInfo SAL_CALL MSOLEDialogObjectCreator::createInstanceByDialog(
 130             const uno::Reference< embed::XStorage >& xStorage,
 131             const OUString& sEntName,
 132             const uno::Sequence< beans::PropertyValue >& aInObjArgs )
 133     throw ( lang::IllegalArgumentException,
 134             io::IOException,
 135             uno::Exception,
 136             uno::RuntimeException )
 137 {
 138     embed::InsertedObjectInfo aObjectInfo;
 139     uno::Sequence< beans::PropertyValue > aObjArgs( aInObjArgs );
 140
 141 #ifdef _WIN32
 142
 143     if ( !xStorage.is() )
 144         throw lang::IllegalArgumentException( "No parent storage is provided!",
 145                                             static_cast< ::cppu::OWeakObject* >(this),
 146                                             1 );
 147
 148     if ( !sEntName.getLength() )
 149         throw lang::IllegalArgumentException( "Empty element name is provided!",
 150                                             static_cast< ::cppu::OWeakObject* >(this),
 151                                             2 );
 152
 153     InitializedOleGuard aGuard;
 154
 155     OLEUIINSERTOBJECT io;
 156     char szFile[MAX_PATH];
 157     UINT uTemp;
 158
 159     memset(&io, 0, sizeof(io));
 160
 161     io.cbStruct = sizeof(io);
 162     io.hWndOwner = GetActiveWindow();
 163
 164     szFile[0] = 0;
 165     io.lpszFile = szFile;
 166     io.cchFile = MAX_PATH;
 167
 168     io.dwFlags = IOF_SELECTCREATENEW | IOF_DISABLELINK;
 169
 170
 171     ::osl::Module aOleDlgLib;
 172     if( !aOleDlgLib.load( "oledlg" ))
 173         throw uno::RuntimeException();
 174
 175     OleUIInsertObjectA_Type * pInsertFct = reinterpret_cast<OleUIInsertObjectA_Type *>(
 176                                 aOleDlgLib.getSymbol( "OleUIInsertObjectA" ));
 177     if( !pInsertFct )
 178         throw uno::RuntimeException();
 179
 180     uTemp=pInsertFct(&io);
 181
 182     if ( OLEUI_OK == uTemp )
 183     {
 184         if (io.dwFlags & IOF_SELECTCREATENEW)
 185         {
 186             uno::Reference< embed::XEmbeddedObjectCreator > xEmbCreator = embed::EmbeddedObjectCreator::create( comphelper::getComponentContext(m_xFactory) );
 187
 188             uno::Sequence< sal_Int8 > aClassID = MimeConfigurationHelper::GetSequenceClassID( io.clsid.Data1,
 189                                                                      io.clsid.Data2,
 190                                                                      io.clsid.Data3,
 191                                                                      io.clsid.Data4[0],
 192                                                                      io.clsid.Data4[1],
 193                                                                      io.clsid.Data4[2],
 194                                                                      io.clsid.Data4[3],
 195                                                                      io.clsid.Data4[4],
 196                                                                      io.clsid.Data4[5],
 197                                                                      io.clsid.Data4[6],
 198                                                                      io.clsid.Data4[7] );
 199
 200             aClassID = GetRelatedInternalID_Impl( aClassID );
 201
 202             //TODO: retrieve ClassName
 203             OUString aClassName;
 204             aObjectInfo.Object.set( xEmbCreator->createInstanceInitNew( aClassID, aClassName, xStorage, sEntName, aObjArgs ),
 205                                     uno::UNO_QUERY );
 206         }
 207         else
 208         {
 209             OUString aFileName = OStringToOUString( OString( szFile ), osl_getThreadTextEncoding() );
 210             OUString aFileURL;
 211             if ( osl::FileBase::getFileURLFromSystemPath( aFileName, aFileURL ) != osl::FileBase::E_None )
 212                 throw uno::RuntimeException();
 213
 214             uno::Sequence< beans::PropertyValue > aMediaDescr( 1 );
 215             aMediaDescr[0].Name = "URL";
 216             aMediaDescr[0].Value <<= aFileURL;
 217
 218             // TODO: use config helper for type detection
 219             uno::Reference< embed::XEmbeddedObjectCreator > xEmbCreator;
 220             ::comphelper::MimeConfigurationHelper aHelper( comphelper::getComponentContext(m_xFactory) );
 221
 222             if ( aHelper.AddFilterNameCheckOwnFile( aMediaDescr ) )
 223                 xEmbCreator = embed::EmbeddedObjectCreator::create( comphelper::getComponentContext(m_xFactory) );
 224             else
 225                 xEmbCreator = embed::OLEEmbeddedObjectFactory::create( comphelper::getComponentContext(m_xFactory) );
 226
 227             if ( !xEmbCreator.is() )
 228                 throw uno::RuntimeException();
 229
 230             aObjectInfo.Object.set( xEmbCreator->createInstanceInitFromMediaDescriptor( xStorage, sEntName, aMediaDescr, aObjArgs ),
 231                                     uno::UNO_QUERY );
 232         }
 233
 234         if ( ( io.dwFlags & IOF_CHECKDISPLAYASICON) && io.hMetaPict != nullptr )
 235         {
 236             METAFILEPICT* pMF = static_cast<METAFILEPICT*>(GlobalLock( io.hMetaPict ));
 237             if ( pMF )
 238             {
 239                 sal_uInt32 nBufSize = GetMetaFileBitsEx( pMF->hMF, 0, nullptr );
 240                 uno::Sequence< sal_Int8 > aMetafile( nBufSize + 22 );
 241                 sal_Int8* pBuf = aMetafile.getArray();
 242                 *reinterpret_cast<long*>( pBuf ) = 0x9ac6cdd7L;
 243                 *reinterpret_cast<short*>( pBuf+6 ) = ( SHORT ) 0;
 244                 *reinterpret_cast<short*>( pBuf+8 ) = ( SHORT ) 0;
 245                 *reinterpret_cast<short*>( pBuf+10 ) = ( SHORT ) pMF->xExt;
 246                 *reinterpret_cast<short*>( pBuf+12 ) = ( SHORT ) pMF->yExt;
 247                 *reinterpret_cast<short*>( pBuf+14 ) = ( USHORT ) 2540;
 248
 249                 if ( nBufSize && nBufSize == GetMetaFileBitsEx( pMF->hMF, nBufSize, pBuf+22 ) )
 250                 {
 251                     datatransfer::DataFlavor aFlavor(
 252                         OUString( "application/x-openoffice-wmf;windows_formatname=\"Image WMF\"" ),
 253                         OUString( "Image WMF" ),
 254                         cppu::UnoType<uno::Sequence< sal_Int8 >>::get() );
 255
 256                     aObjectInfo.Options.realloc( 2 );
 257                     aObjectInfo.Options[0].Name = "Icon";
 258                     aObjectInfo.Options[0].Value <<= aMetafile;
 259                     aObjectInfo.Options[1].Name = "IconFormat";
 260                     aObjectInfo.Options[1].Value <<= aFlavor;
 261                 }
 262
 263                 GlobalUnlock( io.hMetaPict );
 264             }
 265         }
 266     }
 267     else
 268         throw ucb::CommandAbortedException();
 269
 270     OSL_ENSURE( aObjectInfo.Object.is(), "No object was created!\n" );
 271     if ( !aObjectInfo.Object.is() )
 272         throw uno::RuntimeException();
 273
 274     return aObjectInfo;
 275 #else
 276     throw lang::NoSupportException(); // TODO:
 277 #endif
 278 }
 279
 280
 281 embed::InsertedObjectInfo SAL_CALL MSOLEDialogObjectCreator::createInstanceInitFromClipboard(
 282                 const uno::Reference< embed::XStorage >& xStorage,
 283                 const OUString& sEntryName,
 284                 const uno::Sequence< beans::PropertyValue >& aObjectArgs )
 285         throw ( lang::IllegalArgumentException,
 286                 io::IOException,
 287                 uno::Exception,
 288                 uno::RuntimeException )
 289 {
 290     embed::InsertedObjectInfo aObjectInfo;
 291
 292 #ifdef _WIN32
 293     if ( !xStorage.is() )
 294         throw lang::IllegalArgumentException( "No parent storage is provided!",
 295                                             static_cast< ::cppu::OWeakObject* >(this),
 296                                             1 );
 297
 298     if ( !sEntryName.getLength() )
 299         throw lang::IllegalArgumentException( "Empty element name is provided!",
 300                                             static_cast< ::cppu::OWeakObject* >(this),
 301                                             2 );
 302
 303     uno::Reference< embed::XEmbeddedObject > xResult(
 304                     static_cast< ::cppu::OWeakObject* > ( new OleEmbeddedObject( m_xFactory ) ),
 305                     uno::UNO_QUERY );
 306
 307     uno::Reference< embed::XEmbedPersist > xPersist( xResult, uno::UNO_QUERY );
 308
 309     if ( !xPersist.is() )
 310         throw uno::RuntimeException(); // TODO: the interface must be supported by own document objects
 311
 312     xPersist->setPersistentEntry( xStorage,
 313                                     sEntryName,
 314                                     embed::EntryInitModes::DEFAULT_INIT,
 315                                     uno::Sequence< beans::PropertyValue >(),
 316                                     aObjectArgs );
 317
 318     aObjectInfo.Object = xResult;
 319
 320     // TODO/LATER: in case of iconify object the icon should be stored in aObjectInfo
 321
 322     OSL_ENSURE( aObjectInfo.Object.is(), "No object was created!\n" );
 323     if ( !aObjectInfo.Object.is() )
 324         throw uno::RuntimeException();
 325
 326     return aObjectInfo;
 327 #else
 328     throw lang::NoSupportException(); // TODO:
 329 #endif
 330 }
 331
 332
 333 OUString SAL_CALL MSOLEDialogObjectCreator::getImplementationName()
 334     throw ( uno::RuntimeException )
 335 {
 336     return impl_staticGetImplementationName();
 337 }
 338
 339
 340 sal_Bool SAL_CALL MSOLEDialogObjectCreator::supportsService( const OUString& ServiceName )
 341     throw ( uno::RuntimeException )
 342 {
 343     return cppu::supportsService(this, ServiceName);
 344 }
 345
 346
 347 uno::Sequence< OUString > SAL_CALL MSOLEDialogObjectCreator::getSupportedServiceNames()
 348     throw ( uno::RuntimeException )
 349 {
 350     return impl_staticGetSupportedServiceNames();
 351 }
 352
 353 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */