1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
3 * This file is part of the LibreOffice project.
5 * This Source Code Form is subject to the terms of the Mozilla Public
6 * License, v. 2.0. If a copy of the MPL was not distributed with this
7 * file, You can obtain one at http://mozilla.org/MPL/2.0/.
9 * This file incorporates work covered by the following license notice:
11 * Licensed to the Apache Software Foundation (ASF) under one or more
12 * contributor license agreements. See the NOTICE file distributed
13 * with this work for additional information regarding copyright
14 * ownership. The ASF licenses this file to you under the Apache
15 * License, Version 2.0 (the "License"); you may not use this file
16 * except in compliance with the License. You may obtain a copy of
17 * the License at http://www.apache.org/licenses/LICENSE-2.0 .
20 #include "TokenWriter.hxx"
21 #include <tools/debug.hxx>
22 #include <tools/diagnose_ex.h>
23 #include <osl/diagnose.h>
24 #include "RtfReader.hxx"
25 #include "HtmlReader.hxx"
26 #include "dbustrings.hrc"
27 #include <comphelper/processfactory.hxx>
28 #include <comphelper/string.hxx>
29 #include <comphelper/types.hxx>
30 #include <connectivity/dbtools.hxx>
31 #include <com/sun/star/sdb/DatabaseContext.hpp>
32 #include <com/sun/star/sdbc/XConnection.hpp>
33 #include <com/sun/star/sdbcx/XColumnsSupplier.hpp>
34 #include <com/sun/star/sdbc/XResultSetMetaDataSupplier.hpp>
35 #include <com/sun/star/sdbc/XRowSet.hpp>
36 #include <com/sun/star/sdbcx/XTablesSupplier.hpp>
37 #include <com/sun/star/sdb/XQueriesSupplier.hpp>
38 #include <com/sun/star/sdbc/XDataSource.hpp>
39 #include <com/sun/star/awt/FontWeight.hpp>
40 #include <com/sun/star/awt/FontStrikeout.hpp>
41 #include <com/sun/star/awt/FontSlant.hpp>
42 #include <com/sun/star/awt/FontUnderline.hpp>
43 #include <com/sun/star/document/DocumentProperties.hpp>
44 #include <svtools/htmlkywd.hxx>
45 #include <svtools/rtfkeywd.hxx>
46 #include <tools/color.hxx>
47 #include <svtools/htmlout.hxx>
48 #include <sfx2/frmhtmlw.hxx>
49 #include <svl/numuno.hxx>
50 #include <vcl/svapp.hxx>
51 #include "UITools.hxx"
52 #include <toolkit/helper/vclunohelper.hxx>
53 #include <vcl/outdev.hxx>
54 #include <vcl/settings.hxx>
55 #include <svtools/rtfout.hxx>
56 #include <svtools/htmlcfg.hxx>
57 #include <connectivity/formattedcolumnvalue.hxx>
58 #include <unotools/syslocale.hxx>
59 #include <boost/scoped_array.hpp>
61 using namespace dbaui
;
62 using namespace dbtools
;
64 using namespace ::com::sun::star
;
65 using namespace ::com::sun::star::uno
;
66 using namespace ::com::sun::star::beans
;
67 using namespace ::com::sun::star::container
;
68 using namespace ::com::sun::star::sdbc
;
69 using namespace ::com::sun::star::sdb
;
70 using namespace ::com::sun::star::frame
;
71 using namespace ::com::sun::star::lang
;
72 using namespace ::com::sun::star::sdbcx
;
73 using namespace ::com::sun::star::awt
;
74 using namespace ::com::sun::star::util
;
75 using ::com::sun::star::frame::XModel
;
77 const static char sMyBegComment
[] = "<!-- ";
78 const static char sMyEndComment
[] = " -->";
79 const static char sFontFamily
[] = "font-family: ";
80 const static char sFontSize
[] = "font-size: ";
82 #define SBA_FORMAT_SELECTION_COUNT 4
85 ODatabaseImportExport::ODatabaseImportExport(const svx::ODataAccessDescriptor
& _aDataDescriptor
,
86 const Reference
< XComponentContext
>& _rM
,
87 const Reference
< ::com::sun::star::util::XNumberFormatter
>& _rxNumberF
,
88 const OUString
& rExchange
)
89 :m_bBookmarkSelection( false )
90 ,m_xFormatter(_rxNumberF
)
92 ,m_nCommandType(CommandType::TABLE
)
93 ,m_bNeedToReInitialize(false)
96 ,m_bInInitialize(false)
99 m_eDestEnc
= osl_getThreadTextEncoding();
101 osl_atomic_increment( &m_refCount
);
102 impl_initFromDescriptor( _aDataDescriptor
, false );
104 sal_Int32 nCount
= comphelper::string::getTokenCount(rExchange
, char(11));
105 if( nCount
> SBA_FORMAT_SELECTION_COUNT
&& !rExchange
.getToken(4, ';').isEmpty())
107 m_pRowMarker
= new sal_Int32
[nCount
-SBA_FORMAT_SELECTION_COUNT
];
108 for(sal_Int32 i
=SBA_FORMAT_SELECTION_COUNT
; i
<nCount
; ++i
)
109 m_pRowMarker
[i
-SBA_FORMAT_SELECTION_COUNT
] = rExchange
.getToken(i
,char(11)).toInt32();
111 osl_atomic_decrement( &m_refCount
);
115 ODatabaseImportExport::ODatabaseImportExport( const ::dbtools::SharedConnection
& _rxConnection
,
116 const Reference
< XNumberFormatter
>& _rxNumberF
, const Reference
< XComponentContext
>& _rM
)
117 :m_bBookmarkSelection( false )
119 ,m_xConnection(_rxConnection
)
120 ,m_xFormatter(_rxNumberF
)
122 ,m_nCommandType(::com::sun::star::sdb::CommandType::TABLE
)
123 ,m_bNeedToReInitialize(false)
126 ,m_bInInitialize(false)
129 m_eDestEnc
= osl_getThreadTextEncoding();
132 SvtSysLocale aSysLocale
;
133 m_aLocale
= aSysLocale
.GetLanguageTag().getLocale();
140 ODatabaseImportExport::~ODatabaseImportExport()
147 m_pReader
->release();
151 void ODatabaseImportExport::dispose()
153 // remove me as listener
154 Reference
< XComponent
> xComponent(m_xConnection
, UNO_QUERY
);
157 Reference
< XEventListener
> xEvt((::cppu::OWeakObject
*)this,UNO_QUERY
);
158 xComponent
->removeEventListener(xEvt
);
160 m_xConnection
.clear();
162 ::comphelper::disposeComponent(m_xRow
);
165 m_xResultSetMetaData
.clear();
166 m_xResultSet
.clear();
168 m_xRowLocate
.clear();
169 m_xFormatter
.clear();
172 void SAL_CALL
ODatabaseImportExport::disposing( const EventObject
& Source
) throw(::com::sun::star::uno::RuntimeException
, std::exception
)
174 Reference
<XConnection
> xCon(Source
.Source
,UNO_QUERY
);
175 if(m_xConnection
.is() && m_xConnection
== xCon
)
177 m_xConnection
.clear();
179 m_bNeedToReInitialize
= true;
183 void ODatabaseImportExport::initialize( const ODataAccessDescriptor
& _aDataDescriptor
)
185 impl_initFromDescriptor( _aDataDescriptor
, true );
188 void ODatabaseImportExport::impl_initFromDescriptor( const ODataAccessDescriptor
& _aDataDescriptor
, bool _bPlusDefaultInit
)
190 if ( !_bPlusDefaultInit
)
192 m_sDataSourceName
= _aDataDescriptor
.getDataSource();
193 _aDataDescriptor
[daCommandType
] >>= m_nCommandType
;
194 _aDataDescriptor
[daCommand
] >>= m_sName
;
195 // some additional information
196 if(_aDataDescriptor
.has(daConnection
))
198 Reference
< XConnection
> xPureConn( _aDataDescriptor
[daConnection
], UNO_QUERY
);
199 m_xConnection
.reset( xPureConn
, SharedConnection::NoTakeOwnership
);
200 Reference
< XEventListener
> xEvt((::cppu::OWeakObject
*)this,UNO_QUERY
);
201 Reference
< XComponent
> xComponent(m_xConnection
, UNO_QUERY
);
202 if (xComponent
.is() && xEvt
.is())
203 xComponent
->addEventListener(xEvt
);
206 if ( _aDataDescriptor
.has( daSelection
) )
207 _aDataDescriptor
[ daSelection
] >>= m_aSelection
;
209 if ( _aDataDescriptor
.has( daBookmarkSelection
) )
210 _aDataDescriptor
[ daBookmarkSelection
] >>= m_bBookmarkSelection
;
212 if ( _aDataDescriptor
.has( daCursor
) )
214 _aDataDescriptor
[ daCursor
] >>= m_xResultSet
;
215 m_xRowLocate
.set( m_xResultSet
, UNO_QUERY
);
218 if ( m_aSelection
.getLength() != 0 )
220 if ( !m_xResultSet
.is() )
222 SAL_WARN("dbaccess.ui", "ODatabaseImportExport::impl_initFromDescriptor: selection without result set is nonsense!" );
223 m_aSelection
.realloc( 0 );
227 if ( m_aSelection
.getLength() != 0 )
229 if ( m_bBookmarkSelection
&& !m_xRowLocate
.is() )
231 SAL_WARN("dbaccess.ui", "ODatabaseImportExport::impl_initFromDescriptor: no XRowLocate -> no bookmars!" );
232 m_aSelection
.realloc( 0 );
241 SvtSysLocale aSysLocale
;
242 m_aLocale
= aSysLocale
.GetLanguageTag().getLocale();
249 void ODatabaseImportExport::initialize()
251 m_bInInitialize
= true;
252 m_bNeedToReInitialize
= false;
254 if ( !m_xConnection
.is() )
255 { // we need a connection
256 OSL_ENSURE(!m_sDataSourceName
.isEmpty(),"There must be a datsource name!");
257 Reference
<XNameAccess
> xDatabaseContext( DatabaseContext::create(m_xContext
), UNO_QUERY_THROW
);
258 Reference
< XEventListener
> xEvt((::cppu::OWeakObject
*)this,UNO_QUERY
);
260 Reference
< XConnection
> xConnection
;
261 SQLExceptionInfo aInfo
= ::dbaui::createConnection( m_sDataSourceName
, xDatabaseContext
, m_xContext
, xEvt
, xConnection
);
262 m_xConnection
.reset( xConnection
);
264 if(aInfo
.isValid() && aInfo
.getType() == SQLExceptionInfo::SQL_EXCEPTION
)
265 throw *static_cast<const SQLException
*>(aInfo
);
268 Reference
<XNameAccess
> xNameAccess
;
269 switch(m_nCommandType
)
271 case CommandType::TABLE
:
274 Reference
<XTablesSupplier
> xSup(m_xConnection
,UNO_QUERY
);
276 xNameAccess
= xSup
->getTables();
279 case CommandType::QUERY
:
281 Reference
<XQueriesSupplier
> xSup(m_xConnection
,UNO_QUERY
);
283 xNameAccess
= xSup
->getQueries();
287 if(xNameAccess
.is() && xNameAccess
->hasByName(m_sName
))
289 Reference
<XPropertySet
> xSourceObject
;
290 xNameAccess
->getByName(m_sName
) >>= m_xObject
;
297 if(m_xObject
->getPropertySetInfo()->hasPropertyByName(PROPERTY_FONT
))
298 m_xObject
->getPropertyValue(PROPERTY_FONT
) >>= m_aFont
;
300 // the result set may be already set with the datadescriptor
301 if ( !m_xResultSet
.is() )
303 m_xResultSet
.set( m_xContext
->getServiceManager()->createInstanceWithContext("com.sun.star.sdb.RowSet", m_xContext
), UNO_QUERY
);
304 Reference
< XPropertySet
> xProp( m_xResultSet
, UNO_QUERY_THROW
);
305 xProp
->setPropertyValue( PROPERTY_ACTIVE_CONNECTION
, makeAny( m_xConnection
.getTyped() ) );
306 xProp
->setPropertyValue( PROPERTY_COMMAND_TYPE
, makeAny( m_nCommandType
) );
307 xProp
->setPropertyValue( PROPERTY_COMMAND
, makeAny( m_sName
) );
308 Reference
< XRowSet
> xRowSet( xProp
, UNO_QUERY
);
311 impl_initializeRowMember_throw();
316 m_xResultSetMetaData
= NULL
;
317 ::comphelper::disposeComponent(m_xResultSet
);
321 if ( m_aFont
.Name
.isEmpty() )
323 vcl::Font aApplicationFont
= OutputDevice::GetDefaultFont(
324 DefaultFontType::SANS_UNICODE
,
325 Application::GetSettings().GetUILanguageTag().getLanguageType(),
326 GetDefaultFontFlags::OnlyOne
328 m_aFont
= VCLUnoHelper::CreateFontDescriptor( aApplicationFont
);
331 m_bInInitialize
= false;
334 bool ODatabaseImportExport::Write()
336 if ( m_bNeedToReInitialize
)
338 if ( !m_bInInitialize
)
344 bool ODatabaseImportExport::Read()
346 if ( m_bNeedToReInitialize
)
348 if ( !m_bInInitialize
)
354 void ODatabaseImportExport::impl_initializeRowMember_throw()
356 if ( !m_xRow
.is() && m_xResultSet
.is() )
358 m_xRow
.set( m_xResultSet
, UNO_QUERY
);
359 m_xRowLocate
.set( m_xResultSet
, UNO_QUERY
);
360 m_xResultSetMetaData
= Reference
<XResultSetMetaDataSupplier
>(m_xRow
,UNO_QUERY
)->getMetaData();
361 Reference
<XColumnsSupplier
> xSup(m_xResultSet
,UNO_QUERY_THROW
);
362 m_xRowSetColumns
.set(xSup
->getColumns(),UNO_QUERY_THROW
);
366 bool ORTFImportExport::Write()
368 ODatabaseImportExport::Write();
369 m_pStream
->WriteChar( '{' ).WriteCharPtr( OOO_STRING_SVTOOLS_RTF_RTF
);
370 m_pStream
->WriteCharPtr( OOO_STRING_SVTOOLS_RTF_ANSI
).WriteCharPtr( SAL_NEWLINE_STRING
);
371 rtl_TextEncoding eDestEnc
= RTL_TEXTENCODING_MS_1252
;
373 bool bBold
= ( ::com::sun::star::awt::FontWeight::BOLD
== m_aFont
.Weight
);
374 bool bItalic
= ( ::com::sun::star::awt::FontSlant_ITALIC
== m_aFont
.Slant
);
375 bool bUnderline
= ( ::com::sun::star::awt::FontUnderline::NONE
!= m_aFont
.Underline
);
376 bool bStrikeout
= ( ::com::sun::star::awt::FontStrikeout::NONE
!= m_aFont
.Strikeout
);
378 sal_Int32 nColor
= 0;
380 m_xObject
->getPropertyValue(PROPERTY_TEXTCOLOR
) >>= nColor
;
381 ::Color
aColor(nColor
);
383 OString
aFonts(OUStringToOString(m_aFont
.Name
, eDestEnc
));
384 if (aFonts
.isEmpty())
386 OUString aName
= Application::GetSettings().GetStyleSettings().GetAppFont().GetName();
387 aFonts
= OUStringToOString(aName
, eDestEnc
);
390 m_pStream
->WriteCharPtr( "{\\fonttbl" );
391 sal_Int32 nTokenCount
= comphelper::string::getTokenCount(aFonts
, ';');
392 for(sal_Int32 j
=0; j
<nTokenCount
; ++j
)
394 m_pStream
->WriteCharPtr( "\\f" );
395 m_pStream
->WriteInt32AsString(j
);
396 m_pStream
->WriteCharPtr( "\\fcharset0\\fnil " );
397 m_pStream
->WriteCharPtr( aFonts
.getToken(j
, ';').getStr() );
398 m_pStream
->WriteChar( ';' );
400 m_pStream
->WriteChar( '}' ) ;
401 m_pStream
->WriteCharPtr( SAL_NEWLINE_STRING
);
402 // write the rtf color table
403 m_pStream
->WriteChar( '{' ).WriteCharPtr( OOO_STRING_SVTOOLS_RTF_COLORTBL
).WriteCharPtr( OOO_STRING_SVTOOLS_RTF_RED
);
404 m_pStream
->WriteUInt32AsString(aColor
.GetRed());
405 m_pStream
->WriteCharPtr( OOO_STRING_SVTOOLS_RTF_GREEN
);
406 m_pStream
->WriteUInt32AsString(aColor
.GetGreen());
407 m_pStream
->WriteCharPtr( OOO_STRING_SVTOOLS_RTF_BLUE
);
408 m_pStream
->WriteUInt32AsString(aColor
.GetBlue());
410 m_pStream
->WriteCharPtr( ";\\red255\\green255\\blue255;\\red192\\green192\\blue192;}" )
411 .WriteCharPtr( SAL_NEWLINE_STRING
);
413 static char const aTRRH
[] = "\\trrh-270\\pard\\intbl";
414 static char const aFS
[] = "\\fs20\\f0\\cf0\\cb2";
415 static char const aCell1
[] = "\\clbrdrl\\brdrs\\brdrcf0\\clbrdrt\\brdrs\\brdrcf0\\clbrdrb\\brdrs\\brdrcf0\\clbrdrr\\brdrs\\brdrcf0\\clshdng10000\\clcfpat2\\cellx";
417 m_pStream
->WriteCharPtr( OOO_STRING_SVTOOLS_RTF_TROWD
).WriteCharPtr( OOO_STRING_SVTOOLS_RTF_TRGAPH
);
418 m_pStream
->WriteInt32AsString(40);
419 m_pStream
->WriteCharPtr( SAL_NEWLINE_STRING
);
423 Reference
<XColumnsSupplier
> xColSup(m_xObject
,UNO_QUERY
);
424 Reference
<XNameAccess
> xColumns
= xColSup
->getColumns();
425 Sequence
< OUString
> aNames(xColumns
->getElementNames());
426 const OUString
* pIter
= aNames
.getConstArray();
428 sal_Int32 nCount
= aNames
.getLength();
429 bool bUseResultMetaData
= false;
432 nCount
= m_xResultSetMetaData
->getColumnCount();
433 bUseResultMetaData
= true;
436 for( sal_Int32 i
=1; i
<=nCount
; ++i
)
438 m_pStream
->WriteCharPtr( aCell1
);
439 m_pStream
->WriteInt32AsString(i
*CELL_X
);
440 m_pStream
->WriteCharPtr( SAL_NEWLINE_STRING
);
443 // column description
444 m_pStream
->WriteChar( '{' ).WriteCharPtr( SAL_NEWLINE_STRING
);
445 m_pStream
->WriteCharPtr( aTRRH
);
447 boost::scoped_array
<OString
> pHorzChar(new OString
[nCount
]);
449 for ( sal_Int32 i
=1; i
<= nCount
; ++i
)
451 sal_Int32 nAlign
= 0;
452 OUString sColumnName
;
453 if ( bUseResultMetaData
)
454 sColumnName
= m_xResultSetMetaData
->getColumnName(i
);
457 sColumnName
= *pIter
;
458 Reference
<XPropertySet
> xColumn
;
459 xColumns
->getByName(sColumnName
) >>= xColumn
;
460 xColumn
->getPropertyValue(PROPERTY_ALIGN
) >>= nAlign
;
467 case 1: pChar
= OOO_STRING_SVTOOLS_RTF_QC
; break;
468 case 2: pChar
= OOO_STRING_SVTOOLS_RTF_QR
; break;
470 default:pChar
= OOO_STRING_SVTOOLS_RTF_QL
; break;
473 pHorzChar
[i
-1] = pChar
; // to avoid to always rummage in the ITEMSET later on
475 m_pStream
->WriteCharPtr( SAL_NEWLINE_STRING
);
476 m_pStream
->WriteChar( '{' );
477 m_pStream
->WriteCharPtr( OOO_STRING_SVTOOLS_RTF_QC
); // column header always centered
479 if ( bBold
) m_pStream
->WriteCharPtr( OOO_STRING_SVTOOLS_RTF_B
);
480 if ( bItalic
) m_pStream
->WriteCharPtr( OOO_STRING_SVTOOLS_RTF_I
);
481 if ( bUnderline
) m_pStream
->WriteCharPtr( OOO_STRING_SVTOOLS_RTF_UL
);
482 if ( bStrikeout
) m_pStream
->WriteCharPtr( OOO_STRING_SVTOOLS_RTF_STRIKE
);
484 m_pStream
->WriteCharPtr( aFS
);
485 m_pStream
->WriteChar( ' ' );
486 RTFOutFuncs::Out_String(*m_pStream
,sColumnName
,eDestEnc
);
488 m_pStream
->WriteCharPtr( OOO_STRING_SVTOOLS_RTF_CELL
);
489 m_pStream
->WriteChar( '}' );
490 m_pStream
->WriteCharPtr( SAL_NEWLINE_STRING
);
491 m_pStream
->WriteCharPtr( OOO_STRING_SVTOOLS_RTF_PARD
).WriteCharPtr( OOO_STRING_SVTOOLS_RTF_INTBL
);
494 m_pStream
->WriteCharPtr( OOO_STRING_SVTOOLS_RTF_ROW
);
495 m_pStream
->WriteCharPtr( SAL_NEWLINE_STRING
).WriteChar( '}' );
496 m_pStream
->WriteCharPtr( SAL_NEWLINE_STRING
);
498 Reference
< XRowSet
> xRowSet(m_xRow
,UNO_QUERY
);
501 if ( m_aSelection
.getLength() )
503 const Any
* pSelIter
= m_aSelection
.getConstArray();
504 const Any
* pEnd
= pSelIter
+ m_aSelection
.getLength();
506 bool bContinue
= true;
507 for( ; pSelIter
!= pEnd
&& bContinue
; ++pSelIter
)
509 if ( m_bBookmarkSelection
)
511 bContinue
= m_xRowLocate
->moveToBookmark( *pSelIter
);
516 OSL_VERIFY( *pSelIter
>>= nPos
);
517 bContinue
= ( m_xResultSet
->absolute( nPos
) );
521 appendRow( pHorzChar
.get(), nCount
, k
, kk
);
526 m_xResultSet
->beforeFirst(); // set back before the first row
527 while(m_xResultSet
->next())
529 appendRow(pHorzChar
.get(),nCount
,k
,kk
);
534 m_pStream
->WriteChar( '}' ).WriteCharPtr( SAL_NEWLINE_STRING
);
535 m_pStream
->WriteUChar( 0 );
536 return ((*m_pStream
).GetError() == SVSTREAM_OK
);
539 void ORTFImportExport::appendRow(OString
* pHorzChar
,sal_Int32 _nColumnCount
,sal_Int32
& k
,sal_Int32
& kk
)
541 if(!m_pRowMarker
|| m_pRowMarker
[kk
] == k
)
544 m_pStream
->WriteCharPtr( OOO_STRING_SVTOOLS_RTF_TROWD
).WriteCharPtr( OOO_STRING_SVTOOLS_RTF_TRGAPH
);
545 m_pStream
->WriteInt32AsString(40);
546 m_pStream
->WriteCharPtr( SAL_NEWLINE_STRING
);
548 static char const aCell2
[] = "\\clbrdrl\\brdrs\\brdrcf2\\clbrdrt\\brdrs\\brdrcf2\\clbrdrb\\brdrs\\brdrcf2\\clbrdrr\\brdrs\\brdrcf2\\clshdng10000\\clcfpat1\\cellx";
549 static char const aTRRH
[] = "\\trrh-270\\pard\\intbl";
551 for ( sal_Int32 i
=1; i
<=_nColumnCount
; ++i
)
553 m_pStream
->WriteCharPtr( aCell2
);
554 m_pStream
->WriteInt32AsString(i
*CELL_X
);
555 m_pStream
->WriteCharPtr( SAL_NEWLINE_STRING
);
558 const bool bBold
= ( ::com::sun::star::awt::FontWeight::BOLD
== m_aFont
.Weight
);
559 const bool bItalic
= ( ::com::sun::star::awt::FontSlant_ITALIC
== m_aFont
.Slant
);
560 const bool bUnderline
= ( ::com::sun::star::awt::FontUnderline::NONE
!= m_aFont
.Underline
);
561 const bool bStrikeout
= ( ::com::sun::star::awt::FontStrikeout::NONE
!= m_aFont
.Strikeout
);
562 Reference
< XRowSet
> xRowSet(m_xRow
,UNO_QUERY
);
564 m_pStream
->WriteChar( '{' );
565 m_pStream
->WriteCharPtr( aTRRH
);
566 for ( sal_Int32 i
=1; i
<= _nColumnCount
; ++i
)
568 m_pStream
->WriteCharPtr( SAL_NEWLINE_STRING
);
569 m_pStream
->WriteChar( '{' );
570 m_pStream
->WriteCharPtr( pHorzChar
[i
-1].getStr() );
572 if ( bBold
) m_pStream
->WriteCharPtr( OOO_STRING_SVTOOLS_RTF_B
);
573 if ( bItalic
) m_pStream
->WriteCharPtr( OOO_STRING_SVTOOLS_RTF_I
);
574 if ( bUnderline
) m_pStream
->WriteCharPtr( OOO_STRING_SVTOOLS_RTF_UL
);
575 if ( bStrikeout
) m_pStream
->WriteCharPtr( OOO_STRING_SVTOOLS_RTF_STRIKE
);
577 m_pStream
->WriteCharPtr( "\\fs20\\f1\\cf0\\cb1 " );
581 Reference
<XPropertySet
> xColumn(m_xRowSetColumns
->getByIndex(i
-1),UNO_QUERY_THROW
);
582 dbtools::FormattedColumnValue
aFormatedValue(m_xContext
,xRowSet
,xColumn
);
583 OUString sValue
= aFormatedValue
.getFormattedValue();
584 if ( !sValue
.isEmpty() )
585 RTFOutFuncs::Out_String(*m_pStream
,sValue
,m_eDestEnc
);
589 SAL_WARN("dbaccess.ui","RTF WRITE!");
592 m_pStream
->WriteCharPtr( OOO_STRING_SVTOOLS_RTF_CELL
);
593 m_pStream
->WriteChar( '}' );
594 m_pStream
->WriteCharPtr( SAL_NEWLINE_STRING
);
595 m_pStream
->WriteCharPtr( OOO_STRING_SVTOOLS_RTF_PARD
).WriteCharPtr( OOO_STRING_SVTOOLS_RTF_INTBL
);
597 m_pStream
->WriteCharPtr( OOO_STRING_SVTOOLS_RTF_ROW
).WriteCharPtr( SAL_NEWLINE_STRING
);
598 m_pStream
->WriteChar( '}' );
603 bool ORTFImportExport::Read()
605 ODatabaseImportExport::Read();
606 SvParserState eState
= SVPAR_ERROR
;
609 m_pReader
= new ORTFReader((*m_pStream
),m_xConnection
,m_xFormatter
,m_xContext
);
610 static_cast<ORTFReader
*>(m_pReader
)->AddFirstRef();
611 if ( isCheckEnabled() )
612 m_pReader
->enableCheckOnly();
613 eState
= static_cast<ORTFReader
*>(m_pReader
)->CallParser();
614 m_pReader
->release();
618 return eState
!= SVPAR_ERROR
;
621 const sal_Int16
OHTMLImportExport::nDefaultFontSize
[SBA_HTML_FONTSIZES
] =
623 HTMLFONTSZ1_DFLT
, HTMLFONTSZ2_DFLT
, HTMLFONTSZ3_DFLT
, HTMLFONTSZ4_DFLT
,
624 HTMLFONTSZ5_DFLT
, HTMLFONTSZ6_DFLT
, HTMLFONTSZ7_DFLT
627 sal_Int16
OHTMLImportExport::nFontSize
[SBA_HTML_FONTSIZES
] = { 0 };
629 const sal_Int16
OHTMLImportExport::nCellSpacing
= 0;
630 const char OHTMLImportExport::sIndentSource
[nIndentMax
+1] = "\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t";
632 // Macros for HTML-Export
633 #define TAG_ON( tag ) HTMLOutFuncs::Out_AsciiTag( (*m_pStream), tag )
634 #define TAG_OFF( tag ) HTMLOutFuncs::Out_AsciiTag( (*m_pStream), tag, false )
635 #define OUT_LF() m_pStream->WriteCharPtr( SAL_NEWLINE_STRING ).WriteCharPtr( GetIndentStr() )
636 #define TAG_ON_LF( tag ) (TAG_ON( tag ).WriteCharPtr( SAL_NEWLINE_STRING ).WriteCharPtr( GetIndentStr() ))
637 #define TAG_OFF_LF( tag ) (TAG_OFF( tag ).WriteCharPtr( SAL_NEWLINE_STRING ).WriteCharPtr( GetIndentStr() ))
639 OHTMLImportExport::OHTMLImportExport(const svx::ODataAccessDescriptor
& _aDataDescriptor
,
640 const Reference
< XComponentContext
>& _rM
,
641 const Reference
< ::com::sun::star::util::XNumberFormatter
>& _rxNumberF
,
642 const OUString
& rExchange
)
643 : ODatabaseImportExport(_aDataDescriptor
,_rM
,_rxNumberF
,rExchange
)
645 #if OSL_DEBUG_LEVEL > 0
649 // set HTML configuration
650 SvxHtmlOptions
& rHtmlOptions
= SvxHtmlOptions::Get();
651 m_eDestEnc
= rHtmlOptions
.GetTextEncoding();
652 strncpy( sIndent
, sIndentSource
,std::min(sizeof(sIndent
),sizeof(sIndentSource
)));
656 bool OHTMLImportExport::Write()
658 ODatabaseImportExport::Write();
661 m_pStream
->WriteChar( '<' ).WriteCharPtr( OOO_STRING_SVTOOLS_HTML_doctype
).WriteChar( ' ' ).WriteCharPtr( OOO_STRING_SVTOOLS_HTML_doctype40
).WriteChar( '>' ).WriteCharPtr( SAL_NEWLINE_STRING
).WriteCharPtr( SAL_NEWLINE_STRING
);
662 TAG_ON_LF( OOO_STRING_SVTOOLS_HTML_html
);
667 TAG_OFF_LF( OOO_STRING_SVTOOLS_HTML_html
);
669 return ((*m_pStream
).GetError() == SVSTREAM_OK
);
674 bool OHTMLImportExport::Read()
676 ODatabaseImportExport::Read();
677 SvParserState eState
= SVPAR_ERROR
;
680 m_pReader
= new OHTMLReader((*m_pStream
),m_xConnection
,m_xFormatter
,m_xContext
);
681 static_cast<OHTMLReader
*>(m_pReader
)->AddFirstRef();
682 if ( isCheckEnabled() )
683 m_pReader
->enableCheckOnly();
684 m_pReader
->SetTableName(m_sDefaultTableName
);
685 eState
= static_cast<OHTMLReader
*>(m_pReader
)->CallParser();
686 m_pReader
->release();
690 return eState
!= SVPAR_ERROR
;
693 void OHTMLImportExport::WriteHeader()
695 uno::Reference
<document::XDocumentProperties
> xDocProps(
696 document::DocumentProperties::create( m_xContext
) );
697 if (xDocProps
.is()) {
698 xDocProps
->setTitle(m_sName
);
701 IncIndent(1); TAG_ON_LF( OOO_STRING_SVTOOLS_HTML_head
);
703 SfxFrameHTMLWriter::Out_DocInfo( (*m_pStream
), OUString(),
704 xDocProps
, sIndent
);
706 IncIndent(-1); OUT_LF(); TAG_OFF_LF( OOO_STRING_SVTOOLS_HTML_head
);
709 void OHTMLImportExport::WriteBody()
712 m_pStream
->WriteCharPtr( "<" ).WriteCharPtr( OOO_STRING_SVTOOLS_HTML_style
).WriteCharPtr( " " ).WriteCharPtr( OOO_STRING_SVTOOLS_HTML_O_type
).WriteCharPtr( "=\"text/css\">" );
714 m_pStream
->WriteCharPtr( sMyBegComment
); OUT_LF();
715 m_pStream
->WriteCharPtr( OOO_STRING_SVTOOLS_HTML_body
).WriteCharPtr( " { " ).WriteCharPtr( sFontFamily
).WriteChar( '"' ).WriteCharPtr( OUStringToOString(m_aFont
.Name
, osl_getThreadTextEncoding()).getStr() ).WriteChar( '\"' );
716 // TODO : think about the encoding of the font name
717 m_pStream
->WriteCharPtr( "; " ).WriteCharPtr( sFontSize
);
718 m_pStream
->WriteInt32AsString(m_aFont
.Height
);
719 m_pStream
->WriteChar( '}' );
722 m_pStream
->WriteCharPtr( sMyEndComment
);
723 IncIndent(-1); OUT_LF(); TAG_OFF_LF( OOO_STRING_SVTOOLS_HTML_style
);
726 // default Textcolour black
727 m_pStream
->WriteChar( '<' ).WriteCharPtr( OOO_STRING_SVTOOLS_HTML_body
).WriteChar( ' ' ).WriteCharPtr( OOO_STRING_SVTOOLS_HTML_O_text
).WriteChar( '=' );
728 sal_Int32 nColor
= 0;
730 m_xObject
->getPropertyValue(PROPERTY_TEXTCOLOR
) >>= nColor
;
731 ::Color
aColor(nColor
);
732 HTMLOutFuncs::Out_Color( (*m_pStream
), aColor
);
734 m_pStream
->WriteCharPtr( " " OOO_STRING_SVTOOLS_HTML_O_bgcolor
"=" );
735 HTMLOutFuncs::Out_Color( (*m_pStream
), aColor
);
737 m_pStream
->WriteChar( '>' ); OUT_LF();
741 TAG_OFF_LF( OOO_STRING_SVTOOLS_HTML_body
);
744 void OHTMLImportExport::WriteTables()
746 OString aStrOut
= OOO_STRING_SVTOOLS_HTML_table
;
747 aStrOut
= aStrOut
+ " ";
748 aStrOut
= aStrOut
+ OOO_STRING_SVTOOLS_HTML_frame
;
749 aStrOut
= aStrOut
+ "=";
750 aStrOut
= aStrOut
+ OOO_STRING_SVTOOLS_HTML_TF_void
;
752 Sequence
< OUString
> aNames
;
753 Reference
<XNameAccess
> xColumns
;
754 bool bUseResultMetaData
= false;
757 Reference
<XColumnsSupplier
> xColSup(m_xObject
,UNO_QUERY
);
758 xColumns
= xColSup
->getColumns();
759 aNames
= xColumns
->getElementNames();
760 if ( !aNames
.getLength() )
762 sal_Int32 nCount
= m_xResultSetMetaData
->getColumnCount();
763 aNames
.realloc(nCount
);
764 for (sal_Int32 i
= 0; i
< nCount
; ++i
)
765 aNames
[i
] = m_xResultSetMetaData
->getColumnName(i
+1);
766 bUseResultMetaData
= true;
770 aStrOut
= aStrOut
+ " ";
771 aStrOut
= aStrOut
+ OOO_STRING_SVTOOLS_HTML_O_align
;
772 aStrOut
= aStrOut
+ "=";
773 aStrOut
= aStrOut
+ OOO_STRING_SVTOOLS_HTML_AL_left
;
774 aStrOut
= aStrOut
+ " ";
775 aStrOut
= aStrOut
+ OOO_STRING_SVTOOLS_HTML_O_cellspacing
;
776 aStrOut
= aStrOut
+ "=";
777 aStrOut
= aStrOut
+ OString::number(nCellSpacing
);
778 aStrOut
= aStrOut
+ " ";
779 aStrOut
= aStrOut
+ OOO_STRING_SVTOOLS_HTML_O_cols
;
780 aStrOut
= aStrOut
+ "=";
781 aStrOut
= aStrOut
+ OString::number(aNames
.getLength());
782 aStrOut
= aStrOut
+ " ";
783 aStrOut
= aStrOut
+ OOO_STRING_SVTOOLS_HTML_O_border
;
784 aStrOut
= aStrOut
+ "=1";
787 TAG_ON( aStrOut
.getStr() );
791 TAG_ON( OOO_STRING_SVTOOLS_HTML_caption
);
792 TAG_ON( OOO_STRING_SVTOOLS_HTML_bold
);
794 m_pStream
->WriteCharPtr( OUStringToOString(m_sName
, osl_getThreadTextEncoding()).getStr() );
795 // TODO : think about the encoding of the name
796 TAG_OFF( OOO_STRING_SVTOOLS_HTML_bold
);
797 TAG_OFF( OOO_STRING_SVTOOLS_HTML_caption
);
804 TAG_ON_LF( OOO_STRING_SVTOOLS_HTML_thead
);
807 TAG_ON_LF( OOO_STRING_SVTOOLS_HTML_tablerow
);
811 boost::scoped_array
<sal_Int32
> pFormat(new sal_Int32
[aNames
.getLength()]);
813 boost::scoped_array
<const char *> pHorJustify(new const char*[aNames
.getLength()]);
814 boost::scoped_array
<sal_Int32
> pColWidth(new sal_Int32
[aNames
.getLength()]);
816 sal_Int32 nHeight
= 0;
817 m_xObject
->getPropertyValue(PROPERTY_ROW_HEIGHT
) >>= nHeight
;
819 // 1. writing the column description
820 const OUString
* pIter
= aNames
.getConstArray();
821 const OUString
* pEnd
= pIter
+ aNames
.getLength();
823 for( sal_Int32 i
=0;pIter
!= pEnd
; ++pIter
,++i
)
825 sal_Int32 nAlign
= 0;
828 if ( !bUseResultMetaData
)
830 Reference
<XPropertySet
> xColumn
;
831 xColumns
->getByName(*pIter
) >>= xColumn
;
832 xColumn
->getPropertyValue(PROPERTY_ALIGN
) >>= nAlign
;
833 pFormat
[i
] = ::comphelper::getINT32(xColumn
->getPropertyValue(PROPERTY_FORMATKEY
));
834 pColWidth
[i
] = ::comphelper::getINT32(xColumn
->getPropertyValue(PROPERTY_WIDTH
));
839 case 1: pHorJustify
[i
] = OOO_STRING_SVTOOLS_HTML_AL_center
; break;
840 case 2: pHorJustify
[i
] = OOO_STRING_SVTOOLS_HTML_AL_right
; break;
841 default: pHorJustify
[i
] = OOO_STRING_SVTOOLS_HTML_AL_left
; break;
844 if(i
== aNames
.getLength()-1)
847 WriteCell(pFormat
[i
],pColWidth
[i
],nHeight
,pHorJustify
[i
],*pIter
,OOO_STRING_SVTOOLS_HTML_tableheader
);
851 TAG_OFF_LF( OOO_STRING_SVTOOLS_HTML_tablerow
);
852 TAG_OFF_LF( OOO_STRING_SVTOOLS_HTML_thead
);
855 TAG_ON_LF( OOO_STRING_SVTOOLS_HTML_tbody
);
857 // 2. and now the data
858 Reference
< XRowSet
> xRowSet(m_xRow
,UNO_QUERY
);
861 m_xResultSet
->beforeFirst(); // set back before the first row
862 while(m_xResultSet
->next())
865 TAG_ON_LF( OOO_STRING_SVTOOLS_HTML_tablerow
);
867 if(!m_pRowMarker
|| m_pRowMarker
[kk
] == j
)
870 for(sal_Int32 i
=1;i
<=aNames
.getLength();++i
)
872 if(i
== aNames
.getLength())
878 Reference
<XPropertySet
> xColumn(m_xRowSetColumns
->getByIndex(i
-1),UNO_QUERY_THROW
);
879 dbtools::FormattedColumnValue
aFormatedValue(m_xContext
,xRowSet
,xColumn
);
880 OUString sValue
= aFormatedValue
.getFormattedValue();
881 if (!sValue
.isEmpty())
886 catch( const Exception
& )
888 DBG_UNHANDLED_EXCEPTION();
890 WriteCell(pFormat
[i
-1],pColWidth
[i
-1],nHeight
,pHorJustify
[i
-1],aValue
,OOO_STRING_SVTOOLS_HTML_tabledata
);
894 TAG_OFF_LF( OOO_STRING_SVTOOLS_HTML_tablerow
);
900 TAG_OFF_LF( OOO_STRING_SVTOOLS_HTML_tablerow
);
901 TAG_OFF_LF( OOO_STRING_SVTOOLS_HTML_thead
);
904 TAG_ON_LF( OOO_STRING_SVTOOLS_HTML_tbody
);
907 IncIndent(-1); OUT_LF(); TAG_OFF_LF( OOO_STRING_SVTOOLS_HTML_tbody
);
908 IncIndent(-1); TAG_OFF_LF( OOO_STRING_SVTOOLS_HTML_table
);
911 void OHTMLImportExport::WriteCell( sal_Int32 nFormat
, sal_Int32 nWidthPixel
, sal_Int32 nHeightPixel
, const char* pChar
,
912 const OUString
& rValue
, const char* pHtmlTag
)
914 OString aStrTD
= pHtmlTag
;
916 nWidthPixel
= nWidthPixel
? nWidthPixel
: 86;
917 nHeightPixel
= nHeightPixel
? nHeightPixel
: 17;
919 // despite the <TABLE COLS=n> and <COL WIDTH=x> designation necessary,
920 // as Netscape is not paying attention to them.
922 aStrTD
= aStrTD
+ " ";
923 aStrTD
= aStrTD
+ OOO_STRING_SVTOOLS_HTML_O_width
;
924 aStrTD
= aStrTD
+ "=";
925 aStrTD
= aStrTD
+ OString::number(nWidthPixel
);
927 aStrTD
= aStrTD
+ " ";
928 aStrTD
= aStrTD
+ OOO_STRING_SVTOOLS_HTML_O_height
;
929 aStrTD
= aStrTD
+ "=";
930 aStrTD
= aStrTD
+ OString::number(nHeightPixel
);
932 aStrTD
= aStrTD
+ " ";
933 aStrTD
= aStrTD
+ OOO_STRING_SVTOOLS_HTML_O_align
;
934 aStrTD
= aStrTD
+ "=";
935 aStrTD
= aStrTD
+ pChar
;
937 Reference
< ::com::sun::star::util::XNumberFormatsSupplier
> xSupplier
= m_xFormatter
->getNumberFormatsSupplier();
938 SvNumberFormatsSupplierObj
* pSupplierImpl
= SvNumberFormatsSupplierObj::getImplementation( xSupplier
);
939 SvNumberFormatter
* pFormatter
= pSupplierImpl
? pSupplierImpl
->GetNumberFormatter() : NULL
;
946 fVal
= m_xFormatter
->convertStringToNumber(nFormat
,rValue
);
947 HTMLOutFuncs::CreateTableDataOptionsValNum(false, fVal
,nFormat
, *pFormatter
);
949 catch(const Exception
&)
951 HTMLOutFuncs::CreateTableDataOptionsValNum(false, fVal
,nFormat
, *pFormatter
);
955 TAG_ON( aStrTD
.getStr() );
959 bool bBold
= ( ::com::sun::star::awt::FontWeight::BOLD
== m_aFont
.Weight
);
960 bool bItalic
= ( ::com::sun::star::awt::FontSlant_ITALIC
== m_aFont
.Slant
);
961 bool bUnderline
= ( ::com::sun::star::awt::FontUnderline::NONE
!= m_aFont
.Underline
);
962 bool bStrikeout
= ( ::com::sun::star::awt::FontStrikeout::NONE
!= m_aFont
.Strikeout
);
964 if ( bBold
) TAG_ON( OOO_STRING_SVTOOLS_HTML_bold
);
965 if ( bItalic
) TAG_ON( OOO_STRING_SVTOOLS_HTML_italic
);
966 if ( bUnderline
) TAG_ON( OOO_STRING_SVTOOLS_HTML_underline
);
967 if ( bStrikeout
) TAG_ON( OOO_STRING_SVTOOLS_HTML_strike
);
969 if ( rValue
.isEmpty() )
970 TAG_ON( OOO_STRING_SVTOOLS_HTML_linebreak
); // no completely empty cell
972 HTMLOutFuncs::Out_String( (*m_pStream
), rValue
,m_eDestEnc
);
974 if ( bStrikeout
) TAG_OFF( OOO_STRING_SVTOOLS_HTML_strike
);
975 if ( bUnderline
) TAG_OFF( OOO_STRING_SVTOOLS_HTML_underline
);
976 if ( bItalic
) TAG_OFF( OOO_STRING_SVTOOLS_HTML_italic
);
977 if ( bBold
) TAG_OFF( OOO_STRING_SVTOOLS_HTML_bold
);
981 TAG_OFF_LF( pHtmlTag
);
984 void OHTMLImportExport::FontOn()
986 #if OSL_DEBUG_LEVEL > 0
991 OString aStrOut
= "<";
992 aStrOut
= aStrOut
+ OOO_STRING_SVTOOLS_HTML_font
;
993 aStrOut
= aStrOut
+ " ";
994 aStrOut
= aStrOut
+ OOO_STRING_SVTOOLS_HTML_O_face
;
995 aStrOut
= aStrOut
+ "=";
996 aStrOut
= aStrOut
+ "\"";
997 aStrOut
= aStrOut
+ OUStringToOString(m_aFont
.Name
,osl_getThreadTextEncoding());
998 // TODO : think about the encoding of the font name
999 aStrOut
= aStrOut
+ "\"";
1000 aStrOut
= aStrOut
+ " ";
1001 aStrOut
= aStrOut
+ OOO_STRING_SVTOOLS_HTML_O_color
;
1002 aStrOut
= aStrOut
+ "=";
1003 m_pStream
->WriteCharPtr( aStrOut
.getStr() );
1005 sal_Int32 nColor
= 0;
1007 m_xObject
->getPropertyValue(PROPERTY_TEXTCOLOR
) >>= nColor
;
1008 ::Color
aColor(nColor
);
1010 HTMLOutFuncs::Out_Color( (*m_pStream
), aColor
);
1011 m_pStream
->WriteCharPtr( ">" );
1014 inline void OHTMLImportExport::FontOff()
1016 OSL_ENSURE(m_bCheckFont
,"Kein FontOn() gerufen");
1017 TAG_OFF( OOO_STRING_SVTOOLS_HTML_font
);
1018 #if OSL_DEBUG_LEVEL > 0
1019 m_bCheckFont
= false;
1023 void OHTMLImportExport::IncIndent( sal_Int16 nVal
)
1025 sIndent
[m_nIndent
] = '\t';
1026 m_nIndent
= m_nIndent
+ nVal
;
1027 if ( m_nIndent
< 0 )
1029 else if ( m_nIndent
> nIndentMax
)
1030 m_nIndent
= nIndentMax
;
1031 sIndent
[m_nIndent
] = 0;
1034 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */