1 /**************************************************************
2 *
3 * Licensed to the Apache Software Foundation (ASF) under one
4 * or more contributor license agreements. See the NOTICE file
5 * distributed with this work for additional information
6 * regarding copyright ownership. The ASF licenses this file
7 * to you under the Apache License, Version 2.0 (the
8 * "License"); you may not use this file except in compliance
9 * with the License. You may obtain a copy of the License at
10 *
11 * http://www.apache.org/licenses/LICENSE-2.0
12 *
13 * Unless required by applicable law or agreed to in writing,
14 * software distributed under the License is distributed on an
15 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16 * KIND, either express or implied. See the License for the
17 * specific language governing permissions and limitations
18 * under the License.
19 *
20 *************************************************************/
21
22
23
24 // MARKER(update_precomp.py): autogen include statement, do not remove
25 #include "precompiled_sc.hxx"
26 #include <com/sun/star/embed/XEmbedObjectClipboardCreator.hpp>
27 #include <com/sun/star/embed/Aspects.hpp>
28
29
30 #include <svx/unomodel.hxx>
31 #include <unotools/streamwrap.hxx>
32
33 //------------------------------------------------------------------
34
35 #include <svx/dbexch.hrc>
36 #include <svx/fmmodel.hxx>
37 #include <svx/svdetc.hxx>
38 #include <svx/svditer.hxx>
39 #include <svx/svdobj.hxx>
40 #include <svx/svdogrp.hxx>
41 #include <svx/svdouno.hxx>
42 #include <svx/svdoole2.hxx>
43 #include <svx/svdpage.hxx>
44 #include <sfx2/dispatch.hxx>
45 #include <sfx2/docfile.hxx>
46 #include <sot/clsids.hxx>
47 #include <sot/formats.hxx>
48 #include <sot/filelist.hxx>
49 #include <unotools/pathoptions.hxx>
50 #include <svl/ptitem.hxx>
51 #include <svl/stritem.hxx>
52 #include <svtools/transfer.hxx>
53 #include <vcl/graph.hxx>
54
55 #include <comphelper/storagehelper.hxx>
56 #include <comphelper/processfactory.hxx>
57
58 #include <sot/formats.hxx>
59 #define SOT_FORMATSTR_ID_STARCALC_CURRENT SOT_FORMATSTR_ID_STARCALC_50
60
61 #include "viewfunc.hxx"
62 #include "docsh.hxx"
63 #include "drawview.hxx"
64 #include "impex.hxx"
65 #include "dbfunc.hxx"
66 #include "dbcolect.hxx"
67 #include "sc.hrc"
68 #include "filter.hxx"
69 #include "scextopt.hxx"
70 #include "tabvwsh.hxx" // wegen GetViewFrame
71 #include "compiler.hxx"
72
73 #include "asciiopt.hxx"
74 #include "scabstdlg.hxx"
75 #include "clipparam.hxx"
76 #include <vcl/msgbox.hxx>
77 #include <sfx2/viewfrm.hxx>
78 #include <svx/dbaexchange.hxx>
79
80 using namespace com::sun::star;
81
82 //------------------------------------------------------------------
83
PasteDataFormat(sal_uLong nFormatId,const uno::Reference<datatransfer::XTransferable> & rxTransferable,SCCOL nPosX,SCROW nPosY,Point * pLogicPos,sal_Bool bLink,sal_Bool bAllowDialogs)84 sal_Bool ScViewFunc::PasteDataFormat( sal_uLong nFormatId,
85 const uno::Reference<datatransfer::XTransferable>& rxTransferable,
86 SCCOL nPosX, SCROW nPosY, Point* pLogicPos, sal_Bool bLink, sal_Bool bAllowDialogs )
87 {
88 ScDocument* pDoc = GetViewData()->GetDocument();
89 pDoc->SetPastingDrawFromOtherDoc( sal_True );
90
91 Point aPos; // inserting position (1/100 mm)
92 if (pLogicPos)
93 aPos = *pLogicPos;
94 else
95 {
96 // inserting position isn't needed for text formats
97 sal_Bool bIsTextFormat = ( ScImportExport::IsFormatSupported( nFormatId ) ||
98 nFormatId == FORMAT_RTF );
99 if ( !bIsTextFormat )
100 {
101 // Window MapMode isn't drawing MapMode if DrawingLayer hasn't been created yet
102
103 SCTAB nTab = GetViewData()->GetTabNo();
104 long nXT = 0;
105 for (SCCOL i=0; i<nPosX; i++)
106 nXT += pDoc->GetColWidth(i,nTab);
107 if (pDoc->IsNegativePage(nTab))
108 nXT = -nXT;
109 sal_uLong nYT = pDoc->GetRowHeight( 0, nPosY-1, nTab);
110 aPos = Point( (long)(nXT * HMM_PER_TWIPS), (long)(nYT * HMM_PER_TWIPS) );
111 }
112 }
113
114 TransferableDataHelper aDataHelper( rxTransferable );
115 sal_Bool bRet = sal_False;
116
117 //
118 // handle individual formats
119 //
120
121 if ( nFormatId == SOT_FORMATSTR_ID_EMBED_SOURCE ||
122 nFormatId == SOT_FORMATSTR_ID_LINK_SOURCE ||
123 nFormatId == SOT_FORMATSTR_ID_EMBED_SOURCE_OLE ||
124 nFormatId == SOT_FORMATSTR_ID_LINK_SOURCE_OLE ||
125 nFormatId == SOT_FORMATSTR_ID_EMBEDDED_OBJ_OLE )
126 {
127 uno::Reference < io::XInputStream > xStm;
128 TransferableObjectDescriptor aObjDesc;
129
130 if( aDataHelper.GetTransferableObjectDescriptor( SOT_FORMATSTR_ID_OBJECTDESCRIPTOR, aObjDesc ) &&
131 aDataHelper.GetInputStream( nFormatId, xStm ) )
132 {
133 if ( aObjDesc.maClassName == SvGlobalName( SO3_SC_CLASSID_60 ) )
134 {
135 uno::Reference < embed::XStorage > xStore = ::comphelper::OStorageHelper::GetStorageFromInputStream( xStm );
136
137 // mba: BaseURL doesn't make sense for clipboard
138 // #i43716# Medium must be allocated with "new".
139 // DoLoad stores the pointer and deletes it with the SfxObjectShell.
140 SfxMedium* pMedium = new SfxMedium( xStore, String() );
141
142 // TODO/LATER: is it a problem that we don't support binary formats here?
143 ScDocShellRef xDocShRef = new ScDocShell(SFX_CREATE_MODE_EMBEDDED);
144 if (xDocShRef->DoLoad(pMedium))
145 {
146 ScDocument* pSrcDoc = xDocShRef->GetDocument();
147 SCTAB nSrcTab = pSrcDoc->GetVisibleTab();
148 if (!pSrcDoc->HasTable(nSrcTab))
149 nSrcTab = 0;
150
151 ScMarkData aSrcMark;
152 aSrcMark.SelectOneTable( nSrcTab ); // for CopyToClip
153 ScDocument* pClipDoc = new ScDocument( SCDOCMODE_CLIP );
154
155 SCCOL nFirstCol, nLastCol;
156 SCROW nFirstRow, nLastRow;
157 if ( pSrcDoc->GetDataStart( nSrcTab, nFirstCol, nFirstRow ) )
158 pSrcDoc->GetCellArea( nSrcTab, nLastCol, nLastRow );
159 else
160 {
161 nFirstCol = nLastCol = 0;
162 nFirstRow = nLastRow = 0;
163 }
164 ScClipParam aClipParam(ScRange(nFirstCol, nFirstRow, nSrcTab, nLastCol, nLastRow, nSrcTab), false);
165 pSrcDoc->CopyToClip(aClipParam, pClipDoc, &aSrcMark);
166 ScGlobal::SetClipDocName( xDocShRef->GetTitle( SFX_TITLE_FULLNAME ) );
167
168 SetCursor( nPosX, nPosY );
169 Unmark();
170 PasteFromClip( IDF_ALL, pClipDoc,
171 PASTE_NOFUNC, sal_False, sal_False, sal_False, INS_NONE, IDF_NONE,
172 bAllowDialogs );
173 delete pClipDoc;
174 bRet = sal_True;
175 }
176
177 xDocShRef->DoClose();
178 xDocShRef.Clear();
179 }
180 else
181 {
182 ::rtl::OUString aName;
183 uno::Reference < embed::XEmbeddedObject > xObj = GetViewData()->GetViewShell()->GetObjectShell()->
184 GetEmbeddedObjectContainer().InsertEmbeddedObject( xStm, aName );
185 if ( xObj.is() )
186 {
187 // try to get the replacement image from the clipboard
188 Graphic aGraphic;
189 sal_uLong nGrFormat = 0;
190 // (wg. Selection Manager bei Trustet Solaris)
191 #ifndef SOLARIS
192 /*
193 if( aDataHelper.GetGraphic( SOT_FORMATSTR_ID_SVXB, aGraphic ) )
194 nGrFormat = SOT_FORMATSTR_ID_SVXB;
195 else if( aDataHelper.GetGraphic( FORMAT_GDIMETAFILE, aGraphic ) )
196 nGrFormat = SOT_FORMAT_GDIMETAFILE;
197 else if( aDataHelper.GetGraphic( FORMAT_BITMAP, aGraphic ) )
198 nGrFormat = SOT_FORMAT_BITMAP;
199 */
200 #endif
201
202 // insert replacement image ( if there is one ) into the object helper
203 if ( nGrFormat )
204 {
205 datatransfer::DataFlavor aDataFlavor;
206 SotExchange::GetFormatDataFlavor( nGrFormat, aDataFlavor );
207 PasteObject( aPos, xObj, &aObjDesc.maSize, &aGraphic, aDataFlavor.MimeType, aObjDesc.mnViewAspect );
208 }
209 else
210 PasteObject( aPos, xObj, &aObjDesc.maSize );
211
212 bRet = sal_True;
213 }
214 else
215 {
216 DBG_ERROR("Error in CreateAndLoad");
217 }
218 }
219 }
220 else
221 {
222 // uno::Reference < io::XInputStream > xStm;
223 // TransferableObjectDescriptor aObjDesc;
224
225 if ( aDataHelper.GetTransferableObjectDescriptor( SOT_FORMATSTR_ID_OBJECTDESCRIPTOR_OLE, aObjDesc ) )
226 {
227 ::rtl::OUString aName;
228 uno::Reference < embed::XEmbeddedObject > xObj;
229
230 if ( aDataHelper.GetInputStream( SOT_FORMATSTR_ID_EMBED_SOURCE_OLE, xStm )
231 || aDataHelper.GetInputStream( SOT_FORMATSTR_ID_EMBEDDED_OBJ_OLE, xStm ) )
232 {
233 xObj = GetViewData()->GetDocShell()->GetEmbeddedObjectContainer().InsertEmbeddedObject( xStm, aName );
234 }
235 else
236 {
237 try
238 {
239 uno::Reference< embed::XStorage > xTmpStor = ::comphelper::OStorageHelper::GetTemporaryStorage();
240 uno::Reference < embed::XEmbedObjectClipboardCreator > xClipboardCreator(
241 ::comphelper::getProcessServiceFactory()->createInstance( ::rtl::OUString(
242 RTL_CONSTASCII_USTRINGPARAM("com.sun.star.embed.MSOLEObjectSystemCreator") ) ),
243 uno::UNO_QUERY_THROW );
244
245 embed::InsertedObjectInfo aInfo = xClipboardCreator->createInstanceInitFromClipboard(
246 xTmpStor,
247 ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM ( "DummyName" ) ),
248 uno::Sequence< beans::PropertyValue >() );
249
250 // TODO/LATER: in future InsertedObjectInfo will be used to get container related information
251 // for example whether the object should be an iconified one
252 xObj = aInfo.Object;
253 if ( xObj.is() )
254 GetViewData()->GetDocShell()->GetEmbeddedObjectContainer().InsertEmbeddedObject( xObj, aName );
255 }
256 catch( uno::Exception& )
257 {}
258 }
259
260 if ( xObj.is() )
261 {
262 // try to get the replacement image from the clipboard
263 Graphic aGraphic;
264 sal_uLong nGrFormat = 0;
265
266 // (wg. Selection Manager bei Trustet Solaris)
267 #ifndef SOLARIS
268 if( aDataHelper.GetGraphic( SOT_FORMATSTR_ID_SVXB, aGraphic ) )
269 nGrFormat = SOT_FORMATSTR_ID_SVXB;
270 else if( aDataHelper.GetGraphic( FORMAT_GDIMETAFILE, aGraphic ) )
271 nGrFormat = SOT_FORMAT_GDIMETAFILE;
272 else if( aDataHelper.GetGraphic( FORMAT_BITMAP, aGraphic ) )
273 nGrFormat = SOT_FORMAT_BITMAP;
274 #endif
275
276 // insert replacement image ( if there is one ) into the object helper
277 if ( nGrFormat )
278 {
279 datatransfer::DataFlavor aDataFlavor;
280 SotExchange::GetFormatDataFlavor( nGrFormat, aDataFlavor );
281 PasteObject( aPos, xObj, &aObjDesc.maSize, &aGraphic, aDataFlavor.MimeType, aObjDesc.mnViewAspect );
282 }
283 else
284 PasteObject( aPos, xObj, &aObjDesc.maSize );
285
286 // let object stay in loaded state after insertion
287 SdrOle2Obj::Unload( xObj, embed::Aspects::MSOLE_CONTENT );
288 bRet = sal_True;
289 }
290 else
291 {
292 DBG_ERROR("Error creating external OLE object");
293 }
294 }
295 //TODO/LATER: if format is not available, create picture
296 }
297 }
298 else if ( nFormatId == SOT_FORMATSTR_ID_LINK ) // LINK is also in ScImportExport
299 {
300 bRet = PasteDDE( rxTransferable );
301 }
302 else if ( ScImportExport::IsFormatSupported( nFormatId ) || nFormatId == SOT_FORMAT_RTF )
303 {
304 if ( nFormatId == SOT_FORMAT_RTF && aDataHelper.HasFormat( SOT_FORMATSTR_ID_EDITENGINE ) )
305 {
306 // use EditView's PasteSpecial / Drop
307 PasteRTF( nPosX, nPosY, rxTransferable );
308 bRet = sal_True;
309 }
310 else
311 {
312 ScAddress aCellPos( nPosX, nPosY, GetViewData()->GetTabNo() );
313 ScImportExport aObj( GetViewData()->GetDocument(), aCellPos );
314
315 ::rtl::OUString aStr;
316 SotStorageStreamRef xStream;
317 if ( aDataHelper.GetSotStorageStream( nFormatId, xStream ) && xStream.Is() )
318 // mba: clipboard always must contain absolute URLs (could be from alien source)
319 bRet = aObj.ImportStream( *xStream, String(), nFormatId );
320 else if (nFormatId == FORMAT_STRING && aDataHelper.GetString( nFormatId, aStr ))
321 {
322 // Do CSV dialog if more than one line.
323 sal_Int32 nDelim = aStr.indexOf('\n');
324 #if 0
325 ::rtl::OString tmpStr = OUStringToOString( aStr,
326 RTL_TEXTENCODING_UTF8 );
327 fprintf( stderr, "String is '%s' (%d) [%d]\n", tmpStr.getStr(),
328 tmpStr.getLength(), nDelim);
329 #endif
330 if (nDelim >= 0 && nDelim != aStr.getLength () - 1)
331 {
332 ScImportStringStream aStrm( aStr);
333 ScAbstractDialogFactory* pFact =
334 ScAbstractDialogFactory::Create();
335 AbstractScImportAsciiDlg *pDlg =
336 pFact->CreateScImportAsciiDlg( NULL, String(), &aStrm,
337 RID_SCDLG_ASCII);
338
339 if (pDlg->Execute() == RET_OK)
340 {
341 ScAsciiOptions aOptions;
342 pDlg->GetOptions( aOptions );
343 aObj.SetExtOptions( aOptions );
344
345 bRet = aObj.ImportString( aStr, nFormatId );
346
347 // TODO: what if (aObj.IsOverflow())
348 // Content was partially pasted, which can be undone by
349 // the user though.
350 if (aObj.IsOverflow())
351 bRet = sal_False;
352 }
353 else
354 bRet = sal_True;
355 // Yes, no failure, don't raise a "couldn't paste"
356 // dialog if user cancelled.
357 delete pDlg;
358 }
359 else
360 bRet = aObj.ImportString( aStr, nFormatId );
361 }
362 else if (nFormatId != FORMAT_STRING && aDataHelper.GetString( nFormatId, aStr ))
363 bRet = aObj.ImportString( aStr, nFormatId );
364
365 InvalidateAttribs();
366 GetViewData()->UpdateInputHandler();
367 }
368 }
369 else if (nFormatId == SOT_FORMATSTR_ID_SBA_DATAEXCHANGE)
370 {
371 // import of database data into table
372
373 const DataFlavorExVector& rVector = aDataHelper.GetDataFlavorExVector();
374 if ( svx::ODataAccessObjectTransferable::canExtractObjectDescriptor(rVector) )
375 {
376 // transport the whole ODataAccessDescriptor as slot parameter
377 svx::ODataAccessDescriptor aDesc = svx::ODataAccessObjectTransferable::extractObjectDescriptor(aDataHelper);
378 uno::Any aDescAny;
379 uno::Sequence<beans::PropertyValue> aProperties = aDesc.createPropertyValueSequence();
380 aDescAny <<= aProperties;
381 SfxUsrAnyItem aDataDesc(SID_SBA_IMPORT, aDescAny);
382
383 ScDocShell* pDocSh = GetViewData()->GetDocShell();
384 SCTAB nTab = GetViewData()->GetTabNo();
385
386 ClickCursor(nPosX, nPosY, sal_False); // set cursor position
387
388 // Creation of database area "Import1" isn't here, but in the DocShell
389 // slot execute, so it can be added to the undo action
390
391 ScDBData* pDBData = pDocSh->GetDBData( ScRange(nPosX,nPosY,nTab), SC_DB_OLD, SC_DBSEL_KEEP );
392 String sTarget;
393 if (pDBData)
394 sTarget = pDBData->GetName();
395 else
396 {
397 ScAddress aCellPos( nPosX,nPosY,nTab );
398 aCellPos.Format( sTarget, SCA_ABS_3D, pDoc, pDoc->GetAddressConvention() );
399 }
400 SfxStringItem aTarget(FN_PARAM_1, sTarget);
401
402 sal_Bool bAreaIsNew = !pDBData;
403 SfxBoolItem aAreaNew(FN_PARAM_2, bAreaIsNew);
404
405 // asynchronous, to avoid doing the whole import in drop handler
406 SfxDispatcher& rDisp = GetViewData()->GetDispatcher();
407 rDisp.Execute(SID_SBA_IMPORT, SFX_CALLMODE_ASYNCHRON,
408 &aDataDesc, &aTarget, &aAreaNew, (void*)0 );
409
410 bRet = sal_True;
411 }
412 }
413 else if (nFormatId == SOT_FORMATSTR_ID_SBA_FIELDDATAEXCHANGE)
414 {
415 // insert database field control
416
417 if ( ::svx::OColumnTransferable::canExtractColumnDescriptor( aDataHelper.GetDataFlavorExVector(), CTF_COLUMN_DESCRIPTOR | CTF_CONTROL_EXCHANGE ) )
418 {
419 MakeDrawLayer();
420 ScDrawView* pScDrawView = GetScDrawView();
421 SdrObject* pObj = pScDrawView->CreateFieldControl( ::svx::OColumnTransferable::extractColumnDescriptor( aDataHelper ) );
422 if (pObj)
423 {
424 Point aInsPos = aPos;
425 Rectangle aRect(pObj->GetLogicRect());
426 aInsPos.X() -= aRect.GetSize().Width() / 2;
427 aInsPos.Y() -= aRect.GetSize().Height() / 2;
428 if ( aInsPos.X() < 0 ) aInsPos.X() = 0;
429 if ( aInsPos.Y() < 0 ) aInsPos.Y() = 0;
430 aRect.SetPos(aInsPos);
431 pObj->SetLogicRect(aRect);
432
433 if ( pObj->ISA(SdrUnoObj) )
434 pObj->NbcSetLayer(SC_LAYER_CONTROLS);
435 else
436 pObj->NbcSetLayer(SC_LAYER_FRONT);
437 if (pObj->ISA(SdrObjGroup))
438 {
439 SdrObjListIter aIter( *pObj, IM_DEEPWITHGROUPS );
440 SdrObject* pSubObj = aIter.Next();
441 while (pSubObj)
442 {
443 if ( pSubObj->ISA(SdrUnoObj) )
444 pSubObj->NbcSetLayer(SC_LAYER_CONTROLS);
445 else
446 pSubObj->NbcSetLayer(SC_LAYER_FRONT);
447 pSubObj = aIter.Next();
448 }
449 }
450
451 pScDrawView->InsertObjectSafe(pObj, *pScDrawView->GetSdrPageView());
452
453 GetViewData()->GetViewShell()->SetDrawShell( sal_True );
454 bRet = sal_True;
455 }
456 }
457 }
458 else if (nFormatId == SOT_FORMAT_BITMAP || nFormatId == SOT_FORMATSTR_ID_PNG)
459 {
460 BitmapEx aBmpEx;
461 if( aDataHelper.GetBitmapEx( FORMAT_BITMAP, aBmpEx ) )
462 bRet = PasteBitmapEx( aPos, aBmpEx );
463 }
464 else if (nFormatId == SOT_FORMAT_GDIMETAFILE)
465 {
466 GDIMetaFile aMtf;
467 if( aDataHelper.GetGDIMetaFile( FORMAT_GDIMETAFILE, aMtf ) )
468 bRet = PasteMetaFile( aPos, aMtf );
469 }
470 else if (nFormatId == SOT_FORMATSTR_ID_SVXB)
471 {
472 SotStorageStreamRef xStm;
473 if( aDataHelper.GetSotStorageStream( SOT_FORMATSTR_ID_SVXB, xStm ) )
474 {
475 Graphic aGraphic;
476 *xStm >> aGraphic;
477 bRet = PasteGraphic( aPos, aGraphic, EMPTY_STRING, EMPTY_STRING );
478 }
479 }
480 else if ( nFormatId == SOT_FORMATSTR_ID_DRAWING )
481 {
482 SotStorageStreamRef xStm;
483 if( aDataHelper.GetSotStorageStream( SOT_FORMATSTR_ID_DRAWING, xStm ) )
484 {
485 MakeDrawLayer(); // before loading model, so 3D factory has been created
486
487 SvtPathOptions aPathOpt;
488 String aPath = aPathOpt.GetPalettePath();
489
490 ScDocShellRef aDragShellRef( new ScDocShell );
491 aDragShellRef->DoInitNew(NULL);
492 FmFormModel* pModel = new FmFormModel( aPath, NULL, aDragShellRef );
493
494 pModel->GetItemPool().FreezeIdRanges();
495 xStm->Seek(0);
496
497 com::sun::star::uno::Reference< com::sun::star::io::XInputStream > xInputStream( new utl::OInputStreamWrapper( *xStm ) );
498 SvxDrawingLayerImport( pModel, xInputStream );
499
500 // set everything to right layer:
501 sal_uLong nObjCount = 0;
502 sal_uInt16 nPages = pModel->GetPageCount();
503 for (sal_uInt16 i=0; i<nPages; i++)
504 {
505 SdrPage* pPage = pModel->GetPage(i);
506 SdrObjListIter aIter( *pPage, IM_DEEPWITHGROUPS );
507 SdrObject* pObject = aIter.Next();
508 while (pObject)
509 {
510 if ( pObject->ISA(SdrUnoObj) )
511 pObject->NbcSetLayer(SC_LAYER_CONTROLS);
512 else
513 pObject->NbcSetLayer(SC_LAYER_FRONT);
514 pObject = aIter.Next();
515 }
516
517 nObjCount += pPage->GetObjCount(); // #105888# count group object only once
518 }
519
520 PasteDraw( aPos, pModel, (nObjCount > 1) ); // grouped if more than 1 object
521 delete pModel;
522 aDragShellRef->DoClose();
523 bRet = sal_True;
524 }
525 }
526 else if ( (nFormatId == SOT_FORMATSTR_ID_BIFF_5) || (nFormatId == SOT_FORMATSTR_ID_BIFF_8) )
527 {
528 // do excel import into a clipboard document
529 //TODO/MBA: testing
530 uno::Reference < io::XInputStream > xStm;
531 if( aDataHelper.GetInputStream( nFormatId, xStm ) )
532 {
533 #if 0
534 SotStorage aDest( "d:\\test.xls" ); // to see the file
535 pStor->CopyTo( &aDest );
536 #endif
537 ScDocument* pInsDoc = new ScDocument( SCDOCMODE_CLIP );
538 SCTAB nSrcTab = 0; // Biff5 in clipboard: always sheet 0
539 pInsDoc->ResetClip( pDoc, nSrcTab );
540
541 SfxMedium aMed;
542 aMed.GetItemSet()->Put( SfxUsrAnyItem( SID_INPUTSTREAM, uno::makeAny( xStm ) ) );
543 FltError eErr = ScFormatFilter::Get().ScImportExcel( aMed, pInsDoc, EIF_AUTO );
544 if ( eErr == eERR_OK )
545 {
546 ScRange aSource;
547 const ScExtDocOptions* pExtOpt = pInsDoc->GetExtDocOptions();
548 const ScExtTabSettings* pTabSett = pExtOpt ? pExtOpt->GetTabSettings( nSrcTab ) : 0;
549 if( pTabSett && pTabSett->maUsedArea.IsValid() )
550 {
551 aSource = pTabSett->maUsedArea;
552 // ensure correct sheet indexes
553 aSource.aStart.SetTab( nSrcTab );
554 aSource.aEnd.SetTab( nSrcTab );
555 // #92240# don't use selection area: if cursor is moved in Excel after Copy, selection
556 // represents the new cursor position and not the copied area
557 }
558 else
559 {
560 DBG_ERROR("no dimension"); //! possible?
561 SCCOL nFirstCol, nLastCol;
562 SCROW nFirstRow, nLastRow;
563 if ( pInsDoc->GetDataStart( nSrcTab, nFirstCol, nFirstRow ) )
564 pInsDoc->GetCellArea( nSrcTab, nLastCol, nLastRow );
565 else
566 {
567 nFirstCol = nLastCol = 0;
568 nFirstRow = nLastRow = 0;
569 }
570 aSource = ScRange( nFirstCol, nFirstRow, nSrcTab,
571 nLastCol, nLastRow, nSrcTab );
572 }
573
574 if ( pLogicPos )
575 {
576 // position specified (Drag&Drop) - change selection
577 MoveCursorAbs( nPosX, nPosY, SC_FOLLOW_NONE, sal_False, sal_False );
578 Unmark();
579 }
580
581 pInsDoc->SetClipArea( aSource );
582 PasteFromClip( IDF_ALL, pInsDoc,
583 PASTE_NOFUNC, sal_False, sal_False, sal_False, INS_NONE, IDF_NONE,
584 bAllowDialogs );
585 delete pInsDoc;
586
587 bRet = sal_True;
588 }
589 }
590 }
591 else if ( nFormatId == SOT_FORMAT_FILE )
592 {
593 String aFile;
594 if ( aDataHelper.GetString( nFormatId, aFile ) )
595 bRet = PasteFile( aPos, aFile, bLink );
596 }
597 else if ( nFormatId == SOT_FORMAT_FILE_LIST )
598 {
599 FileList aFileList;
600 if ( aDataHelper.GetFileList( nFormatId, aFileList ) )
601 {
602 sal_uLong nCount = aFileList.Count();
603 for( sal_uLong i = 0; i < nCount ; i++ )
604 {
605 String aFile = aFileList.GetFile( i );
606
607 PasteFile( aPos, aFile, bLink );
608 #if 0
609 SfxStringItem aNameItem( FID_INSERT_FILE, aFile );
610 SfxPointItem aPosItem( FN_PARAM_1, aPos );
611 SfxDispatcher* pDisp =
612 GetViewData()->GetViewShell()->GetViewFrame()->GetDispatcher();
613 if (pDisp)
614 pDisp->Execute( FID_INSERT_FILE, SFX_CALLMODE_ASYNCHRON,
615 &aNameItem, &aPosItem, (void*)0 );
616 #endif
617
618 aPos.X() += 400;
619 aPos.Y() += 400;
620 }
621 bRet = sal_True;
622 }
623 }
624 else if ( nFormatId == SOT_FORMATSTR_ID_SOLK ||
625 nFormatId == SOT_FORMATSTR_ID_UNIFORMRESOURCELOCATOR ||
626 nFormatId == SOT_FORMATSTR_ID_NETSCAPE_BOOKMARK ||
627 nFormatId == SOT_FORMATSTR_ID_FILEGRPDESCRIPTOR )
628 {
629 bRet = PasteBookmark( nFormatId, rxTransferable, nPosX, nPosY );
630 }
631
632 pDoc->SetPastingDrawFromOtherDoc( sal_False );
633
634 return bRet;
635 }
636
lcl_GetSubString(sal_Char * pData,long nStart,long nDataSize)637 ByteString lcl_GetSubString( sal_Char* pData, long nStart, long nDataSize )
638 {
639 if ( nDataSize <= nStart /* || pData[nDataSize] != 0 */ )
640 {
641 DBG_ERROR("DDE Data: invalid data");
642 return ByteString();
643 }
644 return ByteString( pData + nStart );
645 }
646
PasteDDE(const uno::Reference<datatransfer::XTransferable> & rxTransferable)647 sal_Bool ScViewFunc::PasteDDE( const uno::Reference<datatransfer::XTransferable>& rxTransferable )
648 {
649 TransferableDataHelper aDataHelper( rxTransferable );
650
651 // get link data from transferable before string data,
652 // so the source knows it will be used for a link
653
654 uno::Sequence<sal_Int8> aSequence;
655 if ( !aDataHelper.GetSequence( SOT_FORMATSTR_ID_LINK, aSequence ) )
656 {
657 DBG_ERROR("DDE Data not found.");
658 return sal_False;
659 }
660
661 // check size (only if string is available in transferable)
662
663 sal_uInt16 nCols = 1;
664 sal_uInt16 nRows = 1;
665 if ( aDataHelper.HasFormat( SOT_FORMAT_STRING ) )
666 {
667 String aDataStr;
668 if ( aDataHelper.GetString( SOT_FORMAT_STRING, aDataStr ) )
669 {
670 // get size from string the same way as in ScDdeLink::DataChanged
671
672 aDataStr.ConvertLineEnd(LINEEND_LF);
673 xub_StrLen nLen = aDataStr.Len();
674 if (nLen && aDataStr.GetChar(nLen-1) == '\n')
675 aDataStr.Erase(nLen-1);
676
677 if (aDataStr.Len())
678 {
679 nRows = aDataStr.GetTokenCount( '\n' );
680 String aLine = aDataStr.GetToken( 0, '\n' );
681 if (aLine.Len())
682 nCols = aLine.GetTokenCount( '\t' );
683 }
684 }
685 }
686
687 // create formula
688
689 long nSeqLen = aSequence.getLength();
690 sal_Char* pData = (sal_Char*)aSequence.getConstArray();
691
692 rtl_TextEncoding eSysEnc = gsl_getSystemTextEncoding();
693
694 ByteString aByteApp = lcl_GetSubString( pData, 0, nSeqLen );
695 ByteString aByteTopic = lcl_GetSubString( pData, aByteApp.Len() + 1, nSeqLen );
696 ByteString aByteItem = lcl_GetSubString( pData, aByteApp.Len() + aByteTopic.Len() + 2, nSeqLen );
697
698 String aApp( aByteApp, eSysEnc );
699 String aTopic( aByteTopic, eSysEnc );
700 String aItem( aByteItem, eSysEnc );
701
702 // TODO: we could define ocQuote for "
703 const String aQuote( '"' );
704 const String& sSep = ScCompiler::GetNativeSymbol( ocSep);
705 String aFormula( '=' );
706 aFormula += ScCompiler::GetNativeSymbol( ocDde);
707 aFormula += ScCompiler::GetNativeSymbol( ocOpen);
708 aFormula += aQuote;
709 aFormula += aApp;
710 aFormula += aQuote;
711 aFormula += sSep;
712 aFormula += aQuote;
713 aFormula += aTopic;
714 aFormula += aQuote;
715 aFormula += sSep;
716 aFormula += aQuote;
717 aFormula += aItem;
718 aFormula += aQuote;
719 aFormula += ScCompiler::GetNativeSymbol( ocClose);
720
721 // mark range
722
723 SCTAB nTab = GetViewData()->GetTabNo();
724 SCCOL nCurX = GetViewData()->GetCurX();
725 SCROW nCurY = GetViewData()->GetCurY();
726 HideAllCursors();
727 DoneBlockMode();
728 InitBlockMode( nCurX, nCurY, nTab );
729 MarkCursor( nCurX+static_cast<SCCOL>(nCols)-1, nCurY+static_cast<SCROW>(nRows)-1, nTab );
730 ShowAllCursors();
731
732 // enter formula
733
734 EnterMatrix( aFormula );
735 CursorPosChanged();
736
737 return sal_True;
738 }
739
740
741