INTEGRATION: CWS mav09 (1.1.2); FILE ADDED

2004/07/06 16:48:24 mba 1.1.2.9: #i27773#: work on TODOs
2004/05/28 16:17:37 mba 1.1.2.8: #27773#: some wrong MediaTypes
2004/05/28 09:11:31 mba 1.1.2.7: #27773#: optimize for usage of clipboard in loaded state
2004/05/26 16:29:13 mba 1.1.2.6: #i27773#: new helper for MapUnit conversions
2004/05/24 08:43:47 mba 1.1.2.5: #i27773#: some changes about MapUnit
2004/05/18 12:39:05 mav 1.1.2.4: #i27773# resolve resync problems
2004/05/16 17:24:29 mba 1.1.2.3: #i27773#: support for EMBEDSOURCE format
2004/05/04 13:02:52 mba 1.1.2.2: #i27773#: remove so3
2004/04/21 14:42:17 mav 1.1.2.1: #i27773# SvEmbedTransferHelper

1 files changed, 241 insertions, 0 deletions

diff --git a/svtools/source/misc/embedtransfer.cxx b/svtools/source/misc/embedtransfer.cxx
new file mode 100644
index 000000000000..5ed25697db1f
--- /dev/null
+++ b/svtools/source/misc/embedtransfer.cxx
@@ -0,0 +1,241 @@
+/*************************************************************************
+ *
+ *  $RCSfile: embedtransfer.cxx,v $
+ *
+ *  $Revision: 1.2 $
+ *
+ *  last change: $Author: kz $ $Date: 2004-10-04 19:47:10 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  either of the following licenses
+ *
+ *         - GNU Lesser General Public License Version 2.1
+ *         - Sun Industry Standards Source License Version 1.1
+ *
+ *  Sun Microsystems Inc., October, 2000
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2000 by Sun Microsystems, Inc.
+ *  901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License version 2.1, as published by the Free Software Foundation.
+ *
+ *  This library is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+ *  MA  02111-1307  USA
+ *
+ *
+ *  Sun Industry Standards Source License Version 1.1
+ *  =================================================
+ *  The contents of this file are subject to the Sun Industry Standards
+ *  Source License Version 1.1 (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.openoffice.org/license.html.
+ *
+ *  Software provided under this License is provided on an "AS IS" basis,
+ *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ *  See the License for the specific provisions governing your rights and
+ *  obligations concerning the Software.
+ *
+ *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+ *
+ *  Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+
+#ifndef _COM_SUN_STAR_EMBED_XCOMPONENTSUPPLIER_HPP_
+#include <com/sun/star/embed/XComponentSupplier.hpp>
+#endif
+#ifndef _COM_SUN_STAR_EMBED_EMBEDSTATES_HPP_
+#include <com/sun/star/embed/EmbedStates.hpp>
+#endif
+#ifndef _COM_SUN_STAR_EMBED_XVISUALOBJECT_HPP_
+#include <com/sun/star/embed/XVisualObject.hpp>
+#endif
+#ifndef _COM_SUN_STAR_EMBED_XEMBEDPERSIST_HPP_
+#include <com/sun/star/embed/XEmbedPersist.hpp>
+#endif
+#ifndef _COM_SUN_STAR_DATATRANSFER_XTRANSFERABLE_HPP_
+#include <com/sun/star/datatransfer/XTransferable.hpp>
+#endif
+#ifndef _COM_SUN_STAR_EMBED_ASPECTS_HPP_
+#include <com/sun/star/embed/Aspects.hpp>
+#endif
+
+#include <embedtransfer.hxx>
+#include <vcl/mapunit.hxx>
+#include <vcl/outdev.hxx>
+#include <comphelper/storagehelper.hxx>
+#include <unotools/ucbstreamhelper.hxx>
+#include <unotools/streamwrap.hxx>
+#include <unotools/tempfile.hxx>
+#include <toolkit/helper/vclunohelper.hxx>
+
+using namespace ::com::sun::star;
+
+SvEmbedTransferHelper::SvEmbedTransferHelper( const uno::Reference< embed::XEmbeddedObject >& xObj )
+: m_xObj( xObj )
+{
+}
+
+// -----------------------------------------------------------------------------
+
+SvEmbedTransferHelper::~SvEmbedTransferHelper()
+{
+}
+
+// -----------------------------------------------------------------------------
+
+void SvEmbedTransferHelper::AddSupportedFormats()
+{
+    AddFormat( SOT_FORMATSTR_ID_EMBED_SOURCE );
+    AddFormat( SOT_FORMATSTR_ID_OBJECTDESCRIPTOR );
+    AddFormat( FORMAT_GDIMETAFILE );
+}
+
+// -----------------------------------------------------------------------------
+
+sal_Bool SvEmbedTransferHelper::GetData( const ::com::sun::star::datatransfer::DataFlavor& rFlavor )
+{
+    sal_Bool bRet = sal_False;
+
+    if( m_xObj.is() )
+    {
+        try
+        {
+            sal_uInt32 nFormat = SotExchange::GetFormat( rFlavor );
+            if( HasFormat( nFormat ) )
+            {
+                if( nFormat == SOT_FORMATSTR_ID_OBJECTDESCRIPTOR )
+                {
+                    TransferableObjectDescriptor aDesc;
+                    FillTransferableObjectDescriptor( aDesc, m_xObj );
+                    bRet = SetTransferableObjectDescriptor( aDesc, rFlavor );
+                }
+                else if( nFormat == SOT_FORMATSTR_ID_EMBED_SOURCE )
+                {
+                    try
+                    {
+                        utl::TempFile aTmp;
+                        aTmp.EnableKillingFile( TRUE );
+                        uno::Reference < embed::XEmbedPersist > xPers( m_xObj, uno::UNO_QUERY );
+                        if ( xPers.is() )
+                        {
+                            uno::Reference < embed::XStorage > xStg = comphelper::OStorageHelper::GetTemporaryStorage();
+                            ::rtl::OUString aName = ::rtl::OUString::createFromAscii("Dummy");
+                            SvStream* pStream = NULL;
+                            BOOL bDeleteStream = FALSE;
+                            uno::Sequence < beans::PropertyValue > aEmpty;
+                            xPers->storeToEntry( xStg, aName, aEmpty, aEmpty );
+                            if ( xStg->isStreamElement( aName ) )
+                            {
+                                uno::Reference < io::XStream > xStm = xStg->cloneStreamElement( aName );
+                                pStream = utl::UcbStreamHelper::CreateStream( xStm );
+                                bDeleteStream = TRUE;
+                            }
+                            else
+                            {
+                                pStream = aTmp.GetStream( STREAM_STD_READWRITE );
+                                uno::Reference < embed::XStorage > xStor = comphelper::OStorageHelper::GetStorageFromStream( new utl::OStreamWrapper( *pStream ) );
+                                xStg->openStorageElement( aName, embed::ElementModes::READ )->copyToStorage( xStor );
+                            }
+
+                            ::com::sun::star::uno::Any                  aAny;
+                            const sal_uInt32                            nLen = pStream->Seek( STREAM_SEEK_TO_END );
+                            ::com::sun::star::uno::Sequence< sal_Int8 > aSeq( nLen );
+
+                            pStream->Seek( STREAM_SEEK_TO_BEGIN );
+                            pStream->Read( aSeq.getArray(),  nLen );
+                            if ( bDeleteStream )
+                                delete pStream;
+
+                            if( ( bRet = ( aSeq.getLength() > 0 ) ) == sal_True )
+                            {
+                                aAny <<= aSeq;
+                                SetAny( aAny, rFlavor );
+                            }
+                        }
+                        else
+                        {
+                            //TODO/LATER: how to handle objects without persistance?!
+                        }
+                    }
+                    catch ( uno::Exception& )
+                    {
+                    }
+                }
+                else
+                {
+                    uno::Reference< embed::XComponentSupplier > xCompSupplier( m_xObj, uno::UNO_QUERY );
+                    if ( xCompSupplier.is() )
+                    {
+                        if ( m_xObj->getCurrentState() == embed::EmbedStates::LOADED )
+                            m_xObj->changeState( embed::EmbedStates::RUNNING );
+
+                        uno::Reference< datatransfer::XTransferable > xTransferable( xCompSupplier->getComponent(), uno::UNO_QUERY );
+                        if ( xTransferable.is() )
+                        {
+                            uno::Any aAny = xTransferable->getTransferData( rFlavor );
+                            SetAny( aAny, rFlavor );
+                            bRet = sal_True;
+                        }
+                    }
+                }
+            }
+        }
+        catch( uno::Exception& )
+        {
+            // Error handling?
+        }
+    }
+
+    return bRet;
+}
+
+// -----------------------------------------------------------------------------
+
+void SvEmbedTransferHelper::ObjectReleased()
+{
+    m_xObj = uno::Reference< embed::XEmbeddedObject >();
+}
+
+void SvEmbedTransferHelper::FillTransferableObjectDescriptor( TransferableObjectDescriptor& rDesc,
+    const ::com::sun::star::uno::Reference< ::com::sun::star::embed::XEmbeddedObject >& xObj )
+{
+    //TODO/LATER: need TypeName to fill it into the Descriptor (will be shown in listbox)
+    ::com::sun::star::datatransfer::DataFlavor aFlavor;
+    SotExchange::GetFormatDataFlavor( SOT_FORMATSTR_ID_OBJECTDESCRIPTOR, aFlavor );
+
+    rDesc.maClassName = SvGlobalName( xObj->getClassID() );
+    rDesc.maTypeName = aFlavor.HumanPresentableName;
+
+    //TODO/LATER: the object does *not* know its aspect! Per default we assume CONTENT
+    rDesc.mnViewAspect = embed::Aspects::MSOLE_CONTENT;
+
+    //TODO/LATER: status needs to become sal_Int64
+    rDesc.mnOle2Misc = xObj->getStatus( rDesc.mnViewAspect );
+    awt::Size aSz = xObj->getVisualAreaSize( rDesc.mnViewAspect );
+
+    MapUnit aMapUnit = VCLUnoHelper::UnoEmbed2VCLMapUnit( xObj->getMapUnit( rDesc.mnViewAspect ) );
+    rDesc.maSize = OutputDevice::LogicToLogic( Size( aSz.Width, aSz.Height ), aMapUnit, MAP_100TH_MM );
+    rDesc.maDragStartPos = Point();
+    rDesc.maDisplayName = String();
+    rDesc.mbCanLink = FALSE;
+}
+