/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ /* * This file is part of the LibreOffice project. * * This Source Code Form is subject to the terms of the Mozilla Public * License, v. 2.0. If a copy of the MPL was not distributed with this * file, You can obtain one at http://mozilla.org/MPL/2.0/. * * This file incorporates work covered by the following license notice: * * Licensed to the Apache Software Foundation (ASF) under one or more * contributor license agreements. See the NOTICE file distributed * with this work for additional information regarding copyright * ownership. The ASF licenses this file to you under the Apache * License, Version 2.0 (the "License"); you may not use this file * except in compliance with the License. You may obtain a copy of * the License at http://www.apache.org/licenses/LICENSE-2.0 . */ #include #include #include #include #include #include #include #include #include #include #include #include #include "platform.h" #include #include #include #include "xdialogcreator.hxx" #include #ifdef _WIN32 #include class InitializedOleGuard { public: InitializedOleGuard() { if ( !SUCCEEDED( OleInitialize( nullptr ) ) ) throw css::uno::RuntimeException(); } ~InitializedOleGuard() { OleUninitialize(); } }; extern "C" { typedef UINT STDAPICALLTYPE OleUIInsertObjectA_Type(LPOLEUIINSERTOBJECTA); } #endif using namespace ::com::sun::star; using namespace ::comphelper; uno::Sequence< sal_Int8 > GetRelatedInternalID_Impl( const uno::Sequence< sal_Int8 >& aClassID ) { // Writer if ( MimeConfigurationHelper::ClassIDsEqual( aClassID, MimeConfigurationHelper::GetSequenceClassID( SO3_SW_OLE_EMBED_CLASSID_60 ) ) || MimeConfigurationHelper::ClassIDsEqual( aClassID, MimeConfigurationHelper::GetSequenceClassID( SO3_SW_OLE_EMBED_CLASSID_8 ) ) ) return MimeConfigurationHelper::GetSequenceClassID( SO3_SW_CLASSID_60 ); // Calc if ( MimeConfigurationHelper::ClassIDsEqual( aClassID, MimeConfigurationHelper::GetSequenceClassID( SO3_SC_OLE_EMBED_CLASSID_60 ) ) || MimeConfigurationHelper::ClassIDsEqual( aClassID, MimeConfigurationHelper::GetSequenceClassID( SO3_SC_OLE_EMBED_CLASSID_8 ) ) ) return MimeConfigurationHelper::GetSequenceClassID( SO3_SC_CLASSID_60 ); // Impress if ( MimeConfigurationHelper::ClassIDsEqual( aClassID, MimeConfigurationHelper::GetSequenceClassID( SO3_SIMPRESS_OLE_EMBED_CLASSID_60 ) ) || MimeConfigurationHelper::ClassIDsEqual( aClassID, MimeConfigurationHelper::GetSequenceClassID( SO3_SIMPRESS_OLE_EMBED_CLASSID_8 ) ) ) return MimeConfigurationHelper::GetSequenceClassID( SO3_SIMPRESS_CLASSID_60 ); // Draw if ( MimeConfigurationHelper::ClassIDsEqual( aClassID, MimeConfigurationHelper::GetSequenceClassID( SO3_SDRAW_OLE_EMBED_CLASSID_60 ) ) || MimeConfigurationHelper::ClassIDsEqual( aClassID, MimeConfigurationHelper::GetSequenceClassID( SO3_SDRAW_OLE_EMBED_CLASSID_8 ) ) ) return MimeConfigurationHelper::GetSequenceClassID( SO3_SDRAW_CLASSID_60 ); // Chart if ( MimeConfigurationHelper::ClassIDsEqual( aClassID, MimeConfigurationHelper::GetSequenceClassID( SO3_SCH_OLE_EMBED_CLASSID_60 ) ) || MimeConfigurationHelper::ClassIDsEqual( aClassID, MimeConfigurationHelper::GetSequenceClassID( SO3_SCH_OLE_EMBED_CLASSID_8 ) ) ) return MimeConfigurationHelper::GetSequenceClassID( SO3_SCH_CLASSID_60 ); // Math if ( MimeConfigurationHelper::ClassIDsEqual( aClassID, MimeConfigurationHelper::GetSequenceClassID( SO3_SM_OLE_EMBED_CLASSID_60 ) ) || MimeConfigurationHelper::ClassIDsEqual( aClassID, MimeConfigurationHelper::GetSequenceClassID( SO3_SM_OLE_EMBED_CLASSID_8 ) ) ) return MimeConfigurationHelper::GetSequenceClassID( SO3_SM_CLASSID_60 ); return aClassID; } uno::Sequence< OUString > SAL_CALL MSOLEDialogObjectCreator::impl_staticGetSupportedServiceNames() { uno::Sequence< OUString > aRet(2); aRet[0] = "com.sun.star.embed.MSOLEObjectSystemCreator"; aRet[1] = "com.sun.star.comp.embed.MSOLEObjectSystemCreator"; return aRet; } OUString SAL_CALL MSOLEDialogObjectCreator::impl_staticGetImplementationName() { return OUString("com.sun.star.comp.embed.MSOLEObjectSystemCreator"); } uno::Reference< uno::XInterface > SAL_CALL MSOLEDialogObjectCreator::impl_staticCreateSelfInstance( const uno::Reference< lang::XMultiServiceFactory >& xServiceManager ) { return uno::Reference< uno::XInterface >( *new MSOLEDialogObjectCreator( xServiceManager ) ); } embed::InsertedObjectInfo SAL_CALL MSOLEDialogObjectCreator::createInstanceByDialog( const uno::Reference< embed::XStorage >& xStorage, const OUString& sEntName, const uno::Sequence< beans::PropertyValue >& aInObjArgs ) { embed::InsertedObjectInfo aObjectInfo; uno::Sequence< beans::PropertyValue > aObjArgs( aInObjArgs ); #ifdef _WIN32 if ( !xStorage.is() ) throw lang::IllegalArgumentException( "No parent storage is provided!", static_cast< ::cppu::OWeakObject* >(this), 1 ); if ( !sEntName.getLength() ) throw lang::IllegalArgumentException( "Empty element name is provided!", static_cast< ::cppu::OWeakObject* >(this), 2 ); InitializedOleGuard aGuard; OLEUIINSERTOBJECT io; char szFile[MAX_PATH]; UINT uTemp; memset(&io, 0, sizeof(io)); io.cbStruct = sizeof(io); io.hWndOwner = GetActiveWindow(); szFile[0] = 0; io.lpszFile = szFile; io.cchFile = MAX_PATH; io.dwFlags = IOF_SELECTCREATENEW | IOF_DISABLELINK; ::osl::Module aOleDlgLib; if( !aOleDlgLib.load( "oledlg" )) throw uno::RuntimeException(); OleUIInsertObjectA_Type * pInsertFct = reinterpret_cast( aOleDlgLib.getSymbol( "OleUIInsertObjectA" )); if( !pInsertFct ) throw uno::RuntimeException(); uTemp=pInsertFct(&io); if ( OLEUI_OK != uTemp ) throw ucb::CommandAbortedException(); if (io.dwFlags & IOF_SELECTCREATENEW) { uno::Reference< embed::XEmbeddedObjectCreator > xEmbCreator = embed::EmbeddedObjectCreator::create( comphelper::getComponentContext(m_xFactory) ); uno::Sequence< sal_Int8 > aClassID = MimeConfigurationHelper::GetSequenceClassID( io.clsid.Data1, io.clsid.Data2, io.clsid.Data3, io.clsid.Data4[0], io.clsid.Data4[1], io.clsid.Data4[2], io.clsid.Data4[3], io.clsid.Data4[4], io.clsid.Data4[5], io.clsid.Data4[6], io.clsid.Data4[7] ); aClassID = GetRelatedInternalID_Impl( aClassID ); //TODO: retrieve ClassName aObjectInfo.Object.set( xEmbCreator->createInstanceInitNew( aClassID, OUString(), xStorage, sEntName, aObjArgs ), uno::UNO_QUERY ); } else { OUString aFileName = OStringToOUString( OString( szFile ), osl_getThreadTextEncoding() ); OUString aFileURL; if ( osl::FileBase::getFileURLFromSystemPath( aFileName, aFileURL ) != osl::FileBase::E_None ) throw uno::RuntimeException(); uno::Sequence< beans::PropertyValue > aMediaDescr( 1 ); aMediaDescr[0].Name = "URL"; aMediaDescr[0].Value <<= aFileURL; // TODO: use config helper for type detection uno::Reference< embed::XEmbeddedObjectCreator > xEmbCreator; ::comphelper::MimeConfigurationHelper aHelper( comphelper::getComponentContext(m_xFactory) ); if ( aHelper.AddFilterNameCheckOwnFile( aMediaDescr ) ) xEmbCreator = embed::EmbeddedObjectCreator::create( comphelper::getComponentContext(m_xFactory) ); else xEmbCreator = embed::OLEEmbeddedObjectFactory::create( comphelper::getComponentContext(m_xFactory) ); if ( !xEmbCreator.is() ) throw uno::RuntimeException(); aObjectInfo.Object.set( xEmbCreator->createInstanceInitFromMediaDescriptor( xStorage, sEntName, aMediaDescr, aObjArgs ), uno::UNO_QUERY ); } if ( ( io.dwFlags & IOF_CHECKDISPLAYASICON) && io.hMetaPict != nullptr ) { METAFILEPICT* pMF = static_cast(GlobalLock( io.hMetaPict )); if ( pMF ) { sal_uInt32 nBufSize = GetMetaFileBitsEx( pMF->hMF, 0, nullptr ); uno::Sequence< sal_Int8 > aMetafile( nBufSize + 22 ); sal_Int8* pBuf = aMetafile.getArray(); *reinterpret_cast( pBuf ) = 0x9ac6cdd7L; *reinterpret_cast( pBuf+6 ) = ( SHORT ) 0; *reinterpret_cast( pBuf+8 ) = ( SHORT ) 0; *reinterpret_cast( pBuf+10 ) = ( SHORT ) pMF->xExt; *reinterpret_cast( pBuf+12 ) = ( SHORT ) pMF->yExt; *reinterpret_cast( pBuf+14 ) = ( USHORT ) 2540; if ( nBufSize && nBufSize == GetMetaFileBitsEx( pMF->hMF, nBufSize, pBuf+22 ) ) { datatransfer::DataFlavor aFlavor( "application/x-openoffice-wmf;windows_formatname=\"Image WMF\"", "Image WMF", cppu::UnoType>::get() ); aObjectInfo.Options.realloc( 2 ); aObjectInfo.Options[0].Name = "Icon"; aObjectInfo.Options[0].Value <<= aMetafile; aObjectInfo.Options[1].Name = "IconFormat"; aObjectInfo.Options[1].Value <<= aFlavor; } GlobalUnlock( io.hMetaPict ); } } OSL_ENSURE( aObjectInfo.Object.is(), "No object was created!" ); if ( !aObjectInfo.Object.is() ) throw uno::RuntimeException(); return aObjectInfo; #else throw lang::NoSupportException(); // TODO: #endif } embed::InsertedObjectInfo SAL_CALL MSOLEDialogObjectCreator::createInstanceInitFromClipboard( const uno::Reference< embed::XStorage >& xStorage, const OUString& sEntryName, const uno::Sequence< beans::PropertyValue >& aObjectArgs ) { embed::InsertedObjectInfo aObjectInfo; #ifdef _WIN32 if ( !xStorage.is() ) throw lang::IllegalArgumentException( "No parent storage is provided!", static_cast< ::cppu::OWeakObject* >(this), 1 ); if ( !sEntryName.getLength() ) throw lang::IllegalArgumentException( "Empty element name is provided!", static_cast< ::cppu::OWeakObject* >(this), 2 ); uno::Reference< embed::XEmbeddedObject > xResult( static_cast< ::cppu::OWeakObject* > ( new OleEmbeddedObject( m_xFactory ) ), uno::UNO_QUERY ); uno::Reference< embed::XEmbedPersist > xPersist( xResult, uno::UNO_QUERY_THROW ); xPersist->setPersistentEntry( xStorage, sEntryName, embed::EntryInitModes::DEFAULT_INIT, uno::Sequence< beans::PropertyValue >(), aObjectArgs ); aObjectInfo.Object = xResult; // TODO/LATER: in case of iconify object the icon should be stored in aObjectInfo OSL_ENSURE( aObjectInfo.Object.is(), "No object was created!" ); if ( !aObjectInfo.Object.is() ) throw uno::RuntimeException(); return aObjectInfo; #else throw lang::NoSupportException(); // TODO: #endif } OUString SAL_CALL MSOLEDialogObjectCreator::getImplementationName() { return impl_staticGetImplementationName(); } sal_Bool SAL_CALL MSOLEDialogObjectCreator::supportsService( const OUString& ServiceName ) { return cppu::supportsService(this, ServiceName); } uno::Sequence< OUString > SAL_CALL MSOLEDialogObjectCreator::getSupportedServiceNames() { return impl_staticGetSupportedServiceNames(); } /* vim:set shiftwidth=4 softtabstop=4 expandtab: */