filter/source/xsltdialog/xmlfiltertestdialog.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: xmlfiltertestdialog.cxx,v $
  10  * $Revision: 1.15 $
  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
  31 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_filter.hxx"
  33 #include <com/sun/star/frame/XConfigManager.hpp>
  34 #include <com/sun/star/xml/sax/XDocumentHandler.hpp>
  35 #ifndef _COM_SUN_STAR_DOCUMENT_XGRAPHICOBJECTRESOLVER_HXX_
  36 #include <com/sun/star/document/XGraphicObjectResolver.hpp>
  37 #endif
  38 #ifndef _COM_SUN_STAR_DOCUMENT_XEMBEDDEDOBJECTRESOLVER_HXX_
  39 #include <com/sun/star/document/XEmbeddedObjectResolver.hpp>
  40 #endif
  41 #include <com/sun/star/xml/XImportFilter.hpp>
  42 #include <com/sun/star/xml/XExportFilter.hpp>
  43 #include <com/sun/star/io/XActiveDataSource.hpp>
  44 #include <com/sun/star/document/XDocumentPropertiesSupplier.hpp>
  45 #include <com/sun/star/frame/XComponentLoader.hpp>
  46 #include <com/sun/star/frame/XStorable.hpp>
  47 #include <com/sun/star/beans/XPropertySet.hpp>
  48 #include <com/sun/star/frame/XDesktop.hpp>
  49 #include <com/sun/star/document/XFilter.hpp>
  50 #include <comphelper/oslfile2streamwrap.hxx>
  51 #include <com/sun/star/document/XExporter.hpp>
  52 #include <com/sun/star/task/XInteractionHandler.hpp>
  53
  54 #include "com/sun/star/ui/dialogs/TemplateDescription.hpp"
  55 #include <vcl/svapp.hxx>
  56 #include <vos/mutex.hxx>
  57 #include <sfx2/filedlghelper.hxx>
  58 #include <osl/file.hxx>
  59 #include <unotools/tempfile.hxx>
  60 #include <tools/urlobj.hxx>
  61
  62 #include "xmlfilterdialogstrings.hrc"
  63 #include "xmlfiltersettingsdialog.hxx"
  64 #include "xmlfiltertestdialog.hxx"
  65 #include "xmlfiltertestdialog.hrc"
  66 #include "xmlfileview.hxx"
  67
  68
  69 using namespace rtl;
  70 using namespace utl;
  71 using namespace osl;
  72 using namespace vos;
  73 using namespace comphelper;
  74 using namespace com::sun::star::lang;
  75 using namespace com::sun::star::beans;
  76 using namespace com::sun::star::container;
  77 using namespace com::sun::star::document;
  78 using namespace com::sun::star::frame;
  79 using namespace com::sun::star::task;
  80 using namespace com::sun::star::uno;
  81 using namespace com::sun::star::io;
  82 using namespace com::sun::star::xml;
  83 using namespace com::sun::star::xml::sax;
  84
  85 class GlobalEventListenerImpl : public ::cppu::WeakImplHelper1< com::sun::star::document::XEventListener >
  86 {
  87 public:
  88     GlobalEventListenerImpl( XMLFilterTestDialog* pDialog );
  89
  90     // XEventListener
  91     virtual void SAL_CALL notifyEvent( const com::sun::star::document::EventObject& Event ) throw (RuntimeException);
  92
  93     // lang::XEventListener
  94     virtual void SAL_CALL disposing( const com::sun::star::lang::EventObject& Source ) throw (RuntimeException);
  95 private:
  96     XMLFilterTestDialog* mpDialog;
  97 };
  98
  99 GlobalEventListenerImpl::GlobalEventListenerImpl( XMLFilterTestDialog* pDialog )
 100 : mpDialog( pDialog )
 101 {
 102 }
 103
 104 void SAL_CALL GlobalEventListenerImpl::notifyEvent( const com::sun::star::document::EventObject& Event ) throw (RuntimeException)
 105 {
 106     OGuard aGuard( Application::GetSolarMutex() );
 107     if( (Event.EventName.compareToAscii( RTL_CONSTASCII_STRINGPARAM("OnFocus") ) == 0) ||
 108         (Event.EventName.compareToAscii( RTL_CONSTASCII_STRINGPARAM("OnUnload") ) == 0) )
 109     {
 110         Reference< XComponent > xComp( Event.Source, UNO_QUERY );
 111         mpDialog->updateCurrentDocumentButtonState( &xComp );
 112     }
 113 }
 114
 115 void SAL_CALL GlobalEventListenerImpl::disposing( const com::sun::star::lang::EventObject& /* Source */ ) throw (RuntimeException)
 116 {
 117 }
 118
 119 /** returns true if the given component supports the given service */
 120 static bool checkComponent( Reference< XComponent >& rxComponent, const OUString& rServiceName )
 121 {
 122     try
 123     {
 124         Reference< XServiceInfo > xInfo( rxComponent, UNO_QUERY );
 125         if( xInfo.is() )
 126         {
 127             if( xInfo->supportsService( rServiceName ) )
 128             {
 129                 // special case for impress documents which supports same service as draw documents
 130                 if( rServiceName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM( "com.sun.star.drawing.DrawingDocument" ) ) )
 131                 {
 132                     // so if we want a draw we need to check if its not an impress
 133                     if( !xInfo->supportsService( OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.presentation.PresentationDocument") ) ) )
 134                         return true;
 135                 }
 136                 else
 137                 {
 138                     return true;
 139                 }
 140             }
 141         }
 142     }
 143     catch( Exception& )
 144     {
 145         DBG_ERROR( "checkComponent exception catched!" );
 146     }
 147
 148     return false;
 149 }
 150
 151 XMLFilterTestDialog::XMLFilterTestDialog( Window* pParent, ResMgr& rResMgr, const com::sun::star::uno::Reference< com::sun::star::lang::XMultiServiceFactory >& rxMSF ) :
 152     ModalDialog( pParent, ResId( DLG_XML_FILTER_TEST_DIALOG, rResMgr ) ),
 153     mxMSF( rxMSF ),
 154     mrResMgr( rResMgr ),
 155
 156     maFLExport( this, ResId( FL_EXPORT, rResMgr ) ),
 157     maFTExportXSLT( this, ResId( FT_EXPORT_XSLT, rResMgr ) ),
 158     maFTExportXSLTFile( this, ResId( FT_EXPORT_XSLT_FILE, rResMgr ) ),
 159     maFTTransformDocument( this, ResId( FT_TRANSFORM_DOCUMENT, rResMgr ) ),
 160     maPBExportBrowse( this, ResId( PB_EXPORT_BROWSE, rResMgr ) ),
 161     maPBCurrentDocument( this, ResId( PB_CURRENT_DOCUMENT, rResMgr ) ),
 162     maFTNameOfCurentFile( this, ResId( FT_NAME_OF_CURRENT_FILE, rResMgr ) ),
 163     maFLImport( this, ResId( FL_IMPORT, rResMgr ) ),
 164     maFTImportXSLT( this, ResId( FT_IMPORT_XSLT, rResMgr ) ),
 165     maFTImportXSLTFile( this, ResId( FT_IMPORT_XSLT_FILE, rResMgr ) ),
 166     maFTImportTemplate( this, ResId( FT_IMPORT_TEMPLATE, rResMgr ) ),
 167     maFTImportTemplateFile( this, ResId( FT_IMPORT_TEMPLATE_FILE, rResMgr ) ),
 168     maFTTransformFile( this, ResId( FT_TRANSFORM_FILE, rResMgr ) ),
 169     maCBXDisplaySource( this, ResId( CBX_DISPLAY_SOURCE, rResMgr ) ),
 170     maPBImportBrowse( this, ResId( PB_IMPORT_BROWSE, rResMgr ) ),
 171     maPBRecentDocument( this, ResId( PB_RECENT_DOCUMENT, rResMgr ) ),
 172     maFTNameOfRecentFile( this, ResId( FT_NAME_OF_RECENT_FILE, rResMgr ) ),
 173     maPBClose( this, ResId( PB_CLOSE, rResMgr ) ),
 174     maPBHelp( this, ResId( PB_HELP, rResMgr ) ),
 175     mpSourceDLG( NULL ),
 176     mpFilterInfo( NULL ),
 177     sDTDPath( RTL_CONSTASCII_USTRINGPARAM( "$(inst)/share/dtd/officedocument/1_0/office.dtd" ) )
 178 {
 179     FreeResource();
 180
 181     maPBExportBrowse.SetClickHdl(LINK( this, XMLFilterTestDialog, ClickHdl_Impl ) );
 182     maPBCurrentDocument.SetClickHdl(LINK( this, XMLFilterTestDialog, ClickHdl_Impl ) );
 183     maPBImportBrowse.SetClickHdl(LINK( this, XMLFilterTestDialog, ClickHdl_Impl ) );
 184     maPBRecentDocument.SetClickHdl(LINK( this, XMLFilterTestDialog, ClickHdl_Impl ) );
 185     maPBClose.SetClickHdl(LINK( this, XMLFilterTestDialog, ClickHdl_Impl ) );
 186
 187     maDialogTitle = GetText();
 188
 189     try
 190     {
 191         Reference< XConfigManager > xCfgMgr( mxMSF->createInstance( OUString::createFromAscii("com.sun.star.config.SpecialConfigManager")), UNO_QUERY );
 192         if( xCfgMgr.is() )
 193             sDTDPath = xCfgMgr->substituteVariables( sDTDPath );
 194
 195         mxGlobalBroadcaster = Reference < XEventBroadcaster >::query( mxMSF->createInstance(::rtl::OUString::createFromAscii("com.sun.star.frame.GlobalEventBroadcaster") ) );
 196         if ( mxGlobalBroadcaster.is() )
 197         {
 198             mxGlobalEventListener = new GlobalEventListenerImpl( this );
 199             mxGlobalBroadcaster->addEventListener( mxGlobalEventListener );
 200         }
 201     }
 202     catch( Exception& )
 203     {
 204         DBG_ERROR( "XMLFilterTestDialog::XMLFilterTestDialog exception catched!" );
 205     }
 206 }
 207
 208 XMLFilterTestDialog::~XMLFilterTestDialog()
 209 {
 210     try
 211     {
 212         if( mxGlobalBroadcaster.is() )
 213             mxGlobalBroadcaster->removeEventListener( mxGlobalEventListener );
 214     }
 215     catch( Exception& )
 216     {
 217         DBG_ERROR( "XMLFilterTestDialog::~XMLFilterTestDialog exception catched!" );
 218     }
 219
 220     delete mpSourceDLG;
 221     delete mpFilterInfo;
 222 }
 223
 224 void XMLFilterTestDialog::test( const filter_info_impl& rFilterInfo )
 225 {
 226     delete mpFilterInfo;
 227     mpFilterInfo = new filter_info_impl( rFilterInfo );
 228
 229     maImportRecentFile = OUString();
 230
 231     initDialog();
 232
 233     Execute();
 234 }
 235
 236 static OUString getFileNameFromURL( OUString& rURL )
 237 {
 238     INetURLObject aURL( rURL );
 239     OUString aName( aURL.getName(INetURLObject::LAST_SEGMENT, sal_True, INetURLObject::DECODE_WITH_CHARSET) );
 240     return aName;
 241 }
 242
 243 void XMLFilterTestDialog::updateCurrentDocumentButtonState( Reference< XComponent > * pRef /* = NULL */ )
 244 {
 245     if( pRef && pRef->is() )
 246     {
 247         if( checkComponent( *pRef, mpFilterInfo->maDocumentService ) )
 248             mxLastFocusModel = *pRef;
 249     }
 250
 251     bool bExport = (mpFilterInfo->maFlags & 2) == 2;
 252     Reference< XComponent > xCurrentDocument;
 253     if( bExport )
 254         xCurrentDocument = getFrontMostDocument( mpFilterInfo->maDocumentService );
 255     maPBCurrentDocument.Enable( bExport && xCurrentDocument.is() );
 256     maFTNameOfCurentFile.Enable( bExport && xCurrentDocument.is() );
 257
 258     if( xCurrentDocument.is() )
 259     {
 260         OUString aTitle;
 261         Reference< XDocumentPropertiesSupplier > xDPS( xCurrentDocument, UNO_QUERY );
 262         if( xDPS.is() )
 263         {
 264             Reference< XDocumentProperties > xProps( xDPS->getDocumentProperties() );
 265             if( xProps.is() )
 266             {
 267                 aTitle = xProps->getTitle();
 268             }
 269         }
 270
 271         if( 0 == aTitle.getLength() )
 272         {
 273             Reference< XStorable > xStorable( xCurrentDocument, UNO_QUERY );
 274             if( xStorable.is() )
 275             {
 276                 if( xStorable->hasLocation() )
 277                 {
 278                     OUString aURL( xStorable->getLocation() );
 279                     aTitle = getFileNameFromURL( aURL );
 280                 }
 281             }
 282         }
 283
 284         maFTNameOfCurentFile.SetText( aTitle );
 285     }
 286 }
 287
 288 void XMLFilterTestDialog::initDialog()
 289 {
 290     DBG_ASSERT( mpFilterInfo, "i need a filter I can test!" );
 291     if( NULL == mpFilterInfo )
 292         return;
 293
 294     String aTitle( maDialogTitle );
 295     aTitle.SearchAndReplace( String( RTL_CONSTASCII_USTRINGPARAM("%s") ), mpFilterInfo->maFilterName );
 296     SetText( aTitle );
 297
 298     String aEmpty;
 299     bool bImport = (mpFilterInfo->maFlags & 1) == 1;
 300     bool bExport = (mpFilterInfo->maFlags & 2) == 2;
 301
 302     updateCurrentDocumentButtonState();
 303
 304     maFLExport.Enable( bExport );
 305     maFTExportXSLT.Enable( bExport );
 306     maFTExportXSLTFile.Enable( bExport );
 307     maFTTransformDocument.Enable( bExport );
 308     maPBExportBrowse.Enable( bExport );
 309
 310     maFTExportXSLTFile.SetText( getFileNameFromURL( mpFilterInfo->maExportXSLT ) );
 311
 312     // ---
 313
 314     maFLImport.Enable( bImport );
 315     maFTImportXSLT.Enable( bImport );
 316     maFTImportXSLTFile.Enable( bImport );
 317     maFTImportTemplate.Enable( bImport && mpFilterInfo->maImportTemplate.getLength() );
 318     maFTImportTemplateFile.Enable( bImport && mpFilterInfo->maImportTemplate.getLength() );
 319     maFTTransformFile.Enable( bImport );
 320     maCBXDisplaySource.Enable( bImport );
 321     maPBImportBrowse.Enable( bImport );
 322     maPBRecentDocument.Enable( bImport && maImportRecentFile.getLength() );
 323     maFTNameOfRecentFile.Enable( bImport && maImportRecentFile.getLength() );
 324
 325     maFTImportXSLTFile.SetText( getFileNameFromURL( mpFilterInfo->maImportXSLT ) );
 326     maFTImportTemplateFile.SetText( getFileNameFromURL( mpFilterInfo->maImportTemplate ) );
 327     maFTNameOfRecentFile.SetText( getFileNameFromURL( maImportRecentFile ) );
 328 }
 329
 330 void XMLFilterTestDialog::onExportBrowse()
 331 {
 332     try
 333     {
 334         // Open Fileopen-Dialog
 335            ::sfx2::FileDialogHelper aDlg(
 336             com::sun::star::ui::dialogs::TemplateDescription::FILEOPEN_SIMPLE,
 337             0 );
 338
 339         Reference< XNameAccess > xFilterContainer( mxMSF->createInstance( OUString::createFromAscii("com.sun.star.document.FilterFactory" ) ), UNO_QUERY );
 340         Reference< XNameAccess > xTypeDetection( mxMSF->createInstance( OUString::createFromAscii("com.sun.star.document.TypeDetection" ) ), UNO_QUERY );
 341         if( xFilterContainer.is() && xTypeDetection.is() )
 342         {
 343             Sequence< OUString > aFilterNames( xFilterContainer->getElementNames() );
 344             OUString* pFilterName = aFilterNames.getArray();
 345
 346             for( sal_Int32 nFilter = 0; nFilter < aFilterNames.getLength(); nFilter++, pFilterName++ )
 347             {
 348                 Sequence< PropertyValue > aValues;
 349
 350                 Any aAny( xFilterContainer->getByName( *pFilterName ) );
 351                 if( !(aAny >>= aValues) )
 352                     continue;
 353
 354                 OUString aInterfaceName;
 355                 PropertyValue* pValues = aValues.getArray();
 356                 OUString aType, aService;
 357                 sal_Int32 nFlags( 0 );
 358
 359                 int nFound = 0;
 360
 361                 for( sal_Int32  nValue = 0; (nValue < aValues.getLength()) && (nFound != 15); nValue++, pValues++ )
 362                 {
 363                     if( pValues->Name.equalsAscii( "Type" ) )
 364                     {
 365                         pValues->Value >>= aType;
 366                         nFound |= 1;
 367                     }
 368                     else if( pValues->Name.equalsAscii( "DocumentService" ) )
 369                     {
 370                         pValues->Value >>= aService;
 371                         nFound |= 2;
 372                     }
 373                     else if( pValues->Name.equalsAscii( "Flags" ) )
 374                     {
 375                         pValues->Value >>= nFlags;
 376                         nFound |= 4;
 377                     }
 378                     if( pValues->Name.equalsAscii( "UIName" ) )
 379                     {
 380                         pValues->Value >>= aInterfaceName;
 381                         nFound |= 8;
 382                     }
 383
 384                 }
 385
 386                 if( (nFound == 15) && (aType.getLength() && aService == mpFilterInfo->maDocumentService) )
 387                 {
 388                     // see if this filter is not supressed in dialog
 389                     if( (nFlags & 0x1000) == 0 )
 390                     {
 391                         aAny = xTypeDetection->getByName( aType );
 392                         Sequence< PropertyValue > aValues2;
 393
 394                         if( aAny >>= aValues2 )
 395                         {
 396                             PropertyValue* pValues2 = aValues2.getArray();
 397                             sal_Int32 nValue;
 398
 399                             OUString aExtension;
 400                             for( nValue = 0; nValue < aValues2.getLength(); nValue++, pValues2++ )
 401                             {
 402                                 if( pValues2->Name.equalsAscii( "Extensions" ) )
 403                                 {
 404                                     Sequence< OUString > aExtensions;
 405                                     if( pValues2->Value >>= aExtensions )
 406                                     {
 407                                         const sal_Int32 nCount( aExtensions.getLength() );
 408                                         OUString* pExtensions = aExtensions.getArray();
 409                                         sal_Int32 n;
 410                                         for( n = 0; n < nCount; n++ )
 411                                         {
 412                                             if( n > 0 )
 413                                                 aExtension += OUString( sal_Unicode(';') );
 414                                             aExtension += OUString::createFromAscii("*.");
 415                                             aExtension += (*pExtensions++);
 416                                         }
 417                                     }
 418                                 }
 419                             }
 420
 421                             String aExtensions( aExtension );
 422                             String aFilterName( aInterfaceName );
 423                             aFilterName += String( RTL_CONSTASCII_USTRINGPARAM(" (") );
 424                             aFilterName += aExtensions;
 425                             aFilterName += sal_Unicode(')');
 426
 427                             aDlg.AddFilter( aFilterName, aExtensions );
 428
 429                             if( (nFlags & 0x100) == 0x100 )
 430                                 aDlg.SetCurrentFilter( aFilterName );
 431                         }
 432                     }
 433                 }
 434
 435             }
 436         }
 437
 438         aDlg.SetDisplayDirectory( maExportRecentFile );
 439
 440         if ( aDlg.Execute() == ERRCODE_NONE )
 441         {
 442             maExportRecentFile = aDlg.GetPath();
 443
 444             Reference< XComponentLoader > xLoader( mxMSF->createInstance( OUString::createFromAscii( "com.sun.star.frame.Desktop" ) ), UNO_QUERY );
 445             Reference< XInteractionHandler > xInter( mxMSF->createInstance( OUString::createFromAscii( "com.sun.star.task.InteractionHandler" ) ), UNO_QUERY );
 446             if( xLoader.is() && xInter.is() )
 447             {
 448                 OUString aFrame( RTL_CONSTASCII_USTRINGPARAM( "_default" ) );
 449                 Sequence< PropertyValue > aArguments(1);
 450                 aArguments[0].Name = OUString::createFromAscii( "InteractionHandler" );
 451                 aArguments[0].Value <<= xInter;
 452                 Reference< XComponent > xComp( xLoader->loadComponentFromURL( maExportRecentFile, aFrame, 0, aArguments ) );
 453                 if( xComp.is() )
 454                 {
 455                     doExport( xComp );
 456                 }
 457             }
 458         }
 459     }
 460     catch(Exception&)
 461     {
 462         DBG_ERROR("XMLFilterTestDialog::onExportBrowse exception caught!");
 463     }
 464
 465     initDialog();
 466 }
 467
 468 void XMLFilterTestDialog::onExportCurrentDocument()
 469 {
 470     doExport( getFrontMostDocument( mpFilterInfo->maDocumentService ) );
 471 }
 472
 473 void XMLFilterTestDialog::doExport( Reference< XComponent > xComp )
 474 {
 475     try
 476     {
 477         Reference< XStorable > xStorable( xComp, UNO_QUERY );
 478         if( xStorable.is() )
 479         {
 480             utl::TempFile aTempFile;
 481             OUString aTempFileURL( aTempFile.GetURL() );
 482
 483             const application_info_impl* pAppInfo = getApplicationInfo( mpFilterInfo->maExportService );
 484             if( pAppInfo )
 485             {
 486                 File aOutputFile( aTempFileURL );
 487                 /* File::RC rc = */ aOutputFile.open( OpenFlag_Write );
 488
 489                 // create xslt exporter
 490                 Reference< XOutputStream > xIS( new comphelper::OSLOutputStreamWrapper( aOutputFile ) );
 491
 492                 int bUseDTD = (mpFilterInfo->maDTD.getLength() != 0) ? 1 : 0 ;
 493                 int bUseDocType = (mpFilterInfo->maDocType.getLength() != 0 ) ? 1 : 0;
 494                 Sequence< PropertyValue > aSourceData( 2 + bUseDTD + bUseDocType );
 495                 int i = 0;
 496
 497                 aSourceData[i  ].Name = OUString( RTL_CONSTASCII_USTRINGPARAM( "OutputStream" ) );
 498                 aSourceData[i++].Value <<= xIS;
 499
 500                 aSourceData[i].Name = OUString( RTL_CONSTASCII_USTRINGPARAM( "Indent" ) );
 501                 aSourceData[i++].Value <<= (sal_Bool)sal_True;
 502
 503                 if( bUseDTD )
 504                 {
 505                     aSourceData[i  ].Name = OUString(RTL_CONSTASCII_USTRINGPARAM("DocType_System"));
 506                     aSourceData[i++].Value <<= mpFilterInfo->maDTD;
 507                 }
 508
 509                 if( bUseDocType )
 510                 {
 511                     aSourceData[i  ].Name = OUString(RTL_CONSTASCII_USTRINGPARAM("DocType_Public"));
 512                     aSourceData[i++].Value <<= mpFilterInfo->maDocType;
 513                 }
 514
 515                 Reference< XExportFilter > xExporter( mxMSF->createInstance( OUString::createFromAscii( "com.sun.star.documentconversion.XSLTFilter" ) ), UNO_QUERY );
 516                 Reference< XDocumentHandler > xHandler( xExporter, UNO_QUERY );
 517                 if( xHandler.is() )
 518                 {
 519                     Sequence< OUString > aFilterUserData( mpFilterInfo->getFilterUserData() );
 520                     xExporter->exporter( aSourceData, aFilterUserData );
 521
 522                     Reference< XMultiServiceFactory > xDocFac( xComp, UNO_QUERY );
 523
 524                     Reference< XEmbeddedObjectResolver > xObjectResolver;
 525                     Reference< XGraphicObjectResolver > xGrfResolver;
 526
 527                     if( xDocFac.is() )
 528                     {
 529                         try
 530                         {
 531                             xGrfResolver = Reference< XGraphicObjectResolver >::query( xDocFac->createInstance( OUString::createFromAscii("com.sun.star.document.ExportGraphicObjectResolver") ) );
 532                             xObjectResolver = Reference< XEmbeddedObjectResolver >::query( xDocFac->createInstance( OUString::createFromAscii("com.sun.star.document.ExportEmbeddedObjectResolver") ) );
 533                         }
 534                         catch( Exception& )
 535                         {
 536                         }
 537                     }
 538
 539                     Sequence< Any > aArgs( 1 + ( xGrfResolver.is() ? 1 : 0 ) + ( xObjectResolver.is() ? 1 : 0 ) );
 540                     Any* pArgs = aArgs.getArray();
 541                     if( xGrfResolver.is() )             *pArgs++ <<= xGrfResolver;
 542                     if( xObjectResolver.is() )          *pArgs++ <<= xObjectResolver;
 543
 544     //                          *pArgs++ <<= xInfoSet;
 545                     *pArgs   <<= xHandler;
 546
 547                     Reference< XFilter > xFilter( mxMSF->createInstanceWithArguments( pAppInfo->maXMLExporter, aArgs ), UNO_QUERY );
 548                     if( xFilter.is() )
 549                     {
 550                         Reference< XExporter > xExporter2( xFilter, UNO_QUERY );
 551                         if( xExporter2.is() )
 552                         {
 553                             xExporter2->setSourceDocument( xComp );
 554
 555                             Sequence< PropertyValue > aDescriptor( 1 );
 556                             aDescriptor[0].Name = OUString( RTL_CONSTASCII_USTRINGPARAM( "FileName" ) );
 557                             aDescriptor[0].Value <<= aTempFileURL;
 558
 559                             if( xFilter->filter( aDescriptor ) )
 560                                 displayXMLFile( aTempFileURL );
 561                         }
 562                     }
 563                 }
 564             }
 565         }
 566     }
 567     catch( Exception& )
 568     {
 569         DBG_ERROR( "XMLFilterTestDialog::doExport exception catched!" );
 570     }
 571 }
 572
 573 void XMLFilterTestDialog::displayXMLFile( const OUString& rURL )
 574 {
 575     if( NULL == mpSourceDLG )
 576         mpSourceDLG = new XMLSourceFileDialog( NULL, mrResMgr, mxMSF );
 577
 578     mpSourceDLG->ShowWindow( rURL, mpFilterInfo);
 579 }
 580
 581 void XMLFilterTestDialog::onImportBrowse()
 582 {
 583     // Open Fileopen-Dialog
 584        ::sfx2::FileDialogHelper aDlg(
 585         com::sun::star::ui::dialogs::TemplateDescription::FILEOPEN_SIMPLE, 0 );
 586     String aFilterName( mpFilterInfo->maInterfaceName );
 587     String aExtensions;
 588
 589     int nLastIndex = 0;
 590     int nCurrentIndex = 0;
 591     for( int i = 0; nLastIndex != -1; i++ )
 592     {
 593         nLastIndex = mpFilterInfo->maExtension.indexOf( sal_Unicode( ';' ), nLastIndex );
 594
 595         if( i > 0 )
 596             aExtensions += ';';
 597
 598         aExtensions += String( RTL_CONSTASCII_STRINGPARAM("*.") );
 599
 600         if( nLastIndex == -1 )
 601         {
 602
 603             aExtensions += String( mpFilterInfo->maExtension.copy( nCurrentIndex ) );
 604         }
 605         else
 606         {
 607             aExtensions += String( mpFilterInfo->maExtension.copy( nCurrentIndex, nLastIndex - nCurrentIndex ) );
 608             nCurrentIndex = nLastIndex + 1;
 609             nLastIndex = nCurrentIndex;
 610         }
 611     }
 612
 613     aFilterName += String( RTL_CONSTASCII_USTRINGPARAM( " (" ) );
 614     aFilterName += aExtensions;
 615     aFilterName += sal_Unicode(')');
 616
 617     aDlg.AddFilter( aFilterName, aExtensions );
 618     aDlg.SetDisplayDirectory( maImportRecentFile );
 619
 620     if ( aDlg.Execute() == ERRCODE_NONE )
 621     {
 622         maImportRecentFile = aDlg.GetPath();
 623         import( maImportRecentFile );
 624     }
 625
 626     initDialog();
 627 }
 628
 629 void XMLFilterTestDialog::onImportRecentDocument()
 630 {
 631     import( maImportRecentFile );
 632 }
 633
 634 void XMLFilterTestDialog::import( const OUString& rURL )
 635 {
 636     try
 637     {
 638         Reference< XComponentLoader > xLoader( mxMSF->createInstance( OUString::createFromAscii( "com.sun.star.frame.Desktop" ) ), UNO_QUERY );
 639         Reference< XInteractionHandler > xInter( mxMSF->createInstance( OUString::createFromAscii( "com.sun.star.task.InteractionHandler" ) ), UNO_QUERY );
 640         if( xLoader.is() && xInter.is() )
 641         {
 642
 643             OUString aFrame( RTL_CONSTASCII_USTRINGPARAM( "_default" ) );
 644             Sequence< PropertyValue > aArguments(2);
 645             aArguments[0].Name = OUString::createFromAscii( "FilterName" );
 646             aArguments[0].Value <<= mpFilterInfo->maFilterName;
 647             aArguments[1].Name = OUString::createFromAscii( "InteractionHandler" );
 648             aArguments[1].Value <<= xInter;
 649
 650             xLoader->loadComponentFromURL( rURL, aFrame, 0, aArguments );
 651         }
 652
 653         if( maCBXDisplaySource.IsChecked() )
 654         {
 655             TempFile aTempFile;
 656             OUString aTempFileURL( aTempFile.GetURL() );
 657
 658             Reference< XImportFilter > xImporter( mxMSF->createInstance( OUString::createFromAscii( "com.sun.star.documentconversion.XSLTFilter" ) ), UNO_QUERY );
 659             if( xImporter.is() )
 660             {
 661                 osl::File aInputFile( rURL );
 662                 osl::File::RC rc = aInputFile.open( OpenFlag_Read );
 663
 664                 Reference< XInputStream > xIS( new comphelper::OSLInputStreamWrapper( aInputFile ) );
 665
 666                 Sequence< PropertyValue > aSourceData( 5 );
 667                 int i = 0;
 668
 669                 aSourceData[i  ].Name = OUString::createFromAscii( "InputStream" );
 670                 aSourceData[i++].Value <<= xIS;
 671
 672                 aSourceData[i  ].Name = OUString::createFromAscii( "FileName" );
 673                 aSourceData[i++].Value <<= rURL;
 674
 675                 aSourceData[i  ].Name = OUString::createFromAscii( "Indent" );
 676                 aSourceData[i++].Value <<= (sal_Bool)sal_True;
 677
 678                 aSourceData[i  ].Name = OUString::createFromAscii("DocType_Public");
 679                 aSourceData[i++].Value <<= OUString::createFromAscii("-//OpenOffice.org//DTD OfficeDocument 1.0//EN");
 680
 681                 aSourceData[i  ].Name = OUString::createFromAscii("DocType_System");
 682                 aSourceData[i++].Value <<= sDTDPath;
 683
 684                 Reference< XDocumentHandler > xWriter( mxMSF->createInstance( OUString::createFromAscii( "com.sun.star.xml.sax.Writer" ) ), UNO_QUERY );
 685
 686                 File aOutputFile( aTempFileURL );
 687                 rc = aOutputFile.open( OpenFlag_Write );
 688
 689                 Reference< XOutputStream > xOS( new OSLOutputStreamWrapper( aOutputFile ) );
 690                 Reference< XActiveDataSource > xDocSrc( xWriter, UNO_QUERY );
 691                 xDocSrc->setOutputStream( xOS );
 692
 693                 Sequence< OUString > aFilterUserData( mpFilterInfo->getFilterUserData() );
 694                 xImporter->importer( aSourceData, xWriter, aFilterUserData );
 695             }
 696
 697             displayXMLFile( aTempFileURL );
 698         }
 699     }
 700     catch(Exception&)
 701     {
 702         DBG_ERROR("XMLFilterTestDialog::import catched an exception" );
 703     }
 704 }
 705
 706 IMPL_LINK(XMLFilterTestDialog, ClickHdl_Impl, PushButton *, pButton )
 707 {
 708     if( &maPBExportBrowse == pButton )
 709     {
 710         onExportBrowse();
 711     }
 712     else if( &maPBCurrentDocument == pButton )
 713     {
 714         onExportCurrentDocument();
 715     }
 716     else if( &maPBImportBrowse == pButton )
 717     {
 718         onImportBrowse();
 719     }
 720     else if( &maPBRecentDocument == pButton )
 721     {
 722         onImportRecentDocument();
 723     }
 724     else if( &maPBClose == pButton )
 725     {
 726         Close();
 727     }
 728
 729     return 0;
 730 }
 731
 732 /** returns the front most open component that supports the given service */
 733 Reference< XComponent > XMLFilterTestDialog::getFrontMostDocument( const OUString& rServiceName )
 734 {
 735     Reference< XComponent > xRet;
 736
 737     try
 738     {
 739         Reference< XDesktop > xDesktop( mxMSF->createInstance( OUString::createFromAscii( "com.sun.star.frame.Desktop" ) ), UNO_QUERY );
 740         if( xDesktop.is() )
 741         {
 742             Reference< XComponent > xTest( mxLastFocusModel );
 743             if( checkComponent( xTest, rServiceName ) )
 744             {
 745                 xRet = xTest;
 746             }
 747             else
 748             {
 749                 xTest = (Reference< XComponent >)xDesktop->getCurrentComponent();
 750
 751                 if( checkComponent( xTest, rServiceName ) )
 752                 {
 753                     xRet = xTest;
 754                 }
 755                 else
 756                 {
 757                     Reference< XEnumerationAccess > xAccess( xDesktop->getComponents() );
 758                     if( xAccess.is() )
 759                     {
 760                         Reference< XEnumeration > xEnum( xAccess->createEnumeration() );
 761                         if( xEnum.is() )
 762                         {
 763                             while( xEnum->hasMoreElements() )
 764                             {
 765                                 if( (xEnum->nextElement() >>= xTest) && xTest.is() )
 766                                 {
 767                                     if( checkComponent( xTest, rServiceName ) )
 768                                     {
 769                                         xRet = xTest;
 770                                         break;
 771                                     }
 772                                 }
 773                             }
 774                         }
 775                     }
 776                 }
 777             }
 778         }
 779     }
 780     catch( Exception& )
 781     {
 782         DBG_ERROR( "XMLFilterTestDialog::getFrontMostDocument exception catched!" );
 783     }
 784
 785     return xRet;
 786 }