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
27
28
29 // INCLUDE ---------------------------------------------------------------
30
31 #include <rsc/rscsfx.hxx>
32 #include <sfx2/docfile.hxx>
33 #include <sfx2/objsh.hxx>
34 #include <tools/debug.hxx>
35 #include <vos/xception.hxx>
36 #include <comphelper/processfactory.hxx>
37 #include <unotools/streamwrap.hxx>
38 #include <svx/xmlgrhlp.hxx>
39 #include <svtools/sfxecode.hxx>
40 #include <sfx2/frame.hxx>
41 #include <svl/itemset.hxx>
42 #include <svl/stritem.hxx>
43 #include <sfx2/sfxsids.hrc>
44 #include <tools/urlobj.hxx>
45 #include <com/sun/star/container/XChild.hpp>
46 #include <com/sun/star/beans/XPropertySetInfo.hpp>
47 #include <com/sun/star/xml/sax/XErrorHandler.hpp>
48 #include <com/sun/star/xml/sax/XEntityResolver.hpp>
49 #include <com/sun/star/xml/sax/InputSource.hpp>
50 #include <com/sun/star/xml/sax/XDTDHandler.hpp>
51 #include <com/sun/star/xml/sax/XParser.hpp>
52 #include <com/sun/star/io/XActiveDataSource.hpp>
53 #include <com/sun/star/io/XActiveDataControl.hpp>
54 #include <com/sun/star/frame/XModel.hpp>
55 #include <com/sun/star/task/XStatusIndicatorFactory.hpp>
56 #include <com/sun/star/beans/PropertyAttribute.hpp>
57 #include <comphelper/extract.hxx>
58 #include <comphelper/propertysetinfo.hxx>
59 #include <comphelper/genericpropertyset.hxx>
60 #include <com/sun/star/container/XNameContainer.hpp>
61 #include <com/sun/star/lang/DisposedException.hpp>
62 #include <com/sun/star/packages/zip/ZipIOException.hpp>
63 #include <com/sun/star/embed/ElementModes.hpp>
64 #include <com/sun/star/script/vba/XVBACompatibility.hpp>
65 #include <com/sun/star/rdf/XDocumentMetadataAccess.hpp>
66 #include <com/sun/star/ucb/InteractiveAugmentedIOException.hpp>
67
68 #include <sfx2/DocumentMetadataAccess.hxx>
69 #include <comphelper/componentcontext.hxx>
70 #include <comphelper/documentconstants.hxx>
71 #include <svx/xmleohlp.hxx>
72 #include <rtl/logfile.hxx>
73 #include <unotools/saveopt.hxx>
74
75 #include "document.hxx"
76 #include "xmlwrap.hxx"
77 #include "xmlimprt.hxx"
78 #include "xmlexprt.hxx"
79 #include "global.hxx"
80 #include "globstr.hrc"
81 #include "scerrors.hxx"
82 #include "XMLExportSharedData.hxx"
83 #include "docuno.hxx"
84 #include "sheetdata.hxx"
85 #include "XMLCodeNameProvider.hxx"
86
87 #define MAP_LEN(x) x, sizeof(x) - 1
88
89 using namespace com::sun::star;
90 using ::rtl::OUString;
91
92 // -----------------------------------------------------------------------
93
ScXMLImportWrapper(ScDocument & rD,SfxMedium * pM,const uno::Reference<embed::XStorage> & xStor)94 ScXMLImportWrapper::ScXMLImportWrapper(ScDocument& rD, SfxMedium* pM, const uno::Reference < embed::XStorage >& xStor ) :
95 rDoc(rD),
96 pMedium(pM),
97 xStorage(xStor)
98 {
99 DBG_ASSERT( pMedium || xStorage.is(), "ScXMLImportWrapper: Medium or Storage must be set" );
100 }
101
102 //UNUSED2008-05 uno::Reference <task::XStatusIndicator> ScXMLImportWrapper::GetStatusIndicator(
103 //UNUSED2008-05 uno::Reference < frame::XModel> & rModel)
104 //UNUSED2008-05 {
105 //UNUSED2008-05 DBG_ERROR( "The status indicator from medium must be used!" );
106 //UNUSED2008-05
107 //UNUSED2008-05 uno::Reference<task::XStatusIndicator> xStatusIndicator;
108 //UNUSED2008-05
109 //UNUSED2008-05 if (rModel.is())
110 //UNUSED2008-05 {
111 //UNUSED2008-05 uno::Reference<frame::XController> xController( rModel->getCurrentController());
112 //UNUSED2008-05 if ( xController.is())
113 //UNUSED2008-05 {
114 //UNUSED2008-05 uno::Reference<task::XStatusIndicatorFactory> xFactory( xController->getFrame(), uno::UNO_QUERY );
115 //UNUSED2008-05 if ( xFactory.is())
116 //UNUSED2008-05 {
117 //UNUSED2008-05 try
118 //UNUSED2008-05 {
119 //UNUSED2008-05 xStatusIndicator.set(xFactory->createStatusIndicator());
120 //UNUSED2008-05 }
121 //UNUSED2008-05 catch ( lang::DisposedException e )
122 //UNUSED2008-05 {
123 //UNUSED2008-05 DBG_ERROR("Exception while trying to get a Status Indicator");
124 //UNUSED2008-05 }
125 //UNUSED2008-05 }
126 //UNUSED2008-05 }
127 //UNUSED2008-05 }
128 //UNUSED2008-05 return xStatusIndicator;
129 //UNUSED2008-05 }
130
GetStatusIndicator()131 uno::Reference <task::XStatusIndicator> ScXMLImportWrapper::GetStatusIndicator()
132 {
133 uno::Reference<task::XStatusIndicator> xStatusIndicator;
134 if (pMedium)
135 {
136 SfxItemSet* pSet = pMedium->GetItemSet();
137 if (pSet)
138 {
139 const SfxUnoAnyItem* pItem = static_cast<const SfxUnoAnyItem*>(pSet->GetItem(SID_PROGRESS_STATUSBAR_CONTROL));
140 if (pItem)
141 xStatusIndicator.set(pItem->GetValue(), uno::UNO_QUERY);
142 }
143 }
144 return xStatusIndicator;
145 }
146
ImportFromComponent(uno::Reference<lang::XMultiServiceFactory> & xServiceFactory,uno::Reference<frame::XModel> & xModel,uno::Reference<uno::XInterface> & xXMLParser,xml::sax::InputSource & aParserInput,const rtl::OUString & sComponentName,const rtl::OUString & sDocName,const rtl::OUString & sOldDocName,uno::Sequence<uno::Any> & aArgs,sal_Bool bMustBeSuccessfull)147 sal_uInt32 ScXMLImportWrapper::ImportFromComponent(uno::Reference<lang::XMultiServiceFactory>& xServiceFactory,
148 uno::Reference<frame::XModel>& xModel, uno::Reference<uno::XInterface>& xXMLParser,
149 xml::sax::InputSource& aParserInput,
150 const rtl::OUString& sComponentName, const rtl::OUString& sDocName,
151 const rtl::OUString& sOldDocName, uno::Sequence<uno::Any>& aArgs,
152 sal_Bool bMustBeSuccessfull)
153 {
154 uno::Reference < io::XStream > xDocStream;
155 if ( !xStorage.is() && pMedium )
156 xStorage = pMedium->GetStorage();
157
158 // Get data source ...
159
160 // uno::Reference< uno::XInterface > xPipe;
161 // uno::Reference< io::XActiveDataSource > xSource;
162
163 sal_Bool bEncrypted = sal_False;
164 rtl::OUString sStream(sDocName);
165 if( xStorage.is() )
166 {
167 try
168 {
169 uno::Reference < container::XNameAccess > xAccess( xStorage, uno::UNO_QUERY );
170 if ( xAccess->hasByName(sDocName) && xStorage->isStreamElement( sDocName) )
171 xDocStream = xStorage->openStreamElement( sDocName, embed::ElementModes::READ );
172 else if (sOldDocName.getLength() && xAccess->hasByName(sOldDocName) && xStorage->isStreamElement( sOldDocName) )
173 {
174 xDocStream = xStorage->openStreamElement( sOldDocName, embed::ElementModes::READ );
175 sStream = sOldDocName;
176 }
177 else
178 return sal_False;
179
180 aParserInput.aInputStream = xDocStream->getInputStream();
181 uno::Reference < beans::XPropertySet > xSet( xDocStream, uno::UNO_QUERY );
182
183 uno::Any aAny = xSet->getPropertyValue( OUString( RTL_CONSTASCII_USTRINGPARAM("Encrypted") ) );
184 aAny >>= bEncrypted;
185 }
186 catch( packages::WrongPasswordException& )
187 {
188 return ERRCODE_SFX_WRONGPASSWORD;
189 }
190 catch( packages::zip::ZipIOException& )
191 {
192 return ERRCODE_IO_BROKENPACKAGE;
193 }
194 catch( uno::Exception& )
195 {
196 return SCERR_IMPORT_UNKNOWN;
197 }
198 }
199 // #99667#; no longer necessary
200 /* else if ( pMedium )
201 {
202 // if there is a medium and if this medium has a load environment,
203 // we get an active data source from the medium.
204 pMedium->GetInStream()->Seek( 0 );
205 xSource = pMedium->GetDataSource();
206 DBG_ASSERT( xSource.is(), "got no data source from medium" );
207 if( !xSource.is() )
208 return sal_False;
209
210 // get a pipe for connecting the data source to the parser
211 xPipe = xServiceFactory->createInstance(
212 OUString::createFromAscii("com.sun.star.io.Pipe") );
213 DBG_ASSERT( xPipe.is(),
214 "XMLReader::Read: com.sun.star.io.Pipe service missing" );
215 if( !xPipe.is() )
216 return sal_False;
217
218 // connect pipe's output stream to the data source
219 uno::Reference<io::XOutputStream> xPipeOutput( xPipe, uno::UNO_QUERY );
220 xSource->setOutputStream( xPipeOutput );
221
222 aParserInput.aInputStream =
223 uno::Reference< io::XInputStream >( xPipe, uno::UNO_QUERY );
224 }*/
225 else
226 return SCERR_IMPORT_UNKNOWN;
227
228 // set Base URL
229 uno::Reference< beans::XPropertySet > xInfoSet;
230 if( aArgs.getLength() > 0 )
231 aArgs.getConstArray()[0] >>= xInfoSet;
232 DBG_ASSERT( xInfoSet.is(), "missing property set" );
233 if( xInfoSet.is() )
234 {
235 rtl::OUString sPropName( RTL_CONSTASCII_USTRINGPARAM("StreamName") );
236 xInfoSet->setPropertyValue( sPropName, uno::makeAny( sStream ) );
237 }
238
239 sal_uInt32 nReturn(0);
240 rDoc.SetRangeOverflowType(0); // is modified by the importer if limits are exceeded
241
242 uno::Reference<xml::sax::XDocumentHandler> xDocHandler(
243 xServiceFactory->createInstanceWithArguments(
244 sComponentName, aArgs ),
245 uno::UNO_QUERY );
246 DBG_ASSERT( xDocHandler.is(), "can't get Calc importer" );
247 uno::Reference<document::XImporter> xImporter( xDocHandler, uno::UNO_QUERY );
248 uno::Reference<lang::XComponent> xComponent( xModel, uno::UNO_QUERY );
249 if (xImporter.is())
250 xImporter->setTargetDocument( xComponent );
251
252 // connect parser and filter
253 uno::Reference<xml::sax::XParser> xParser( xXMLParser, uno::UNO_QUERY );
254 xParser->setDocumentHandler( xDocHandler );
255
256 // parse
257 /* if( xSource.is() )
258 {
259 uno::Reference<io::XActiveDataControl> xSourceControl( xSource, uno::UNO_QUERY );
260 if( xSourceControl.is() )
261 xSourceControl->start();
262 }*/
263
264 try
265 {
266 xParser->parseStream( aParserInput );
267 }
268 catch( xml::sax::SAXParseException& r )
269 {
270 // sax parser sends wrapped exceptions,
271 // try to find the original one
272 xml::sax::SAXException aSaxEx = *(xml::sax::SAXException*)(&r);
273 sal_Bool bTryChild = sal_True;
274
275 while( bTryChild )
276 {
277 xml::sax::SAXException aTmp;
278 if ( aSaxEx.WrappedException >>= aTmp )
279 aSaxEx = aTmp;
280 else
281 bTryChild = sal_False;
282 }
283
284 packages::zip::ZipIOException aBrokenPackage;
285 if ( aSaxEx.WrappedException >>= aBrokenPackage )
286 return ERRCODE_IO_BROKENPACKAGE;
287 else if( bEncrypted )
288 nReturn = ERRCODE_SFX_WRONGPASSWORD;
289 else
290 {
291
292 #ifdef DBG_UTIL
293 ByteString aError( "SAX parse exception caught while importing:\n" );
294 aError += ByteString( String( r.Message), RTL_TEXTENCODING_ASCII_US );
295 DBG_ERROR( aError.GetBuffer() );
296 #endif
297
298 String sErr( String::CreateFromInt32( r.LineNumber ));
299 sErr += ',';
300 sErr += String::CreateFromInt32( r.ColumnNumber );
301
302 if( sDocName.getLength() )
303 {
304 nReturn = *new TwoStringErrorInfo(
305 (bMustBeSuccessfull ? SCERR_IMPORT_FILE_ROWCOL
306 : SCWARN_IMPORT_FILE_ROWCOL),
307 sDocName, sErr,
308 ERRCODE_BUTTON_OK | ERRCODE_MSG_ERROR );
309 }
310 else
311 {
312 DBG_ASSERT( bMustBeSuccessfull, "Warnings are not supported" );
313 nReturn = *new StringErrorInfo( SCERR_IMPORT_FORMAT_ROWCOL, sErr,
314 ERRCODE_BUTTON_OK | ERRCODE_MSG_ERROR );
315 }
316 }
317 }
318 catch( xml::sax::SAXException& r )
319 {
320 packages::zip::ZipIOException aBrokenPackage;
321 if ( r.WrappedException >>= aBrokenPackage )
322 return ERRCODE_IO_BROKENPACKAGE;
323 else if( bEncrypted )
324 nReturn = ERRCODE_SFX_WRONGPASSWORD;
325 else
326 {
327
328 #ifdef DBG_UTIL
329 ByteString aError( "SAX exception caught while importing:\n" );
330 aError += ByteString( String( r.Message), RTL_TEXTENCODING_ASCII_US );
331 DBG_ERROR( aError.GetBuffer() );
332 #endif
333 (void)r; // avoid warning in product version
334
335 nReturn = SCERR_IMPORT_FORMAT;
336 }
337 }
338 catch( packages::zip::ZipIOException& r )
339 {
340 #ifdef DBG_UTIL
341 ByteString aError( "Zip exception caught while importing:\n" );
342 aError += ByteString( String( r.Message), RTL_TEXTENCODING_ASCII_US );
343 DBG_ERROR( aError.GetBuffer() );
344 #endif
345 (void)r; // avoid warning in product version
346
347 nReturn = ERRCODE_IO_BROKENPACKAGE;
348 }
349 catch( io::IOException& r )
350 {
351 #ifdef DBG_UTIL
352 ByteString aError( "IO exception caught while importing:\n" );
353 aError += ByteString( String( r.Message), RTL_TEXTENCODING_ASCII_US );
354 DBG_ERROR( aError.GetBuffer() );
355 #endif
356 (void)r; // avoid warning in product version
357
358 nReturn = SCERR_IMPORT_OPEN;
359 }
360 catch( uno::Exception& r )
361 {
362 #ifdef DBG_UTIL
363 ByteString aError( "uno exception caught while importing:\n" );
364 aError += ByteString( String( r.Message), RTL_TEXTENCODING_ASCII_US );
365 DBG_ERROR( aError.GetBuffer() );
366 #endif
367 (void)r; // avoid warning in product version
368
369 nReturn = SCERR_IMPORT_UNKNOWN;
370 }
371
372 // #i31130# Can't use getImplementation here to get the ScXMLImport from xDocHandler,
373 // because when OOo 1.x files are loaded, xDocHandler is the OOo2OasisTransformer.
374 // So the overflow warning ErrorCode is now stored in the document.
375 // Export works differently, there getImplementation still works.
376
377 if (rDoc.HasRangeOverflow() && !nReturn)
378 nReturn = rDoc.GetRangeOverflowType();
379
380 // free the component
381 xParser->setDocumentHandler( NULL );
382
383 // success!
384 return nReturn;
385 }
386
Import(sal_Bool bStylesOnly,ErrCode & nError)387 sal_Bool ScXMLImportWrapper::Import(sal_Bool bStylesOnly, ErrCode& nError)
388 {
389 RTL_LOGFILE_CONTEXT_AUTHOR ( aLog, "sc", "sb99857", "ScXMLImportWrapper::Import" );
390
391 uno::Reference<lang::XMultiServiceFactory> xServiceFactory =
392 comphelper::getProcessServiceFactory();
393 DBG_ASSERT( xServiceFactory.is(), "got no service manager" );
394 if( !xServiceFactory.is() )
395 return sal_False;
396
397 xml::sax::InputSource aParserInput;
398 if (pMedium)
399 aParserInput.sSystemId = OUString(pMedium->GetName());
400
401 if ( !xStorage.is() && pMedium )
402 xStorage = pMedium->GetStorage();
403
404 // get parser
405 uno::Reference<uno::XInterface> xXMLParser(
406 xServiceFactory->createInstance(
407 OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.xml.sax.Parser" )) ));
408 DBG_ASSERT( xXMLParser.is(), "com.sun.star.xml.sax.Parser service missing" );
409 if( !xXMLParser.is() )
410 return sal_False;
411
412 // get filter
413 SfxObjectShell* pObjSh = rDoc.GetDocumentShell();
414 if ( pObjSh )
415 {
416 rtl::OUString sEmpty;
417 uno::Reference<frame::XModel> xModel(pObjSh->GetModel());
418
419 /** property map for export info set */
420 comphelper::PropertyMapEntry aImportInfoMap[] =
421 {
422 { MAP_LEN( "ProgressRange" ), 0, &::getCppuType((sal_Int32*)0), ::com::sun::star::beans::PropertyAttribute::MAYBEVOID, 0},
423 { MAP_LEN( "ProgressMax" ), 0, &::getCppuType((sal_Int32*)0), ::com::sun::star::beans::PropertyAttribute::MAYBEVOID, 0},
424 { MAP_LEN( "ProgressCurrent" ), 0, &::getCppuType((sal_Int32*)0), ::com::sun::star::beans::PropertyAttribute::MAYBEVOID, 0},
425 { MAP_LEN( "NumberStyles" ), 0, &::getCppuType((uno::Reference<container::XNameAccess> *)0), ::com::sun::star::beans::PropertyAttribute::MAYBEVOID, 0},
426 { MAP_LEN( "PrivateData" ), 0, &::getCppuType( (uno::Reference<uno::XInterface> *)0 ), ::com::sun::star::beans::PropertyAttribute::MAYBEVOID, 0 },
427 { MAP_LEN( "BaseURI" ), 0, &::getCppuType( (rtl::OUString *)0 ), ::com::sun::star::beans::PropertyAttribute::MAYBEVOID, 0 },
428 { MAP_LEN( "StreamRelPath" ), 0, &::getCppuType( (rtl::OUString *)0 ), ::com::sun::star::beans::PropertyAttribute::MAYBEVOID, 0 },
429 { MAP_LEN( "StreamName" ), 0, &::getCppuType( (rtl::OUString *)0 ), ::com::sun::star::beans::PropertyAttribute::MAYBEVOID, 0 },
430 { MAP_LEN( "BuildId" ), 0, &::getCppuType( (OUString *)0 ), ::com::sun::star::beans::PropertyAttribute::MAYBEVOID, 0 },
431 { MAP_LEN( "VBACompatibilityMode" ), 0, &::getBooleanCppuType(), ::com::sun::star::beans::PropertyAttribute::MAYBEVOID, 0 },
432 { MAP_LEN( "ScriptConfiguration" ), 0, &::getCppuType((uno::Reference<container::XNameAccess> *)0), ::com::sun::star::beans::PropertyAttribute::MAYBEVOID, 0},
433 { MAP_LEN( "OrganizerMode" ), 0, &::getBooleanCppuType(),
434 ::com::sun::star::beans::PropertyAttribute::MAYBEVOID, 0 },
435
436 { NULL, 0, 0, NULL, 0, 0 }
437 };
438 uno::Reference< beans::XPropertySet > xInfoSet( comphelper::GenericPropertySet_CreateInstance( new comphelper::PropertySetInfo( aImportInfoMap ) ) );
439
440 // ---- get BuildId from parent container if available
441
442 uno::Reference< container::XChild > xChild( xModel, uno::UNO_QUERY );
443 if( xChild.is() )
444 {
445 uno::Reference< beans::XPropertySet > xParentSet( xChild->getParent(), uno::UNO_QUERY );
446 if( xParentSet.is() )
447 {
448 uno::Reference< beans::XPropertySetInfo > xPropSetInfo( xParentSet->getPropertySetInfo() );
449 OUString sPropName( RTL_CONSTASCII_USTRINGPARAM("BuildId" ) );
450 if( xPropSetInfo.is() && xPropSetInfo->hasPropertyByName(sPropName) )
451 {
452 xInfoSet->setPropertyValue( sPropName, xParentSet->getPropertyValue(sPropName) );
453 }
454 }
455 }
456
457 // -------------------------------------
458
459 uno::Reference<task::XStatusIndicator> xStatusIndicator(GetStatusIndicator());
460 if (xStatusIndicator.is())
461 {
462 sal_Int32 nProgressRange(1000000);
463 xStatusIndicator->start(rtl::OUString(ScGlobal::GetRscString(STR_LOAD_DOC)), nProgressRange);
464 xInfoSet->setPropertyValue(rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("ProgressRange")), uno::makeAny(nProgressRange));
465 }
466
467 // Set base URI
468 OSL_ENSURE( pMedium, "There is no medium to get MediaDescriptor from!\n" );
469 ::rtl::OUString aBaseURL = pMedium ? pMedium->GetBaseURL() : ::rtl::OUString();
470 rtl::OUString sPropName( RTL_CONSTASCII_USTRINGPARAM("BaseURI") );
471 xInfoSet->setPropertyValue( sPropName, uno::makeAny( aBaseURL ) );
472
473 // TODO/LATER: do not do it for embedded links
474 OUString aName;
475 if( SFX_CREATE_MODE_EMBEDDED == pObjSh->GetCreateMode() )
476 {
477 if ( pMedium && pMedium->GetItemSet() )
478 {
479 const SfxStringItem* pDocHierarchItem = static_cast<const SfxStringItem*>(
480 pMedium->GetItemSet()->GetItem(SID_DOC_HIERARCHICALNAME) );
481 if ( pDocHierarchItem )
482 aName = pDocHierarchItem->GetValue();
483 }
484 else
485 aName = ::rtl::OUString::createFromAscii( "dummyObjectName" );
486
487 if( aName.getLength() )
488 {
489 sPropName = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("StreamRelPath"));
490 xInfoSet->setPropertyValue( sPropName, uno::makeAny( aName ) );
491 }
492 }
493
494 if (bStylesOnly)
495 {
496 ::rtl::OUString const sOrganizerMode(
497 RTL_CONSTASCII_USTRINGPARAM("OrganizerMode"));
498 xInfoSet->setPropertyValue(sOrganizerMode, uno::makeAny(sal_True));
499 }
500
501 sal_Bool bOasis = ( SotStorage::GetVersion( xStorage ) > SOFFICE_FILEFORMAT_60 );
502
503 if (!bStylesOnly && bOasis)
504 {
505 // RDF metadata: ODF >= 1.2
506 try
507 {
508 ::comphelper::ComponentContext aContext( xServiceFactory );
509 const uno::Reference< rdf::XDocumentMetadataAccess > xDMA(
510 xModel, uno::UNO_QUERY_THROW );
511 const uno::Reference< rdf::XURI > xBaseURI(
512 ::sfx2::createBaseURI( aContext.getUNOContext(), xStorage, aBaseURL, aName ) );
513 const uno::Reference< task::XInteractionHandler > xHandler(
514 pObjSh->GetMedium()->GetInteractionHandler() );
515 xDMA->loadMetadataFromStorage( xStorage, xBaseURI, xHandler );
516 }
517 catch (lang::WrappedTargetException & e)
518 {
519 ucb::InteractiveAugmentedIOException iaioe;
520 if ( e.TargetException >>= iaioe )
521 {
522 nError = SCERR_IMPORT_UNKNOWN;
523 }
524 else
525 {
526 nError = SCWARN_IMPORT_FEATURES_LOST;
527 }
528 }
529 catch (uno::Exception &)
530 {
531 nError = SCWARN_IMPORT_FEATURES_LOST;
532 }
533 }
534
535 // #i103539#: always read meta.xml for generator
536 sal_uInt32 nMetaRetval(0);
537 uno::Sequence<uno::Any> aMetaArgs(1);
538 uno::Any* pMetaArgs = aMetaArgs.getArray();
539 pMetaArgs[0] <<= xInfoSet;
540
541 RTL_LOGFILE_CONTEXT_TRACE( aLog, "meta import start" );
542
543 nMetaRetval = ImportFromComponent(
544 xServiceFactory, xModel, xXMLParser, aParserInput,
545 bOasis ? rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.Calc.XMLOasisMetaImporter"))
546 : rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.Calc.XMLMetaImporter")),
547 rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("meta.xml")),
548 rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Meta.xml")), aMetaArgs,
549 sal_False);
550
551 RTL_LOGFILE_CONTEXT_TRACE( aLog, "meta import end" );
552
553 SvXMLGraphicHelper* pGraphicHelper = NULL;
554 uno::Reference< document::XGraphicObjectResolver > xGrfContainer;
555
556 uno::Reference< document::XEmbeddedObjectResolver > xObjectResolver;
557 SvXMLEmbeddedObjectHelper *pObjectHelper = NULL;
558
559 if( xStorage.is() )
560 {
561 pGraphicHelper = SvXMLGraphicHelper::Create( xStorage, GRAPHICHELPER_MODE_READ );
562 xGrfContainer = pGraphicHelper;
563
564 if( pObjSh )
565 {
566 pObjectHelper = SvXMLEmbeddedObjectHelper::Create(xStorage, *pObjSh, EMBEDDEDOBJECTHELPER_MODE_READ, sal_False );
567 xObjectResolver = pObjectHelper;
568 }
569 }
570 uno::Sequence<uno::Any> aStylesArgs(4);
571 uno::Any* pStylesArgs = aStylesArgs.getArray();
572 pStylesArgs[0] <<= xInfoSet;
573 pStylesArgs[1] <<= xGrfContainer;
574 pStylesArgs[2] <<= xStatusIndicator;
575 pStylesArgs[3] <<= xObjectResolver;
576
577 sal_uInt32 nSettingsRetval(0);
578 if (!bStylesOnly)
579 {
580 // Settings must be loaded first because of the printer setting,
581 // which is needed in the page styles (paper tray).
582
583 uno::Sequence<uno::Any> aSettingsArgs(1);
584 uno::Any* pSettingsArgs = aSettingsArgs.getArray();
585 pSettingsArgs[0] <<= xInfoSet;
586
587 RTL_LOGFILE_CONTEXT_TRACE( aLog, "settings import start" );
588
589 nSettingsRetval = ImportFromComponent(xServiceFactory, xModel, xXMLParser, aParserInput,
590 bOasis ? rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.Calc.XMLOasisSettingsImporter"))
591 : rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.Calc.XMLSettingsImporter")),
592 rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("settings.xml")),
593 sEmpty, aSettingsArgs, sal_False);
594
595 RTL_LOGFILE_CONTEXT_TRACE( aLog, "settings import end" );
596 }
597
598 sal_uInt32 nStylesRetval(0);
599 {
600 RTL_LOGFILE_CONTEXT_TRACE( aLog, "styles import start" );
601
602 nStylesRetval = ImportFromComponent(xServiceFactory, xModel, xXMLParser, aParserInput,
603 bOasis ? rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.Calc.XMLOasisStylesImporter"))
604 : rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.Calc.XMLStylesImporter")),
605 rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("styles.xml")),
606 sEmpty, aStylesArgs, sal_True);
607
608 RTL_LOGFILE_CONTEXT_TRACE( aLog, "styles import end" );
609 }
610
611 sal_uInt32 nDocRetval(0);
612 if (!bStylesOnly)
613 {
614 uno::Sequence<uno::Any> aDocArgs(4);
615 uno::Any* pDocArgs = aDocArgs.getArray();
616 pDocArgs[0] <<= xInfoSet;
617 pDocArgs[1] <<= xGrfContainer;
618 pDocArgs[2] <<= xStatusIndicator;
619 pDocArgs[3] <<= xObjectResolver;
620
621 RTL_LOGFILE_CONTEXT_TRACE( aLog, "content import start" );
622
623 nDocRetval = ImportFromComponent(xServiceFactory, xModel, xXMLParser, aParserInput,
624 bOasis ? rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.Calc.XMLOasisContentImporter"))
625 : rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.Calc.XMLContentImporter")),
626 rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("content.xml")),
627 rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Content.xml")), aDocArgs,
628 sal_True);
629
630 RTL_LOGFILE_CONTEXT_TRACE( aLog, "content import end" );
631 }
632 if( pGraphicHelper )
633 SvXMLGraphicHelper::Destroy( pGraphicHelper );
634
635 if( pObjectHelper )
636 SvXMLEmbeddedObjectHelper::Destroy( pObjectHelper );
637
638 if (xStatusIndicator.is())
639 xStatusIndicator->end();
640
641 sal_Bool bRet(sal_False);
642 if (bStylesOnly)
643 {
644 if (nStylesRetval)
645 nError = nStylesRetval;
646 else
647 bRet = sal_True;
648 }
649 else
650 {
651 if (nDocRetval)
652 {
653 nError = nDocRetval;
654 if (nDocRetval == SCWARN_IMPORT_RANGE_OVERFLOW ||
655 nDocRetval == SCWARN_IMPORT_ROW_OVERFLOW ||
656 nDocRetval == SCWARN_IMPORT_COLUMN_OVERFLOW ||
657 nDocRetval == SCWARN_IMPORT_SHEET_OVERFLOW)
658 bRet = sal_True;
659 }
660 else if (nStylesRetval)
661 nError = nStylesRetval;
662 else if (nMetaRetval)
663 nError = nMetaRetval;
664 else if (nSettingsRetval)
665 nError = nSettingsRetval;
666 else
667 bRet = sal_True;
668 }
669
670 // set BuildId on XModel for later OLE object loading
671 if( xInfoSet.is() )
672 {
673 uno::Reference< beans::XPropertySet > xModelSet( xModel, uno::UNO_QUERY );
674 if( xModelSet.is() )
675 {
676 uno::Reference< beans::XPropertySetInfo > xModelSetInfo( xModelSet->getPropertySetInfo() );
677 OUString sBuildPropName( RTL_CONSTASCII_USTRINGPARAM("BuildId" ) );
678 if( xModelSetInfo.is() && xModelSetInfo->hasPropertyByName(sBuildPropName) )
679 {
680 xModelSet->setPropertyValue( sBuildPropName, xInfoSet->getPropertyValue(sBuildPropName) );
681 }
682 }
683
684 // Set Code Names
685 uno::Any aAny = xInfoSet->getPropertyValue(OUString(RTL_CONSTASCII_USTRINGPARAM("ScriptConfiguration") ));
686 uno::Reference <container::XNameAccess> xCodeNameAccess;
687 if( aAny >>= xCodeNameAccess )
688 XMLCodeNameProvider::set( xCodeNameAccess, &rDoc );
689
690 // VBA compatibility
691 bool bVBACompat = false;
692 if ( (xInfoSet->getPropertyValue(OUString(RTL_CONSTASCII_USTRINGPARAM("VBACompatibilityMode"))) >>= bVBACompat) && bVBACompat )
693 {
694 /* Set library container to VBA compatibility mode, this
695 forces loading the Basic project, which in turn creates the
696 VBA Globals object and does all related initialization. */
697 if ( xModelSet.is() ) try
698 {
699 uno::Reference< script::vba::XVBACompatibility > xVBACompat( xModelSet->getPropertyValue(
700 OUString( RTL_CONSTASCII_USTRINGPARAM( "BasicLibraries" ) ) ), uno::UNO_QUERY_THROW );
701 xVBACompat->setVBACompatibilityMode( sal_True );
702 }
703 catch( uno::Exception& )
704 {
705 }
706 }
707 }
708
709 // Don't test bStylesRetval and bMetaRetval, because it could be an older file which not contain such streams
710 return bRet;//!bStylesOnly ? bDocRetval : bStylesRetval;
711 }
712 return sal_False;
713 }
714
lcl_HasValidStream(ScDocument & rDoc)715 bool lcl_HasValidStream(ScDocument& rDoc)
716 {
717 SfxObjectShell* pObjSh = rDoc.GetDocumentShell();
718 if ( pObjSh->IsDocShared() )
719 return false; // never copy stream from shared file
720
721 // don't read remote file again
722 // (could instead re-use medium directly in that case)
723 SfxMedium* pSrcMed = rDoc.GetDocumentShell()->GetMedium();
724 if ( !pSrcMed || pSrcMed->IsRemote() )
725 return false;
726
727 SCTAB nTabCount = rDoc.GetTableCount();
728 for (SCTAB nTab=0; nTab<nTabCount; ++nTab)
729 if (rDoc.IsStreamValid(nTab))
730 return true;
731 return false;
732 }
733
ExportToComponent(uno::Reference<lang::XMultiServiceFactory> & xServiceFactory,uno::Reference<frame::XModel> & xModel,uno::Reference<uno::XInterface> & xWriter,uno::Sequence<beans::PropertyValue> & aDescriptor,const rtl::OUString & sName,const rtl::OUString & sMediaType,const rtl::OUString & sComponentName,const sal_Bool bPlainText,uno::Sequence<uno::Any> & aArgs,ScMySharedData * & pSharedData)734 sal_Bool ScXMLImportWrapper::ExportToComponent(uno::Reference<lang::XMultiServiceFactory>& xServiceFactory,
735 uno::Reference<frame::XModel>& xModel, uno::Reference<uno::XInterface>& xWriter,
736 uno::Sequence<beans::PropertyValue>& aDescriptor, const rtl::OUString& sName,
737 const rtl::OUString& sMediaType, const rtl::OUString& sComponentName,
738 const sal_Bool bPlainText, uno::Sequence<uno::Any>& aArgs, ScMySharedData*& pSharedData)
739 {
740 sal_Bool bRet(sal_False);
741 uno::Reference<io::XOutputStream> xOut;
742 uno::Reference<io::XStream> xStream;
743
744 if ( !xStorage.is() && pMedium )
745 xStorage = pMedium->GetOutputStorage();
746
747 if( xStorage.is() )
748 {
749 // #96807#; trunc stream before use, because it could be an existing stream
750 // and the new content could be shorter than the old content. In this case
751 // would not all be over written by the new content and the xml file
752 // would not be valid.
753 xStream = xStorage->openStreamElement( sName, embed::ElementModes::READWRITE | embed::ElementModes::TRUNCATE );
754 uno::Reference < beans::XPropertySet > xSet( xStream, uno::UNO_QUERY );
755 if (xSet.is())
756 {
757 xSet->setPropertyValue(rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("MediaType")), uno::makeAny(sMediaType));
758 OUString aUseCommonPassPropName( RTL_CONSTASCII_USTRINGPARAM("UseCommonStoragePasswordEncryption") );
759 if (bPlainText)
760 xSet->setPropertyValue(rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Compressed")), uno::makeAny(sal_False));
761
762 // even plain stream should be encrypted in encrypted documents
763 xSet->setPropertyValue( aUseCommonPassPropName, uno::makeAny(sal_True) );
764 }
765
766 xOut = xStream->getOutputStream();
767 }
768 // #99667#; no longer necessary
769 /* else if ( pMedium )
770 {
771 xOut = pMedium->GetDataSink();
772 }*/
773
774 // set Base URL
775 uno::Reference< beans::XPropertySet > xInfoSet;
776 if( aArgs.getLength() > 0 )
777 aArgs.getConstArray()[0] >>= xInfoSet;
778 DBG_ASSERT( xInfoSet.is(), "missing property set" );
779 if( xInfoSet.is() )
780 {
781 rtl::OUString sPropName( RTL_CONSTASCII_USTRINGPARAM("StreamName") );
782 xInfoSet->setPropertyValue( sPropName, uno::makeAny( sName ) );
783 }
784
785 uno::Reference<io::XActiveDataSource> xSrc( xWriter, uno::UNO_QUERY );
786 xSrc->setOutputStream( xOut );
787
788 uno::Reference<document::XFilter> xFilter(
789 xServiceFactory->createInstanceWithArguments( sComponentName , aArgs ),
790 uno::UNO_QUERY );
791 DBG_ASSERT( xFilter.is(), "can't get exporter" );
792 uno::Reference<document::XExporter> xExporter( xFilter, uno::UNO_QUERY );
793 uno::Reference<lang::XComponent> xComponent( xModel, uno::UNO_QUERY );
794 if (xExporter.is())
795 xExporter->setSourceDocument( xComponent );
796
797 if ( xFilter.is() )
798 {
799 ScXMLExport* pExport = static_cast<ScXMLExport*>(SvXMLExport::getImplementation(xFilter));
800 pExport->SetSharedData(pSharedData);
801
802 // if there are sheets to copy, get the source stream
803 if ( sName.equalsAscii("content.xml") && lcl_HasValidStream(rDoc) &&
804 ( pExport->getExportFlags() & EXPORT_OASIS ) )
805 {
806 // old stream is still in this file's storage - open read-only
807
808 // #i106854# use the document's storage directly, without a temporary SfxMedium
809 uno::Reference<embed::XStorage> xTmpStorage = rDoc.GetDocumentShell()->GetStorage();
810 uno::Reference<io::XStream> xSrcStream;
811 uno::Reference<io::XInputStream> xSrcInput;
812
813 // #i108978# If an embedded object is saved and no events are notified, don't use the stream
814 // because without the ...DONE events, stream positions aren't updated.
815 ScSheetSaveData* pSheetData = ScModelObj::getImplementation(xModel)->GetSheetSaveData();
816 if (pSheetData && pSheetData->IsInSupportedSave())
817 {
818 try
819 {
820 if (xTmpStorage.is())
821 xSrcStream = xTmpStorage->openStreamElement( sName, embed::ElementModes::READ );
822 if (xSrcStream.is())
823 xSrcInput = xSrcStream->getInputStream();
824 }
825 catch (uno::Exception&)
826 {
827 // stream not available (for example, password protected) - save normally (xSrcInput is null)
828 }
829 }
830
831 pExport->SetSourceStream( xSrcInput );
832 bRet = xFilter->filter( aDescriptor );
833 pExport->SetSourceStream( uno::Reference<io::XInputStream>() );
834
835 // If there was an error, reset all stream flags, so the next save attempt will use normal saving.
836 // #i110692# For embedded objects, the stream may be unavailable for one save operation (m_pAntiImpl)
837 // and become available again later. But after saving normally once, the stream positions aren't
838 // valid anymore, so the flags also have to be reset if the stream wasn't available.
839 if ( !bRet || !xSrcInput.is() )
840 {
841 SCTAB nTabCount = rDoc.GetTableCount();
842 for (SCTAB nTab=0; nTab<nTabCount; nTab++)
843 if (rDoc.IsStreamValid(nTab))
844 rDoc.SetStreamValid(nTab, sal_False);
845 }
846 }
847 else
848 bRet = xFilter->filter( aDescriptor );
849
850 pSharedData = pExport->GetSharedData();
851
852 //stream is closed by SAX parser
853 //if (xOut.is())
854 // xOut->closeOutput();
855 }
856 return bRet;
857 }
858
Export(sal_Bool bStylesOnly)859 sal_Bool ScXMLImportWrapper::Export(sal_Bool bStylesOnly)
860 {
861 RTL_LOGFILE_CONTEXT_AUTHOR ( aLog, "sc", "sb99857", "ScXMLImportWrapper::Export" );
862
863 uno::Reference<lang::XMultiServiceFactory> xServiceFactory(comphelper::getProcessServiceFactory());
864 DBG_ASSERT( xServiceFactory.is(), "got no service manager" );
865 if( !xServiceFactory.is() )
866 return sal_False;
867
868 uno::Reference<uno::XInterface> xWriter(xServiceFactory->createInstance(
869 OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.xml.sax.Writer" )) ));
870 DBG_ASSERT( xWriter.is(), "com.sun.star.xml.sax.Writer service missing" );
871 if(!xWriter.is())
872 return sal_False;
873
874 if ( !xStorage.is() && pMedium )
875 xStorage = pMedium->GetOutputStorage();
876
877 uno::Reference<xml::sax::XDocumentHandler> xHandler( xWriter, uno::UNO_QUERY );
878
879 OUString sFileName;
880 OUString sTextMediaType(RTL_CONSTASCII_USTRINGPARAM("text/xml"));
881 if (pMedium)
882 sFileName = pMedium->GetName();
883 SfxObjectShell* pObjSh = rDoc.GetDocumentShell();
884 uno::Sequence<beans::PropertyValue> aDescriptor(1);
885 beans::PropertyValue* pProps = aDescriptor.getArray();
886 pProps[0].Name = OUString( RTL_CONSTASCII_USTRINGPARAM( "FileName" ) );
887 pProps[0].Value <<= sFileName;
888
889 /** property map for export info set */
890 comphelper::PropertyMapEntry aExportInfoMap[] =
891 {
892 { MAP_LEN( "ProgressRange" ), 0, &::getCppuType((sal_Int32*)0), ::com::sun::star::beans::PropertyAttribute::MAYBEVOID, 0},
893 { MAP_LEN( "ProgressMax" ), 0, &::getCppuType((sal_Int32*)0), ::com::sun::star::beans::PropertyAttribute::MAYBEVOID, 0},
894 { MAP_LEN( "ProgressCurrent" ), 0, &::getCppuType((sal_Int32*)0), ::com::sun::star::beans::PropertyAttribute::MAYBEVOID, 0},
895 { MAP_LEN( "WrittenNumberStyles" ), 0, &::getCppuType((uno::Sequence<sal_Int32>*)0), ::com::sun::star::beans::PropertyAttribute::MAYBEVOID, 0},
896 { MAP_LEN( "UsePrettyPrinting" ), 0, &::getCppuType((sal_Bool*)0), ::com::sun::star::beans::PropertyAttribute::MAYBEVOID, 0},
897 { MAP_LEN( "BaseURI" ), 0, &::getCppuType( (rtl::OUString *)0 ), ::com::sun::star::beans::PropertyAttribute::MAYBEVOID, 0 },
898 { MAP_LEN( "StreamRelPath" ), 0, &::getCppuType( (rtl::OUString *)0 ), ::com::sun::star::beans::PropertyAttribute::MAYBEVOID, 0 },
899 { MAP_LEN( "StreamName" ), 0, &::getCppuType( (rtl::OUString *)0 ), ::com::sun::star::beans::PropertyAttribute::MAYBEVOID, 0 },
900 { MAP_LEN( "StyleNames" ), 0, &::getCppuType( (uno::Sequence<rtl::OUString>*)0 ), ::com::sun::star::beans::PropertyAttribute::MAYBEVOID, 0 },
901 { MAP_LEN( "StyleFamilies" ), 0, &::getCppuType( (uno::Sequence<sal_Int32>*)0 ), ::com::sun::star::beans::PropertyAttribute::MAYBEVOID, 0 },
902 { MAP_LEN( "TargetStorage" ), 0, &embed::XStorage::static_type(), ::com::sun::star::beans::PropertyAttribute::MAYBEVOID, 0 },
903 { NULL, 0, 0, NULL, 0, 0 }
904 };
905 uno::Reference< beans::XPropertySet > xInfoSet( comphelper::GenericPropertySet_CreateInstance( new comphelper::PropertySetInfo( aExportInfoMap ) ) );
906
907 if ( pObjSh && xStorage.is() )
908 {
909 pObjSh->UpdateDocInfoForSave(); // update information
910
911 uno::Reference<frame::XModel> xModel(pObjSh->GetModel());
912 uno::Reference<task::XStatusIndicator> xStatusIndicator(GetStatusIndicator());
913 sal_Int32 nProgressRange(1000000);
914 if(xStatusIndicator.is())
915 xStatusIndicator->start(rtl::OUString(ScGlobal::GetRscString(STR_SAVE_DOC)), nProgressRange);
916 xInfoSet->setPropertyValue(rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("ProgressRange")), uno::makeAny(nProgressRange));
917
918 SvtSaveOptions aSaveOpt;
919 sal_Bool bUsePrettyPrinting(aSaveOpt.IsPrettyPrinting());
920 xInfoSet->setPropertyValue(rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("UsePrettyPrinting")), uno::makeAny(bUsePrettyPrinting));
921
922 const OUString sTargetStorage( RTL_CONSTASCII_USTRINGPARAM("TargetStorage") );
923 xInfoSet->setPropertyValue( sTargetStorage, uno::Any( xStorage ) );
924
925 OSL_ENSURE( pMedium, "There is no medium to get MediaDescriptor from!\n" );
926 ::rtl::OUString aBaseURL = pMedium ? pMedium->GetBaseURL( true ) : ::rtl::OUString();
927 rtl::OUString sPropName( RTL_CONSTASCII_USTRINGPARAM("BaseURI") );
928 xInfoSet->setPropertyValue( sPropName, uno::makeAny( aBaseURL ) );
929
930 // TODO/LATER: do not do it for embedded links
931 if( SFX_CREATE_MODE_EMBEDDED == pObjSh->GetCreateMode() )
932 {
933 OUString aName = ::rtl::OUString::createFromAscii( "dummyObjectName" );
934 if ( pMedium && pMedium->GetItemSet() )
935 {
936 const SfxStringItem* pDocHierarchItem = static_cast<const SfxStringItem*>(
937 pMedium->GetItemSet()->GetItem(SID_DOC_HIERARCHICALNAME) );
938 if ( pDocHierarchItem )
939 aName = pDocHierarchItem->GetValue();
940 }
941
942 if( aName.getLength() )
943 {
944 sPropName = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("StreamRelPath"));
945 xInfoSet->setPropertyValue( sPropName, uno::makeAny( aName ) );
946 }
947 }
948
949 sal_Bool bMetaRet(pObjSh->GetCreateMode() == SFX_CREATE_MODE_EMBEDDED);
950 sal_Bool bStylesRet (sal_False);
951 sal_Bool bDocRet(sal_False);
952 sal_Bool bSettingsRet(sal_False);
953 ScMySharedData* pSharedData = NULL;
954
955 sal_Bool bOasis = ( SotStorage::GetVersion( xStorage ) > SOFFICE_FILEFORMAT_60 );
956
957 // RDF metadata: ODF >= 1.2
958 if ( !bStylesOnly && bOasis )
959 {
960 const uno::Reference< beans::XPropertySet > xPropSet( xStorage, uno::UNO_QUERY_THROW );
961 try
962 {
963 ::rtl::OUString aVersion;
964 if (( xPropSet->getPropertyValue(
965 rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Version"))) >>= aVersion )
966 && !aVersion.equals(ODFVER_010_TEXT)
967 && !aVersion.equals(ODFVER_011_TEXT) )
968 {
969 const uno::Reference< rdf::XDocumentMetadataAccess > xDMA(
970 xModel, uno::UNO_QUERY_THROW );
971 xDMA->storeMetadataToStorage( xStorage );
972 }
973 }
974 catch (beans::UnknownPropertyException &)
975 {
976 }
977 catch (uno::Exception &)
978 {
979 }
980 }
981
982 // meta export
983 if (!bStylesOnly && !bMetaRet)
984 {
985 uno::Sequence<uno::Any> aMetaArgs(3);
986 uno::Any* pMetaArgs = aMetaArgs.getArray();
987 pMetaArgs[0] <<= xInfoSet;
988 pMetaArgs[1] <<= xHandler;
989 pMetaArgs[2] <<= xStatusIndicator;
990
991 RTL_LOGFILE_CONTEXT_TRACE( aLog, "meta export start" );
992
993 bMetaRet = ExportToComponent(xServiceFactory, xModel, xWriter, aDescriptor,
994 rtl::OUString (RTL_CONSTASCII_USTRINGPARAM("meta.xml")),
995 sTextMediaType,
996 bOasis ? rtl::OUString (RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.Calc.XMLOasisMetaExporter"))
997 : rtl::OUString (RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.Calc.XMLMetaExporter")),
998 sal_True, aMetaArgs, pSharedData);
999
1000 RTL_LOGFILE_CONTEXT_TRACE( aLog, "meta export end" );
1001 }
1002
1003 uno::Reference< document::XEmbeddedObjectResolver > xObjectResolver;
1004 SvXMLEmbeddedObjectHelper *pObjectHelper = 0;
1005
1006 uno::Reference< document::XGraphicObjectResolver > xGrfContainer;
1007 SvXMLGraphicHelper* pGraphicHelper = 0;
1008
1009 if( xStorage.is() )
1010 {
1011 pGraphicHelper = SvXMLGraphicHelper::Create( xStorage, GRAPHICHELPER_MODE_WRITE, sal_False );
1012 xGrfContainer = pGraphicHelper;
1013 }
1014
1015 if( pObjSh )
1016 {
1017 pObjectHelper = SvXMLEmbeddedObjectHelper::Create( xStorage, *pObjSh, EMBEDDEDOBJECTHELPER_MODE_WRITE, sal_False );
1018 xObjectResolver = pObjectHelper;
1019 }
1020
1021 // styles export
1022
1023 {
1024 uno::Sequence<uno::Any> aStylesArgs(5);
1025 uno::Any* pStylesArgs = aStylesArgs.getArray();
1026 pStylesArgs[0] <<= xInfoSet;
1027 pStylesArgs[1] <<= xGrfContainer;
1028 pStylesArgs[2] <<= xStatusIndicator;
1029 pStylesArgs[3] <<= xHandler;
1030 pStylesArgs[4] <<= xObjectResolver;
1031
1032 RTL_LOGFILE_CONTEXT_TRACE( aLog, "styles export start" );
1033
1034 bStylesRet = ExportToComponent(xServiceFactory, xModel, xWriter, aDescriptor,
1035 rtl::OUString (RTL_CONSTASCII_USTRINGPARAM("styles.xml")),
1036 sTextMediaType,
1037 bOasis ? rtl::OUString (RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.Calc.XMLOasisStylesExporter"))
1038 : rtl::OUString (RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.Calc.XMLStylesExporter")),
1039 sal_False, aStylesArgs, pSharedData);
1040
1041 RTL_LOGFILE_CONTEXT_TRACE( aLog, "styles export end" );
1042 }
1043
1044 // content export
1045
1046 if (!bStylesOnly)
1047 {
1048 uno::Sequence<uno::Any> aDocArgs(5);
1049 uno::Any* pDocArgs = aDocArgs.getArray();
1050 pDocArgs[0] <<= xInfoSet;
1051 pDocArgs[1] <<= xGrfContainer;
1052 pDocArgs[2] <<= xStatusIndicator;
1053 pDocArgs[3] <<= xHandler;
1054 pDocArgs[4] <<= xObjectResolver;
1055
1056 RTL_LOGFILE_CONTEXT_TRACE( aLog, "content export start" );
1057
1058 bDocRet = ExportToComponent(xServiceFactory, xModel, xWriter, aDescriptor,
1059 rtl::OUString (RTL_CONSTASCII_USTRINGPARAM("content.xml")),
1060 sTextMediaType,
1061 bOasis ? rtl::OUString (RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.Calc.XMLOasisContentExporter"))
1062 : rtl::OUString (RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.Calc.XMLContentExporter")),
1063 sal_False, aDocArgs, pSharedData);
1064
1065 RTL_LOGFILE_CONTEXT_TRACE( aLog, "content export end" );
1066 }
1067
1068 if( pGraphicHelper )
1069 SvXMLGraphicHelper::Destroy( pGraphicHelper );
1070
1071 if( pObjectHelper )
1072 SvXMLEmbeddedObjectHelper::Destroy( pObjectHelper );
1073
1074 // settings export
1075
1076 if (!bStylesOnly)
1077 {
1078 uno::Sequence<uno::Any> aSettingsArgs(3);
1079 uno::Any* pSettingsArgs = aSettingsArgs.getArray();
1080 pSettingsArgs[0] <<= xInfoSet;
1081 pSettingsArgs[1] <<= xHandler;
1082 pSettingsArgs[2] <<= xStatusIndicator;
1083
1084 RTL_LOGFILE_CONTEXT_TRACE( aLog, "settings export start" );
1085
1086 bSettingsRet = ExportToComponent(xServiceFactory, xModel, xWriter, aDescriptor,
1087 rtl::OUString (RTL_CONSTASCII_USTRINGPARAM("settings.xml")),
1088 sTextMediaType,
1089 bOasis ? rtl::OUString (RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.Calc.XMLOasisSettingsExporter"))
1090 : rtl::OUString (RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.Calc.XMLSettingsExporter")),
1091 sal_False, aSettingsArgs, pSharedData);
1092
1093 RTL_LOGFILE_CONTEXT_TRACE( aLog, "settings export end" );
1094 }
1095
1096 if (pSharedData)
1097 delete pSharedData;
1098
1099 if (xStatusIndicator.is())
1100 xStatusIndicator->end();
1101 return bStylesRet && ((!bStylesOnly && bDocRet && bMetaRet && bSettingsRet) || bStylesOnly);
1102 }
1103
1104 // later: give string descriptor as parameter for doc type
1105
1106 return sal_False;
1107 }
1108
1109