embedserv/source/embed/ed_idataobj.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: ed_idataobj.cxx,v $
  10  * $Revision: 1.9 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30 #if defined(_MSC_VER) && (_MSC_VER > 1310)
  31 #pragma warning(disable : 4917 4555)
  32 #endif
  33
  34 // actually this workaround should be in presys.h!
  35 //#define UINT64 USE_WIN_UINT64
  36 //#define INT64 USE_WIN_INT64
  37 //#define UINT32 USE_WIN_UINT32
  38 //#define INT32 USE_WIN_INT32
  39
  40 //#include <tools/presys.h>
  41 #include "embeddoc.hxx"
  42 //#include <tools/postsys.h>
  43
  44 //#undef UINT64
  45 //#undef INT64
  46 //#undef UINT32
  47 //#undef INT32
  48
  49
  50 #include <com/sun/star/uno/Any.h>
  51 #include <com/sun/star/uno/Exception.hpp>
  52 #include <com/sun/star/datatransfer/XTransferable.hpp>
  53
  54
  55 #include <osl/thread.h>
  56
  57 using namespace ::com::sun::star;
  58
  59 //===============================================================================
  60 // EmbedDocument_Impl
  61 //===============================================================================
  62
  63 sal_uInt64 EmbedDocument_Impl::getMetaFileHandle_Impl( sal_Bool isEnhMeta )
  64 {
  65     sal_uInt64 pResult = NULL;
  66
  67     uno::Reference< datatransfer::XTransferable > xTransferable( m_pDocHolder->GetDocument(), uno::UNO_QUERY );
  68     if ( xTransferable.is() )
  69     {
  70         uno::Sequence< sal_Int8 > aMetaBuffer;
  71         datatransfer::DataFlavor aFlavor;
  72
  73         if ( isEnhMeta )
  74         {
  75             aFlavor.MimeType = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM(
  76                                                 "application/x-openoffice-emf;windows_formatname=\"Image EMF\"" ) );
  77             aFlavor.HumanPresentableName = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Enhanced Windows MetaFile" ) );
  78         }
  79         else
  80         {
  81             aFlavor.MimeType = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM(
  82                                                 "application/x-openoffice-wmf;windows_formatname=\"Image WMF\"" ) );
  83             aFlavor.HumanPresentableName = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Windows GDIMetaFile" ) );
  84         }
  85
  86         aFlavor.DataType = getCppuType( (const sal_uInt64*) 0 );
  87
  88         uno::Any aAny = xTransferable->getTransferData( aFlavor );
  89         aAny >>= pResult;
  90     }
  91
  92     return pResult;
  93 }
  94
  95 //-------------------------------------------------------------------------------
  96 // IDataObject
  97
  98 STDMETHODIMP EmbedDocument_Impl::GetData( FORMATETC * pFormatetc, STGMEDIUM * pMedium )
  99 {
 100     if ( !pFormatetc )
 101         return DV_E_FORMATETC;
 102
 103     if ( !pMedium )
 104         return STG_E_MEDIUMFULL;
 105
 106     if ( pFormatetc->dwAspect == DVASPECT_THUMBNAIL
 107       || pFormatetc->dwAspect == DVASPECT_ICON
 108       || pFormatetc->dwAspect == DVASPECT_DOCPRINT )
 109         return DV_E_DVASPECT;
 110
 111     if ( pFormatetc->cfFormat == CF_ENHMETAFILE )
 112     {
 113         if ( !( pFormatetc->tymed & TYMED_ENHMF ) )
 114             return DV_E_TYMED;
 115
 116         HENHMETAFILE hMeta = reinterpret_cast<HENHMETAFILE>( getMetaFileHandle_Impl( sal_True ) );
 117
 118         if ( hMeta )
 119         {
 120             pMedium->tymed = TYMED_ENHMF;
 121             pMedium->hEnhMetaFile = hMeta;
 122             pMedium->pUnkForRelease = NULL;
 123
 124             return S_OK;
 125         }
 126
 127         return STG_E_MEDIUMFULL;
 128     }
 129     else if ( pFormatetc->cfFormat == CF_METAFILEPICT )
 130     {
 131           if ( !( pFormatetc->tymed & TYMED_MFPICT ) )
 132             return DV_E_TYMED;
 133
 134         HGLOBAL hMeta = reinterpret_cast<HGLOBAL>( getMetaFileHandle_Impl( sal_False ) );
 135
 136         if ( hMeta )
 137         {
 138             pMedium->tymed = TYMED_MFPICT;
 139             pMedium->hMetaFilePict = hMeta;
 140             pMedium->pUnkForRelease = NULL;
 141
 142             return S_OK;
 143         }
 144
 145         return STG_E_MEDIUMFULL;
 146     }
 147     else
 148     {
 149         CLIPFORMAT cf_embSource = (CLIPFORMAT)RegisterClipboardFormatA( "Embed Source" );
 150         CLIPFORMAT cf_embObj = (CLIPFORMAT)RegisterClipboardFormatA( "Embedded Object" );
 151         if ( pFormatetc->cfFormat == cf_embSource || pFormatetc->cfFormat == cf_embObj )
 152         {
 153             if ( !( pFormatetc->tymed & TYMED_ISTORAGE ) )
 154                 return DV_E_TYMED;
 155
 156             CComPtr< IStorage > pNewStg;
 157             HRESULT hr = StgCreateDocfile( NULL, STGM_CREATE | STGM_READWRITE | STGM_DELETEONRELEASE, 0, &pNewStg );
 158             if ( FAILED( hr ) || !pNewStg ) return STG_E_MEDIUMFULL;
 159
 160             hr = SaveTo_Impl( pNewStg );
 161             if ( FAILED( hr ) ) return STG_E_MEDIUMFULL;
 162
 163             pMedium->tymed = TYMED_ISTORAGE;
 164             pMedium->pstg = pNewStg;
 165             pMedium->pstg->AddRef();
 166             pMedium->pUnkForRelease = ( IUnknown* )pNewStg;
 167
 168             return S_OK;
 169         }
 170     }
 171
 172     return DV_E_FORMATETC;
 173 }
 174
 175 STDMETHODIMP EmbedDocument_Impl::GetDataHere( FORMATETC * pFormatetc, STGMEDIUM * pMedium )
 176 {
 177     if ( !pFormatetc )
 178         return DV_E_FORMATETC;
 179
 180     if ( !pMedium )
 181         return STG_E_MEDIUMFULL;
 182
 183     if ( pFormatetc->dwAspect == DVASPECT_THUMBNAIL
 184       || pFormatetc->dwAspect == DVASPECT_ICON
 185       || pFormatetc->dwAspect == DVASPECT_DOCPRINT )
 186         return DV_E_DVASPECT;
 187
 188     CLIPFORMAT cf_embSource = (CLIPFORMAT)RegisterClipboardFormatA( "Embed Source" );
 189     CLIPFORMAT cf_embObj = (CLIPFORMAT)RegisterClipboardFormatA( "Embedded Object" );
 190
 191     if ( pFormatetc->cfFormat == cf_embSource || pFormatetc->cfFormat == cf_embObj )
 192     {
 193         if ( !( pFormatetc->tymed & TYMED_ISTORAGE ) )
 194             return DV_E_TYMED;
 195
 196         if ( !pMedium->pstg ) return STG_E_MEDIUMFULL;
 197
 198         HRESULT hr = SaveTo_Impl( pMedium->pstg );
 199         if ( FAILED( hr ) ) return STG_E_MEDIUMFULL;
 200
 201         pMedium->tymed = TYMED_ISTORAGE;
 202         pMedium->pUnkForRelease = NULL;
 203
 204         return S_OK;
 205     }
 206
 207     return DV_E_FORMATETC;
 208 }
 209
 210 STDMETHODIMP EmbedDocument_Impl::QueryGetData( FORMATETC * pFormatetc )
 211 {
 212     if ( pFormatetc )
 213     {
 214         if ( pFormatetc->dwAspect == DVASPECT_THUMBNAIL
 215           || pFormatetc->dwAspect == DVASPECT_ICON
 216           || pFormatetc->dwAspect == DVASPECT_DOCPRINT )
 217             return DV_E_DVASPECT;
 218
 219         if ( pFormatetc->cfFormat == CF_ENHMETAFILE )
 220         {
 221             if ( !( pFormatetc->tymed & TYMED_ENHMF ) )
 222                 return DV_E_TYMED;
 223
 224             return S_OK;
 225         }
 226         else if ( pFormatetc->cfFormat == CF_METAFILEPICT )
 227         {
 228               if ( !( pFormatetc->tymed & TYMED_MFPICT ) )
 229                 return DV_E_TYMED;
 230
 231             return S_OK;
 232         }
 233         else
 234         {
 235             CLIPFORMAT cf_embSource = (CLIPFORMAT)RegisterClipboardFormatA( "Embed Source" );
 236             CLIPFORMAT cf_embObj = (CLIPFORMAT)RegisterClipboardFormatA( "Embedded Object" );
 237             if ( pFormatetc->cfFormat == cf_embSource || pFormatetc->cfFormat == cf_embObj )
 238             {
 239                 if ( !( pFormatetc->tymed & TYMED_ISTORAGE ) )
 240                     return DV_E_TYMED;
 241
 242                 return S_OK;
 243             }
 244         }
 245     }
 246
 247     return DV_E_FORMATETC;
 248
 249 }
 250
 251 STDMETHODIMP EmbedDocument_Impl::GetCanonicalFormatEtc( FORMATETC * pFormatetcIn, FORMATETC * pFormatetcOut )
 252 {
 253     if ( !pFormatetcIn || !pFormatetcOut )
 254         return DV_E_FORMATETC;
 255
 256     pFormatetcOut->ptd = NULL;
 257     pFormatetcOut->cfFormat = pFormatetcIn->cfFormat;
 258     pFormatetcOut->dwAspect = DVASPECT_CONTENT;
 259
 260     if ( pFormatetcIn->cfFormat == CF_ENHMETAFILE )
 261     {
 262         pFormatetcOut->tymed = TYMED_ENHMF;
 263         return S_OK;
 264     }
 265     else if ( pFormatetcIn->cfFormat == CF_METAFILEPICT )
 266     {
 267           pFormatetcOut->tymed = TYMED_MFPICT;
 268         return S_OK;
 269     }
 270     else
 271     {
 272         CLIPFORMAT cf_embSource = (CLIPFORMAT)RegisterClipboardFormatA( "Embed Source" );
 273         CLIPFORMAT cf_embObj = (CLIPFORMAT)RegisterClipboardFormatA( "Embedded Object" );
 274         if ( pFormatetcIn->cfFormat == cf_embSource || pFormatetcIn->cfFormat == cf_embObj )
 275         {
 276             pFormatetcOut->tymed = TYMED_ISTORAGE;
 277             return S_OK;
 278         }
 279     }
 280
 281     return DV_E_FORMATETC;
 282 }
 283
 284 STDMETHODIMP EmbedDocument_Impl::SetData( FORMATETC * /*pFormatetc*/, STGMEDIUM * /*pMedium*/, BOOL /*fRelease*/ )
 285 {
 286     return E_NOTIMPL;
 287 }
 288
 289 STDMETHODIMP EmbedDocument_Impl::EnumFormatEtc( DWORD dwDirection, IEnumFORMATETC ** /*ppFormatetc*/ )
 290 {
 291     if ( dwDirection == DATADIR_GET )
 292         return OLE_S_USEREG;
 293
 294     return E_NOTIMPL;
 295 }
 296
 297 STDMETHODIMP EmbedDocument_Impl::DAdvise( FORMATETC * pFormatetc, DWORD advf, IAdviseSink * pAdvSink, DWORD * pdwConnection )
 298 {
 299     if ( !m_pDAdviseHolder )
 300         if ( !SUCCEEDED( CreateDataAdviseHolder( &m_pDAdviseHolder ) ) || !m_pDAdviseHolder )
 301             return E_OUTOFMEMORY;
 302
 303     return m_pDAdviseHolder->Advise( (IDataObject*)this, pFormatetc, advf, pAdvSink, pdwConnection );
 304 }
 305
 306 STDMETHODIMP EmbedDocument_Impl::DUnadvise( DWORD dwConnection )
 307 {
 308     if ( !m_pDAdviseHolder )
 309         if ( !SUCCEEDED( CreateDataAdviseHolder( &m_pDAdviseHolder ) ) || !m_pDAdviseHolder )
 310             return E_OUTOFMEMORY;
 311
 312     return m_pDAdviseHolder->Unadvise( dwConnection );
 313 }
 314
 315 STDMETHODIMP EmbedDocument_Impl::EnumDAdvise( IEnumSTATDATA ** ppenumAdvise )
 316 {
 317     if ( !m_pDAdviseHolder )
 318         if ( !SUCCEEDED( CreateDataAdviseHolder( &m_pDAdviseHolder ) ) || !m_pDAdviseHolder )
 319             return E_OUTOFMEMORY;
 320
 321     return m_pDAdviseHolder->EnumAdvise( ppenumAdvise );
 322 }
 323
 324 // Fix strange warnings about some
 325 // ATL::CAxHostWindow::QueryInterface|AddRef|Releae functions.
 326 // warning C4505: 'xxx' : unreferenced local function has been removed
 327 #if defined(_MSC_VER)
 328 #pragma warning(disable: 4505)
 329 #endif