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_dbaccess.hxx"
26 #include "TokenWriter.hxx"
27 #include <tools/debug.hxx>
28 #include <tools/diagnose_ex.h>
29 #include "RtfReader.hxx"
30 #include "HtmlReader.hxx"
31 #include "dbustrings.hrc"
32 #include <connectivity/dbtools.hxx>
33 #include <comphelper/types.hxx>
34 #include <com/sun/star/sdbc/XConnection.hpp>
35 #include <com/sun/star/sdbcx/XColumnsSupplier.hpp>
36 #include <com/sun/star/sdbc/XResultSetMetaDataSupplier.hpp>
37 #include <com/sun/star/sdbc/XRowSet.hpp>
38 #include <com/sun/star/sdbcx/XTablesSupplier.hpp>
39 #include <com/sun/star/sdb/XQueriesSupplier.hpp>
40 #include <com/sun/star/sdbc/XDataSource.hpp>
41 #include <com/sun/star/awt/FontWeight.hpp>
42 #include <com/sun/star/awt/FontStrikeout.hpp>
43 #include <com/sun/star/awt/FontSlant.hpp>
44 #include <com/sun/star/awt/FontUnderline.hpp>
45 #include <com/sun/star/document/XDocumentProperties.hpp>
46 #include <svtools/htmlkywd.hxx>
47 #include <svtools/rtfkeywd.hxx>
48 #include <tools/color.hxx>
49 #include <svtools/htmlout.hxx>
50 #include <sfx2/frmhtmlw.hxx>
51 #include <svl/numuno.hxx>
52 #include <vcl/svapp.hxx>
53 #include "UITools.hxx"
54 #include <toolkit/helper/vclunohelper.hxx>
55 #include <vcl/outdev.hxx>
56 #include <svtools/rtfout.hxx>
57 #include <svtools/htmlcfg.hxx>
58 #include <connectivity/formattedcolumnvalue.hxx>
59 #include <unotools/syslocale.hxx>
60 #include <comphelper/componentcontext.hxx>
61 #include <rtl/logfile.hxx>
62
63 using namespace dbaui;
64 using namespace dbtools;
65 using namespace svx;
66 using namespace ::com::sun::star;
67 using namespace ::com::sun::star::uno;
68 using namespace ::com::sun::star::beans;
69 using namespace ::com::sun::star::container;
70 using namespace ::com::sun::star::sdbc;
71 using namespace ::com::sun::star::sdb;
72 using namespace ::com::sun::star::frame;
73 using namespace ::com::sun::star::lang;
74 using namespace ::com::sun::star::sdbcx;
75 using namespace ::com::sun::star::awt;
76 using namespace ::com::sun::star::util;
77 using ::com::sun::star::frame::XModel;
78
operator <<(SvStream & s,const rtl::OString r)79 inline SvStream& operator<<( SvStream& s, const rtl::OString r) { return (s << r.getStr()); }
80
81 #if defined(UNX)
82 const char __FAR_DATA ODatabaseImportExport::sNewLine = '\012';
83 #else
84 const char __FAR_DATA ODatabaseImportExport::sNewLine[] = "\015\012";
85 #endif
86
87 const static char __FAR_DATA sMyBegComment[] = "<!-- ";
88 const static char __FAR_DATA sMyEndComment[] = " -->";
89 const static char __FAR_DATA sFontFamily[] = "font-family: ";
90 const static char __FAR_DATA sFontSize[] = "font-size: ";
91
92 #define SBA_FORMAT_SELECTION_COUNT 4
93 #define CELL_X 1437
94
DBG_NAME(ODatabaseImportExport)95 DBG_NAME(ODatabaseImportExport)
96 //======================================================================
97 ODatabaseImportExport::ODatabaseImportExport(const ::svx::ODataAccessDescriptor& _aDataDescriptor,
98 const Reference< XMultiServiceFactory >& _rM,
99 const Reference< ::com::sun::star::util::XNumberFormatter >& _rxNumberF,
100 const String& rExchange)
101 :m_bBookmarkSelection( sal_False )
102 ,m_xFormatter(_rxNumberF)
103 ,m_xFactory(_rM)
104 ,m_nCommandType(CommandType::TABLE)
105 ,m_bNeedToReInitialize(sal_False)
106 ,m_pReader(NULL)
107 ,m_pRowMarker(NULL)
108 ,m_bInInitialize(sal_False)
109 ,m_bCheckOnly(sal_False)
110 {
111 RTL_LOGFILE_CONTEXT_AUTHOR( aLogger, "misc", "Ocke.Janssen@sun.com", "ODatabaseImportExport::ODatabaseImportExport" );
112 DBG_CTOR(ODatabaseImportExport,NULL);
113
114 m_eDestEnc = osl_getThreadTextEncoding();
115
116 osl_incrementInterlockedCount( &m_refCount );
117 impl_initFromDescriptor( _aDataDescriptor, false );
118
119 xub_StrLen nCount = rExchange.GetTokenCount(char(11));
120 if( nCount > SBA_FORMAT_SELECTION_COUNT && rExchange.GetToken(4).Len())
121 {
122 m_pRowMarker = new sal_Int32[nCount-SBA_FORMAT_SELECTION_COUNT];
123 for(xub_StrLen i=SBA_FORMAT_SELECTION_COUNT;i<nCount;++i)
124 m_pRowMarker[i-SBA_FORMAT_SELECTION_COUNT] = rExchange.GetToken(i,char(11)).ToInt32();
125 }
126 osl_decrementInterlockedCount( &m_refCount );
127 }
128 // -----------------------------------------------------------------------------
129 // import data
ODatabaseImportExport(const::dbtools::SharedConnection & _rxConnection,const Reference<XNumberFormatter> & _rxNumberF,const Reference<XMultiServiceFactory> & _rM)130 ODatabaseImportExport::ODatabaseImportExport( const ::dbtools::SharedConnection& _rxConnection,
131 const Reference< XNumberFormatter >& _rxNumberF, const Reference< XMultiServiceFactory >& _rM )
132 :m_bBookmarkSelection( sal_False )
133 ,m_xConnection(_rxConnection)
134 ,m_xFormatter(_rxNumberF)
135 ,m_xFactory(_rM)
136 ,m_nCommandType(::com::sun::star::sdb::CommandType::TABLE)
137 ,m_bNeedToReInitialize(sal_False)
138 ,m_pReader(NULL)
139 ,m_pRowMarker(NULL)
140 ,m_bInInitialize(sal_False)
141 ,m_bCheckOnly(sal_False)
142 {
143 RTL_LOGFILE_CONTEXT_AUTHOR( aLogger, "misc", "Ocke.Janssen@sun.com", "ODatabaseImportExport::ODatabaseImportExport" );
144 DBG_CTOR(ODatabaseImportExport,NULL);
145 m_eDestEnc = osl_getThreadTextEncoding();
146 try
147 {
148 SvtSysLocale aSysLocale;
149 m_aLocale = aSysLocale.GetLocaleData().getLocale();
150 }
151 catch(Exception&)
152 {
153 }
154 }
155 //-------------------------------------------------------------------
~ODatabaseImportExport()156 ODatabaseImportExport::~ODatabaseImportExport()
157 {
158 DBG_DTOR(ODatabaseImportExport,NULL);
159 acquire();
160
161 dispose();
162
163 if(m_pReader)
164 m_pReader->release();
165 delete m_pRowMarker;
166 }
167 // -----------------------------------------------------------------------------
dispose()168 void ODatabaseImportExport::dispose()
169 {
170 RTL_LOGFILE_CONTEXT_AUTHOR( aLogger, "misc", "Ocke.Janssen@sun.com", "ODatabaseImportExport::disposing" );
171 DBG_CHKTHIS(ODatabaseImportExport,NULL);
172 // remove me as listener
173 Reference< XComponent > xComponent(m_xConnection, UNO_QUERY);
174 if (xComponent.is())
175 {
176 Reference< XEventListener> xEvt((::cppu::OWeakObject*)this,UNO_QUERY);
177 xComponent->removeEventListener(xEvt);
178 }
179 m_xConnection.clear();
180
181 ::comphelper::disposeComponent(m_xRow);
182
183 m_xObject.clear();
184 m_xResultSetMetaData.clear();
185 m_xResultSet.clear();
186 m_xRow.clear();
187 m_xRowLocate.clear();
188 m_xFormatter.clear();
189 }
190 // -----------------------------------------------------------------------------
disposing(const EventObject & Source)191 void SAL_CALL ODatabaseImportExport::disposing( const EventObject& Source ) throw(::com::sun::star::uno::RuntimeException)
192 {
193 RTL_LOGFILE_CONTEXT_AUTHOR( aLogger, "misc", "Ocke.Janssen@sun.com", "ODatabaseImportExport::disposing" );
194 DBG_CHKTHIS(ODatabaseImportExport,NULL);
195 Reference<XConnection> xCon(Source.Source,UNO_QUERY);
196 if(m_xConnection.is() && m_xConnection == xCon)
197 {
198 m_xConnection.clear();
199 dispose();
200 m_bNeedToReInitialize = true;
201 //if(!m_bInInitialize)
202 // initialize();
203 }
204 }
205 // -----------------------------------------------------------------------------
initialize(const ODataAccessDescriptor & _aDataDescriptor)206 void ODatabaseImportExport::initialize( const ODataAccessDescriptor& _aDataDescriptor )
207 {
208 RTL_LOGFILE_CONTEXT_AUTHOR( aLogger, "misc", "Ocke.Janssen@sun.com", "ODatabaseImportExport::initialize" );
209 impl_initFromDescriptor( _aDataDescriptor, true );
210 }
211
212 // -----------------------------------------------------------------------------
impl_initFromDescriptor(const ODataAccessDescriptor & _aDataDescriptor,bool _bPlusDefaultInit)213 void ODatabaseImportExport::impl_initFromDescriptor( const ODataAccessDescriptor& _aDataDescriptor, bool _bPlusDefaultInit)
214 {
215 RTL_LOGFILE_CONTEXT_AUTHOR( aLogger, "misc", "Ocke.Janssen@sun.com", "ODatabaseImportExport::impl_initFromDescriptor" );
216 DBG_CHKTHIS(ODatabaseImportExport,NULL);
217 if ( !_bPlusDefaultInit )
218 {
219 m_sDataSourceName = _aDataDescriptor.getDataSource();
220 _aDataDescriptor[daCommandType] >>= m_nCommandType;
221 _aDataDescriptor[daCommand] >>= m_sName;
222 // some additonal information
223 if(_aDataDescriptor.has(daConnection))
224 {
225 Reference< XConnection > xPureConn( _aDataDescriptor[daConnection], UNO_QUERY );
226 m_xConnection.reset( xPureConn, SharedConnection::NoTakeOwnership );
227 Reference< XEventListener> xEvt((::cppu::OWeakObject*)this,UNO_QUERY);
228 Reference< XComponent > xComponent(m_xConnection, UNO_QUERY);
229 if (xComponent.is() && xEvt.is())
230 xComponent->addEventListener(xEvt);
231 }
232
233 if ( _aDataDescriptor.has( daSelection ) )
234 _aDataDescriptor[ daSelection ] >>= m_aSelection;
235
236 if ( _aDataDescriptor.has( daBookmarkSelection ) )
237 _aDataDescriptor[ daBookmarkSelection ] >>= m_bBookmarkSelection;
238
239 if ( _aDataDescriptor.has( daCursor ) )
240 {
241 _aDataDescriptor[ daCursor ] >>= m_xResultSet;
242 m_xRowLocate.set( m_xResultSet, UNO_QUERY );
243 }
244
245 if ( m_aSelection.getLength() != 0 )
246 {
247 if ( !m_xResultSet.is() )
248 {
249 OSL_ENSURE( false, "ODatabaseImportExport::impl_initFromDescriptor: selection without result set is nonsense!" );
250 m_aSelection.realloc( 0 );
251 }
252 }
253
254 if ( m_aSelection.getLength() != 0 )
255 {
256 if ( m_bBookmarkSelection && !m_xRowLocate.is() )
257 {
258 OSL_ENSURE( false, "ODatabaseImportExport::impl_initFromDescriptor: no XRowLocate -> no bookmars!" );
259 m_aSelection.realloc( 0 );
260 }
261 }
262 }
263 else
264 initialize();
265
266 try
267 {
268 SvtSysLocale aSysLocale;
269 m_aLocale = aSysLocale.GetLocaleData().getLocale();
270 }
271 catch(Exception&)
272 {
273 }
274 }
275 // -----------------------------------------------------------------------------
initialize()276 void ODatabaseImportExport::initialize()
277 {
278 RTL_LOGFILE_CONTEXT_AUTHOR( aLogger, "misc", "Ocke.Janssen@sun.com", "ODatabaseImportExport::initialize" );
279 DBG_CHKTHIS(ODatabaseImportExport,NULL);
280 m_bInInitialize = sal_True;
281 m_bNeedToReInitialize = false;
282
283 if ( !m_xConnection.is() )
284 { // we need a connection
285 OSL_ENSURE(m_sDataSourceName.getLength(),"There must be a datsource name!");
286 Reference<XNameAccess> xDatabaseContext = Reference< XNameAccess >(m_xFactory->createInstance(SERVICE_SDB_DATABASECONTEXT), UNO_QUERY);
287 Reference< XEventListener> xEvt((::cppu::OWeakObject*)this,UNO_QUERY);
288
289 Reference< XConnection > xConnection;
290 SQLExceptionInfo aInfo = ::dbaui::createConnection( m_sDataSourceName, xDatabaseContext, m_xFactory, xEvt, xConnection );
291 m_xConnection.reset( xConnection );
292
293 if(aInfo.isValid() && aInfo.getType() == SQLExceptionInfo::SQL_EXCEPTION)
294 throw *static_cast<const SQLException*>(aInfo);
295 }
296
297 Reference<XNameAccess> xNameAccess;
298 switch(m_nCommandType)
299 {
300 case CommandType::TABLE:
301 {
302 // only for tables
303 Reference<XTablesSupplier> xSup(m_xConnection,UNO_QUERY);
304 if(xSup.is())
305 xNameAccess = xSup->getTables();
306 }
307 break;
308 case CommandType::QUERY:
309 {
310 Reference<XQueriesSupplier> xSup(m_xConnection,UNO_QUERY);
311 if(xSup.is())
312 xNameAccess = xSup->getQueries();
313 }
314 break;
315 }
316 if(xNameAccess.is() && xNameAccess->hasByName(m_sName))
317 {
318 Reference<XPropertySet> xSourceObject;
319 xNameAccess->getByName(m_sName) >>= m_xObject;
320 }
321
322 if(m_xObject.is())
323 {
324 try
325 {
326 if(m_xObject->getPropertySetInfo()->hasPropertyByName(PROPERTY_FONT))
327 m_xObject->getPropertyValue(PROPERTY_FONT) >>= m_aFont;
328
329 // the result set may be already set with the datadescriptor
330 if ( !m_xResultSet.is() )
331 {
332 m_xResultSet.set( m_xFactory->createInstance( ::rtl::OUString::createFromAscii( "com.sun.star.sdb.RowSet" ) ), UNO_QUERY );
333 Reference< XPropertySet > xProp( m_xResultSet, UNO_QUERY_THROW );
334 xProp->setPropertyValue( PROPERTY_ACTIVE_CONNECTION, makeAny( m_xConnection.getTyped() ) );
335 xProp->setPropertyValue( PROPERTY_COMMAND_TYPE, makeAny( m_nCommandType ) );
336 xProp->setPropertyValue( PROPERTY_COMMAND, makeAny( m_sName ) );
337 Reference< XRowSet > xRowSet( xProp, UNO_QUERY );
338 xRowSet->execute();
339 }
340 impl_initializeRowMember_throw();
341 }
342 catch(Exception& )
343 {
344 m_xRow = NULL;
345 m_xResultSetMetaData = NULL;
346 ::comphelper::disposeComponent(m_xResultSet);
347 throw;
348 }
349 }
350 if ( !m_aFont.Name.getLength() )
351 {
352 Font aApplicationFont = OutputDevice::GetDefaultFont(
353 DEFAULTFONT_SANS_UNICODE,
354 Application::GetSettings().GetUILanguage(),
355 DEFAULTFONT_FLAGS_ONLYONE
356 );
357 m_aFont = VCLUnoHelper::CreateFontDescriptor( aApplicationFont );
358 }
359
360 m_bInInitialize = sal_False;
361 }
362 // -----------------------------------------------------------------------------
Write()363 sal_Bool ODatabaseImportExport::Write()
364 {
365 if ( m_bNeedToReInitialize )
366 {
367 if ( !m_bInInitialize )
368 initialize();
369 } // if ( m_bNeedToReInitialize )
370 return sal_True;
371 }
372 // -----------------------------------------------------------------------------
Read()373 sal_Bool ODatabaseImportExport::Read()
374 {
375 if ( m_bNeedToReInitialize )
376 {
377 if ( !m_bInInitialize )
378 initialize();
379 } // if ( m_bNeedToReInitialize )
380 return sal_True;
381 }
382 // -----------------------------------------------------------------------------
impl_initializeRowMember_throw()383 void ODatabaseImportExport::impl_initializeRowMember_throw()
384 {
385 RTL_LOGFILE_CONTEXT_AUTHOR( aLogger, "misc", "Ocke.Janssen@sun.com", "ODatabaseImportExport::impl_initializeRowMember_throw" );
386 if ( !m_xRow.is() && m_xResultSet.is() )
387 {
388 m_xRow.set( m_xResultSet, UNO_QUERY );
389 m_xRowLocate.set( m_xResultSet, UNO_QUERY );
390 m_xResultSetMetaData = Reference<XResultSetMetaDataSupplier>(m_xRow,UNO_QUERY)->getMetaData();
391 Reference<XColumnsSupplier> xSup(m_xResultSet,UNO_QUERY_THROW);
392 m_xRowSetColumns.set(xSup->getColumns(),UNO_QUERY_THROW);
393 }
394 }
395 //======================================================================
Write()396 sal_Bool ORTFImportExport::Write()
397 {
398 RTL_LOGFILE_CONTEXT_AUTHOR( aLogger, "misc", "Ocke.Janssen@sun.com", "ORTFImportExport::Write" );
399 ODatabaseImportExport::Write();
400 (*m_pStream) << '{' << OOO_STRING_SVTOOLS_RTF_RTF;
401 (*m_pStream) << OOO_STRING_SVTOOLS_RTF_ANSI << ODatabaseImportExport::sNewLine;
402 rtl_TextEncoding eDestEnc = RTL_TEXTENCODING_MS_1252;
403
404 /*
405 // Access RTF Export Beispiel
406 {\rtf1\ansi
407 {\colortbl\red0\green0\blue0;\red255\green255\blue255;\red192\green192\blue192;}
408 {\fonttbl\f0\fcharset0\fnil MS Sans Serif;\f1\fcharset0\fnil Arial;\f2\fcharset0\fnil Arial;}
409 \trowd\trgaph40
410 \clbrdrl\brdrs\brdrcf0\clbrdrt\brdrs\brdrcf0\clbrdrb\brdrs\brdrcf0\clbrdrr\brdrs\brdrcf0\clshdng10000\clcfpat2\cellx1437
411 \clbrdrl\brdrs\brdrcf0\clbrdrt\brdrs\brdrcf0\clbrdrb\brdrs\brdrcf0\clbrdrr\brdrs\brdrcf0\clshdng10000\clcfpat2\cellx2874
412 {
413 \trrh-270\pard\intbl
414 {\qc\fs20\b\f1\cf0\cb2 text\cell}
415 \pard\intbl
416 {\qc\fs20\b\f1\cf0\cb2 datum\cell}
417 \pard\intbl\row
418 }
419 \trowd\trgaph40\clbrdrl\brdrs\brdrcf2\clbrdrt\brdrs\brdrcf2\clbrdrb\brdrs\brdrcf2\clbrdrr\brdrs\brdrcf2\clshdng10000\clcfpat1\cellx1437\clbrdrl\brdrs\brdrcf2\clbrdrt\brdrs\brdrcf2\clbrdrb\brdrs\brdrcf2\clbrdrr\brdrs\brdrcf2\clshdng10000\clcfpat1\cellx2874
420 {\trrh-270\pard\intbl
421 {\ql\fs20\f2\cf0\cb1 heute\cell}
422 \pard\intbl
423 {\qr\fs20\f2\cf0\cb1 10.11.98\cell}
424 \pard\intbl\row
425 }
426 \trowd\trgaph40\clbrdrl\brdrs\brdrcf2\clbrdrt\brdrs\brdrcf2\clbrdrb\brdrs\brdrcf2\clbrdrr\brdrs\brdrcf2\clshdng10000\clcfpat1\cellx1437\clbrdrl\brdrs\brdrcf2\clbrdrt\brdrs\brdrcf2\clbrdrb\brdrs\brdrcf2\clbrdrr\brdrs\brdrcf2\clshdng10000\clcfpat1\cellx2874
427 {\trrh-270\pard\intbl
428 {\ql\fs20\f2\cf0\cb1 morgen\cell}
429 \pard\intbl
430 {\qr\fs20\f2\cf0\cb1 11.11.98\cell}
431 \pard\intbl\row
432 }
433 \trowd\trgaph40\clbrdrl\brdrs\brdrcf2\clbrdrt\brdrs\brdrcf2\clbrdrb\brdrs\brdrcf2\clbrdrr\brdrs\brdrcf2\clshdng10000\clcfpat1\cellx1437\clbrdrl\brdrs\brdrcf2\clbrdrt\brdrs\brdrcf2\clbrdrb\brdrs\brdrcf2\clbrdrr\brdrs\brdrcf2\clshdng10000\clcfpat1\cellx2874
434 {\trrh-270\pard\intbl
435 {\ql\fs20\f2\cf0\cb1 bruder\cell}
436 \pard\intbl
437 {\qr\fs20\f2\cf0\cb1 21.04.98\cell}
438 \pard\intbl\row
439 }
440 \trowd\trgaph40
441 \clbrdrl\brdrs\brdrcf2\clbrdrt\brdrs\brdrcf2\clbrdrb\brdrs\brdrcf2\clbrdrr\brdrs\brdrcf2\clshdng10000\clcfpat1\cellx
442 \clbrdrl\brdrs\brdrcf2\clbrdrt\brdrs\brdrcf2\clbrdrb\brdrs\brdrcf2\clbrdrr\brdrs\brdrcf2\clshdng10000\clcfpat1\cellx2874
443 {\trrh-270\pard\intbl
444 {\ql\fs20\f2\cf0\cb1 vater\cell}
445 \pard\intbl
446 {\qr\fs20\f2\cf0\cb1 28.06.98\cell}
447 \pard\intbl\row
448 }
449 }
450 */
451
452 sal_Bool bBold = ( ::com::sun::star::awt::FontWeight::BOLD == m_aFont.Weight );
453 sal_Bool bItalic = ( ::com::sun::star::awt::FontSlant_ITALIC == m_aFont.Slant );
454 sal_Bool bUnderline = ( ::com::sun::star::awt::FontUnderline::NONE != m_aFont.Underline );
455 sal_Bool bStrikeout = ( ::com::sun::star::awt::FontStrikeout::NONE != m_aFont.Strikeout );
456
457 sal_Int32 nColor = 0;
458 if(m_xObject.is())
459 m_xObject->getPropertyValue(PROPERTY_TEXTCOLOR) >>= nColor;
460 ::Color aColor(nColor);
461
462 ByteString aFonts(String(m_aFont.Name),eDestEnc);
463 if(!aFonts.Len())
464 {
465 String aName = Application::GetSettings().GetStyleSettings().GetAppFont().GetName();
466 aFonts = ByteString (aName,eDestEnc);
467 }
468 ::rtl::OString aFormat("\\fcharset0\\fnil ");
469 ByteString aFontNr;
470
471 (*m_pStream) << "{\\fonttbl";
472 xub_StrLen nTokenCount = aFonts.GetTokenCount();
473 for(xub_StrLen j=0;j<nTokenCount;++j)
474 {
475 (*m_pStream) << "\\f";
476 m_pStream->WriteNumber(j);
477 (*m_pStream) << aFormat;
478 (*m_pStream) << aFonts.GetToken(j).GetBuffer();
479 (*m_pStream) << ';';
480 }
481 (*m_pStream) << '}' ;
482 (*m_pStream) << ODatabaseImportExport::sNewLine;
483 // write the rtf color table
484 (*m_pStream) << '{' << OOO_STRING_SVTOOLS_RTF_COLORTBL << OOO_STRING_SVTOOLS_RTF_RED;
485 m_pStream->WriteNumber(aColor.GetRed());
486 (*m_pStream) << OOO_STRING_SVTOOLS_RTF_GREEN;
487 m_pStream->WriteNumber(aColor.GetGreen());
488 (*m_pStream) << OOO_STRING_SVTOOLS_RTF_BLUE;
489 m_pStream->WriteNumber(aColor.GetBlue());
490
491 (*m_pStream) << ";\\red255\\green255\\blue255;\\red192\\green192\\blue192;}"
492 << ODatabaseImportExport::sNewLine;
493
494 ::rtl::OString aTRRH("\\trrh-270\\pard\\intbl");
495 ::rtl::OString aFS("\\fs20\\f0\\cf0\\cb2");
496 ::rtl::OString aCell1("\\clbrdrl\\brdrs\\brdrcf0\\clbrdrt\\brdrs\\brdrcf0\\clbrdrb\\brdrs\\brdrcf0\\clbrdrr\\brdrs\\brdrcf0\\clshdng10000\\clcfpat2\\cellx");
497
498 (*m_pStream) << OOO_STRING_SVTOOLS_RTF_TROWD << OOO_STRING_SVTOOLS_RTF_TRGAPH;
499 m_pStream->WriteNumber(40);
500 (*m_pStream) << ODatabaseImportExport::sNewLine;
501
502 if(m_xObject.is())
503 {
504 Reference<XColumnsSupplier> xColSup(m_xObject,UNO_QUERY);
505 Reference<XNameAccess> xColumns = xColSup->getColumns();
506 Sequence< ::rtl::OUString> aNames(xColumns->getElementNames());
507 const ::rtl::OUString* pIter = aNames.getConstArray();
508
509 sal_Int32 nCount = aNames.getLength();
510 sal_Bool bUseResultMetaData = sal_False;
511 if ( !nCount )
512 {
513 nCount = m_xResultSetMetaData->getColumnCount();
514 bUseResultMetaData = sal_True;
515 }
516
517 for( sal_Int32 i=1; i<=nCount; ++i )
518 {
519 (*m_pStream) << aCell1;
520 m_pStream->WriteNumber(i*CELL_X);
521 (*m_pStream) << ODatabaseImportExport::sNewLine;
522 }
523
524 // Spaltenbeschreibung
525 (*m_pStream) << '{' << ODatabaseImportExport::sNewLine;
526 (*m_pStream) << aTRRH;
527
528
529 ::rtl::OString* pHorzChar = new ::rtl::OString[nCount];
530
531 for ( sal_Int32 i=1; i <= nCount; ++i )
532 {
533 sal_Int32 nAlign = 0;
534 ::rtl::OUString sColumnName;
535 if ( bUseResultMetaData )
536 sColumnName = m_xResultSetMetaData->getColumnName(i);
537 else
538 {
539 sColumnName = *pIter;
540 Reference<XPropertySet> xColumn;
541 xColumns->getByName(sColumnName) >>= xColumn;
542 xColumn->getPropertyValue(PROPERTY_ALIGN) >>= nAlign;
543 ++pIter;
544 }
545
546 const char* pChar;
547 switch( nAlign )
548 {
549 case 1: pChar = OOO_STRING_SVTOOLS_RTF_QC; break;
550 case 2: pChar = OOO_STRING_SVTOOLS_RTF_QR; break;
551 case 0:
552 default:pChar = OOO_STRING_SVTOOLS_RTF_QL; break;
553 }
554
555 pHorzChar[i-1] = pChar; // um sp"ater nicht immer im ITEMSET zuw"uhlen
556
557 (*m_pStream) << ODatabaseImportExport::sNewLine;
558 (*m_pStream) << '{';
559 (*m_pStream) << OOO_STRING_SVTOOLS_RTF_QC; // column header always centered
560
561 if ( bBold ) (*m_pStream) << OOO_STRING_SVTOOLS_RTF_B;
562 if ( bItalic ) (*m_pStream) << OOO_STRING_SVTOOLS_RTF_I;
563 if ( bUnderline ) (*m_pStream) << OOO_STRING_SVTOOLS_RTF_UL;
564 if ( bStrikeout ) (*m_pStream) << OOO_STRING_SVTOOLS_RTF_STRIKE;
565
566 (*m_pStream) << aFS;
567 (*m_pStream) << ' ';
568 RTFOutFuncs::Out_String(*m_pStream,sColumnName,eDestEnc);
569
570 (*m_pStream) << OOO_STRING_SVTOOLS_RTF_CELL;
571 (*m_pStream) << '}';
572 (*m_pStream) << ODatabaseImportExport::sNewLine;
573 (*m_pStream) << OOO_STRING_SVTOOLS_RTF_PARD << OOO_STRING_SVTOOLS_RTF_INTBL;
574 }
575
576 (*m_pStream) << OOO_STRING_SVTOOLS_RTF_ROW;
577 (*m_pStream) << ODatabaseImportExport::sNewLine << '}';
578 (*m_pStream) << ODatabaseImportExport::sNewLine;
579
580 ::comphelper::ComponentContext aContext(m_xFactory);
581 Reference< XRowSet > xRowSet(m_xRow,UNO_QUERY);
582 sal_Int32 k=1;
583 sal_Int32 kk=0;
584 if ( m_aSelection.getLength() )
585 {
586 const Any* pSelIter = m_aSelection.getConstArray();
587 const Any* pEnd = pSelIter + m_aSelection.getLength();
588
589 sal_Bool bContinue = sal_True;
590 for( ; pSelIter != pEnd && bContinue; ++pSelIter )
591 {
592 if ( m_bBookmarkSelection )
593 {
594 bContinue = m_xRowLocate->moveToBookmark( *pSelIter );
595 }
596 else
597 {
598 sal_Int32 nPos = -1;
599 OSL_VERIFY( *pSelIter >>= nPos );
600 bContinue = ( m_xResultSet->absolute( nPos ) );
601 }
602
603 if ( bContinue )
604 appendRow( pHorzChar, nCount, k, kk );
605 }
606 }
607 else
608 {
609 m_xResultSet->beforeFirst(); // set back before the first row
610 while(m_xResultSet->next())
611 {
612 appendRow(pHorzChar,nCount,k,kk);
613 }
614 }
615 delete [] pHorzChar;
616 }
617
618 (*m_pStream) << '}' << ODatabaseImportExport::sNewLine;
619 (*m_pStream) << (sal_uInt8) 0;
620 return ((*m_pStream).GetError() == SVSTREAM_OK);
621 }
622 // -----------------------------------------------------------------------------
appendRow(::rtl::OString * pHorzChar,sal_Int32 _nColumnCount,sal_Int32 & k,sal_Int32 & kk)623 void ORTFImportExport::appendRow(::rtl::OString* pHorzChar,sal_Int32 _nColumnCount,sal_Int32& k,sal_Int32& kk)
624 {
625 if(!m_pRowMarker || m_pRowMarker[kk] == k)
626 {
627 ++kk;
628 (*m_pStream) << OOO_STRING_SVTOOLS_RTF_TROWD << OOO_STRING_SVTOOLS_RTF_TRGAPH;
629 m_pStream->WriteNumber(40);
630 (*m_pStream) << ODatabaseImportExport::sNewLine;
631
632 static const ::rtl::OString aCell2("\\clbrdrl\\brdrs\\brdrcf2\\clbrdrt\\brdrs\\brdrcf2\\clbrdrb\\brdrs\\brdrcf2\\clbrdrr\\brdrs\\brdrcf2\\clshdng10000\\clcfpat1\\cellx");
633 static const ::rtl::OString aTRRH("\\trrh-270\\pard\\intbl");
634
635 for ( sal_Int32 i=1; i<=_nColumnCount; ++i )
636 {
637 (*m_pStream) << aCell2;
638 m_pStream->WriteNumber(i*CELL_X);
639 (*m_pStream) << ODatabaseImportExport::sNewLine;
640 }
641
642 const sal_Bool bBold = ( ::com::sun::star::awt::FontWeight::BOLD == m_aFont.Weight );
643 const sal_Bool bItalic = ( ::com::sun::star::awt::FontSlant_ITALIC == m_aFont.Slant );
644 const sal_Bool bUnderline = ( ::com::sun::star::awt::FontUnderline::NONE != m_aFont.Underline );
645 const sal_Bool bStrikeout = ( ::com::sun::star::awt::FontStrikeout::NONE != m_aFont.Strikeout );
646 static const ::rtl::OString aFS2("\\fs20\\f1\\cf0\\cb1");
647 ::comphelper::ComponentContext aContext(m_xFactory);
648 Reference< XRowSet > xRowSet(m_xRow,UNO_QUERY);
649
650 (*m_pStream) << '{';
651 (*m_pStream) << aTRRH;
652 for ( sal_Int32 i=1; i <= _nColumnCount; ++i )
653 {
654 (*m_pStream) << ODatabaseImportExport::sNewLine;
655 (*m_pStream) << '{';
656 (*m_pStream) << pHorzChar[i-1];
657
658 if ( bBold ) (*m_pStream) << OOO_STRING_SVTOOLS_RTF_B;
659 if ( bItalic ) (*m_pStream) << OOO_STRING_SVTOOLS_RTF_I;
660 if ( bUnderline ) (*m_pStream) << OOO_STRING_SVTOOLS_RTF_UL;
661 if ( bStrikeout ) (*m_pStream) << OOO_STRING_SVTOOLS_RTF_STRIKE;
662
663 (*m_pStream) << aFS2;
664 (*m_pStream) << ' ';
665
666 try
667 {
668 Reference<XPropertySet> xColumn(m_xRowSetColumns->getByIndex(i-1),UNO_QUERY_THROW);
669 dbtools::FormattedColumnValue aFormatedValue(aContext,xRowSet,xColumn);
670 ::rtl::OUString sValue = aFormatedValue.getFormattedValue();
671 // m_xRow->getString(i);
672 //if (!m_xRow->wasNull())
673 if ( sValue.getLength() )
674 RTFOutFuncs::Out_String(*m_pStream,sValue,m_eDestEnc);
675 }
676 catch (Exception&)
677 {
678 OSL_ENSURE(0,"RTF WRITE!");
679 }
680
681 (*m_pStream) << OOO_STRING_SVTOOLS_RTF_CELL;
682 (*m_pStream) << '}';
683 (*m_pStream) << ODatabaseImportExport::sNewLine;
684 (*m_pStream) << OOO_STRING_SVTOOLS_RTF_PARD << OOO_STRING_SVTOOLS_RTF_INTBL;
685 }
686 (*m_pStream) << OOO_STRING_SVTOOLS_RTF_ROW << ODatabaseImportExport::sNewLine;
687 (*m_pStream) << '}';
688 }
689 ++k;
690 }
691 //-------------------------------------------------------------------
Read()692 sal_Bool ORTFImportExport::Read()
693 {
694 RTL_LOGFILE_CONTEXT_AUTHOR( aLogger, "misc", "Ocke.Janssen@sun.com", "ORTFImportExport::Read" );
695 ODatabaseImportExport::Read();
696 SvParserState eState = SVPAR_ERROR;
697 if ( m_pStream )
698 {
699 m_pReader = new ORTFReader((*m_pStream),m_xConnection,m_xFormatter,m_xFactory);
700 ((ORTFReader*)m_pReader)->AddRef();
701 if ( isCheckEnabled() )
702 m_pReader->enableCheckOnly();
703 eState = ((ORTFReader*)m_pReader)->CallParser();
704 m_pReader->release();
705 m_pReader = NULL;
706 }
707
708 return eState != SVPAR_ERROR;
709 }
710 //-------------------------------------------------------------------
711 //===================================================================
712 const sal_Int16 __FAR_DATA OHTMLImportExport::nDefaultFontSize[SBA_HTML_FONTSIZES] =
713 {
714 HTMLFONTSZ1_DFLT, HTMLFONTSZ2_DFLT, HTMLFONTSZ3_DFLT, HTMLFONTSZ4_DFLT,
715 HTMLFONTSZ5_DFLT, HTMLFONTSZ6_DFLT, HTMLFONTSZ7_DFLT
716 };
717
718 sal_Int16 OHTMLImportExport::nFontSize[SBA_HTML_FONTSIZES] = { 0 };
719
720 const sal_Int16 OHTMLImportExport::nCellSpacing = 0;
721 const char __FAR_DATA 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";
722
723 //========================================================================
724 // Makros fuer HTML-Export
725 //========================================================================
726 #define OUT_PROLOGUE() ((*m_pStream) << sHTML30_Prologue << ODatabaseImportExport::sNewLine << ODatabaseImportExport::sNewLine)
727 #define TAG_ON( tag ) HTMLOutFuncs::Out_AsciiTag( (*m_pStream), tag )
728 #define TAG_OFF( tag ) HTMLOutFuncs::Out_AsciiTag( (*m_pStream), tag, sal_False )
729 #define OUT_STR( str ) HTMLOutFuncs::Out_String( (*m_pStream), str )
730 #define OUT_LF() (*m_pStream) << ODatabaseImportExport::sNewLine << GetIndentStr()
731 #define lcl_OUT_LF() (*m_pStream) << ODatabaseImportExport::sNewLine
732 #define TAG_ON_LF( tag ) (TAG_ON( tag ) << ODatabaseImportExport::sNewLine << GetIndentStr())
733 #define TAG_OFF_LF( tag ) (TAG_OFF( tag ) << ODatabaseImportExport::sNewLine << GetIndentStr())
734 #define OUT_HR() TAG_ON_LF( OOO_STRING_SVTOOLS_HTML_horzrule )
735 #define OUT_COMMENT( comment ) ((*m_pStream) << sMyBegComment, OUT_STR( comment ) << sMyEndComment << ODatabaseImportExport::sNewLine << GetIndentStr())
736 #define lcl_OUT_COMMENT( comment ) ((*m_pStream) << sMyBegComment, OUT_STR( comment ) << sMyEndComment << ODatabaseImportExport::sNewLine)
737
738 //-------------------------------------------------------------------
OHTMLImportExport(const::svx::ODataAccessDescriptor & _aDataDescriptor,const Reference<XMultiServiceFactory> & _rM,const Reference<::com::sun::star::util::XNumberFormatter> & _rxNumberF,const String & rExchange)739 OHTMLImportExport::OHTMLImportExport(const ::svx::ODataAccessDescriptor& _aDataDescriptor,
740 const Reference< XMultiServiceFactory >& _rM,
741 const Reference< ::com::sun::star::util::XNumberFormatter >& _rxNumberF,
742 const String& rExchange)
743 : ODatabaseImportExport(_aDataDescriptor,_rM,_rxNumberF,rExchange)
744 ,m_nIndent(0)
745 #ifdef DBG_UTIL
746 ,m_bCheckFont(sal_False)
747 #endif
748 {
749 RTL_LOGFILE_CONTEXT_AUTHOR( aLogger, "misc", "Ocke.Janssen@sun.com", "OHTMLImportExport::OHTMLImportExport" );
750 // set HTML configuration
751 SvxHtmlOptions* pHtmlOptions = SvxHtmlOptions::Get();
752 m_eDestEnc = pHtmlOptions->GetTextEncoding();
753 strncpy( sIndent, sIndentSource ,std::min(sizeof(sIndent),sizeof(sIndentSource)));
754 sIndent[0] = 0;
755 }
756 //-------------------------------------------------------------------
Write()757 sal_Bool OHTMLImportExport::Write()
758 {
759 RTL_LOGFILE_CONTEXT_AUTHOR( aLogger, "misc", "Ocke.Janssen@sun.com", "OHTMLImportExport::Write" );
760 ODatabaseImportExport::Write();
761 if(m_xObject.is())
762 {
763 (*m_pStream) << '<' << OOO_STRING_SVTOOLS_HTML_doctype << ' ' << OOO_STRING_SVTOOLS_HTML_doctype32 << '>' << ODatabaseImportExport::sNewLine << ODatabaseImportExport::sNewLine;
764 TAG_ON_LF( OOO_STRING_SVTOOLS_HTML_html );
765 WriteHeader();
766 OUT_LF();
767 WriteBody();
768 OUT_LF();
769 TAG_OFF_LF( OOO_STRING_SVTOOLS_HTML_html );
770
771 return ((*m_pStream).GetError() == SVSTREAM_OK);
772 }
773 return sal_False;
774 }
775 //-------------------------------------------------------------------
Read()776 sal_Bool OHTMLImportExport::Read()
777 {
778 RTL_LOGFILE_CONTEXT_AUTHOR( aLogger, "misc", "Ocke.Janssen@sun.com", "OHTMLImportExport::Read" );
779 ODatabaseImportExport::Read();
780 SvParserState eState = SVPAR_ERROR;
781 if ( m_pStream )
782 {
783 m_pReader = new OHTMLReader((*m_pStream),m_xConnection,m_xFormatter,m_xFactory);
784 ((OHTMLReader*)m_pReader)->AddRef();
785 if ( isCheckEnabled() )
786 m_pReader->enableCheckOnly();
787 //dyf add 20070601
788 m_pReader->SetTableName(m_sDefaultTableName);
789 //dyf add end
790 eState = ((OHTMLReader*)m_pReader)->CallParser();
791 m_pReader->release();
792 m_pReader = NULL;
793 }
794
795 return eState != SVPAR_ERROR;
796 }
797 //-------------------------------------------------------------------
WriteHeader()798 void OHTMLImportExport::WriteHeader()
799 {
800 RTL_LOGFILE_CONTEXT_AUTHOR( aLogger, "misc", "Ocke.Janssen@sun.com", "OHTMLImportExport::WriteHeader" );
801 uno::Reference<document::XDocumentProperties> xDocProps(
802 m_xFactory->createInstance(::rtl::OUString::createFromAscii(
803 "com.sun.star.document.DocumentProperties")),
804 uno::UNO_QUERY);
805 if (xDocProps.is()) {
806 xDocProps->setTitle(m_sName);
807 }
808
809 IncIndent(1); TAG_ON_LF( OOO_STRING_SVTOOLS_HTML_head );
810
811 SfxFrameHTMLWriter::Out_DocInfo( (*m_pStream), String(),
812 xDocProps, sIndent );
813 OUT_LF();
814 IncIndent(-1); OUT_LF(); TAG_OFF_LF( OOO_STRING_SVTOOLS_HTML_head );
815 }
816 //-----------------------------------------------------------------------
WriteBody()817 void OHTMLImportExport::WriteBody()
818 {
819 RTL_LOGFILE_CONTEXT_AUTHOR( aLogger, "misc", "Ocke.Janssen@sun.com", "OHTMLImportExport::WriteBody" );
820
821 IncIndent(1); TAG_ON_LF( OOO_STRING_SVTOOLS_HTML_style );
822
823 (*m_pStream) << sMyBegComment; OUT_LF();
824 (*m_pStream) << OOO_STRING_SVTOOLS_HTML_body << " { " << sFontFamily << '\"' << ::rtl::OUStringToOString( m_aFont.Name, gsl_getSystemTextEncoding()) << '\"';
825 // TODO : think about the encoding of the font name
826 (*m_pStream) << "; " << sFontSize;
827 m_pStream->WriteNumber(m_aFont.Height);
828 (*m_pStream) << '}';
829
830 OUT_LF();
831 (*m_pStream) << sMyEndComment;
832 IncIndent(-1); OUT_LF(); TAG_OFF_LF( OOO_STRING_SVTOOLS_HTML_style );
833 OUT_LF();
834
835 // default Textfarbe schwarz
836 (*m_pStream) << '<' << OOO_STRING_SVTOOLS_HTML_body << ' ' << OOO_STRING_SVTOOLS_HTML_O_text << '=';
837 sal_Int32 nColor = 0;
838 if(m_xObject.is())
839 m_xObject->getPropertyValue(PROPERTY_TEXTCOLOR) >>= nColor;
840 ::Color aColor(nColor);
841 HTMLOutFuncs::Out_Color( (*m_pStream), aColor );
842
843 ::rtl::OString sOut( ' ' );
844 sOut = sOut + OOO_STRING_SVTOOLS_HTML_O_bgcolor;
845 sOut = sOut + "=";
846 (*m_pStream) << sOut;
847 HTMLOutFuncs::Out_Color( (*m_pStream), aColor );
848
849 (*m_pStream) << '>'; OUT_LF();
850
851 WriteTables();
852
853 TAG_OFF_LF( OOO_STRING_SVTOOLS_HTML_body );
854 }
855 //-----------------------------------------------------------------------
WriteTables()856 void OHTMLImportExport::WriteTables()
857 {
858 RTL_LOGFILE_CONTEXT_AUTHOR( aLogger, "misc", "Ocke.Janssen@sun.com", "OHTMLImportExport::WriteTables" );
859 ::rtl::OString aStrOut = OOO_STRING_SVTOOLS_HTML_table;
860 aStrOut = aStrOut + " ";
861 aStrOut = aStrOut + OOO_STRING_SVTOOLS_HTML_frame;
862 aStrOut = aStrOut + "=";
863 aStrOut = aStrOut + OOO_STRING_SVTOOLS_HTML_TF_void;
864
865 Sequence< ::rtl::OUString> aNames;
866 Reference<XNameAccess> xColumns;
867 sal_Bool bUseResultMetaData = sal_False;
868 if(m_xObject.is())
869 {
870 Reference<XColumnsSupplier> xColSup(m_xObject,UNO_QUERY);
871 xColumns = xColSup->getColumns();
872 aNames = xColumns->getElementNames();
873 if ( !aNames.getLength() )
874 {
875 sal_Int32 nCount = m_xResultSetMetaData->getColumnCount();
876 aNames.realloc(nCount);
877 for (sal_Int32 i= 0; i < nCount; ++i)
878 aNames[i] = m_xResultSetMetaData->getColumnName(i+1);
879 bUseResultMetaData = sal_True;
880 }
881 }
882
883 aStrOut = aStrOut + " ";
884 aStrOut = aStrOut + OOO_STRING_SVTOOLS_HTML_O_align;
885 aStrOut = aStrOut + "=";
886 aStrOut = aStrOut + OOO_STRING_SVTOOLS_HTML_AL_left;
887 aStrOut = aStrOut + " ";
888 aStrOut = aStrOut + OOO_STRING_SVTOOLS_HTML_O_cellspacing;
889 aStrOut = aStrOut + "=";
890 aStrOut = aStrOut + ::rtl::OString::valueOf((sal_Int32)nCellSpacing);
891 aStrOut = aStrOut + " ";
892 aStrOut = aStrOut + OOO_STRING_SVTOOLS_HTML_O_cols;
893 aStrOut = aStrOut + "=";
894 aStrOut = aStrOut + ::rtl::OString::valueOf(aNames.getLength());
895 aStrOut = aStrOut + " ";
896 aStrOut = aStrOut + OOO_STRING_SVTOOLS_HTML_O_border;
897 aStrOut = aStrOut + "=1";
898
899 IncIndent(1);
900 TAG_ON( aStrOut.getStr() );
901
902 FontOn();
903
904 TAG_ON( OOO_STRING_SVTOOLS_HTML_caption );
905 TAG_ON( OOO_STRING_SVTOOLS_HTML_bold );
906
907 (*m_pStream) << ::rtl::OUStringToOString( m_sName, gsl_getSystemTextEncoding());
908 // TODO : think about the encoding of the name
909 TAG_OFF( OOO_STRING_SVTOOLS_HTML_bold );
910 TAG_OFF( OOO_STRING_SVTOOLS_HTML_caption );
911
912 FontOff();
913 OUT_LF();
914 // </FONT>
915
916 IncIndent(1);
917 TAG_ON_LF( OOO_STRING_SVTOOLS_HTML_thead );
918
919 IncIndent(1);
920 TAG_ON_LF( OOO_STRING_SVTOOLS_HTML_tablerow );
921
922 if(m_xObject.is())
923 {
924 sal_Int32* pFormat = new sal_Int32[aNames.getLength()];
925
926 const char **pHorJustify = new const char*[aNames.getLength()];
927 sal_Int32 *pColWidth = new sal_Int32[aNames.getLength()];
928
929
930 sal_Int32 nHeight = 0;
931 m_xObject->getPropertyValue(PROPERTY_ROW_HEIGHT) >>= nHeight;
932
933 // 1. die Spaltenbeschreibung rauspusten
934 const ::rtl::OUString* pIter = aNames.getConstArray();
935 const ::rtl::OUString* pEnd = pIter + aNames.getLength();
936
937 for( sal_Int32 i=0;pIter != pEnd; ++pIter,++i )
938 {
939 sal_Int32 nAlign = 0;
940 pFormat[i] = 0;
941 pColWidth[i] = 100;
942 if ( !bUseResultMetaData )
943 {
944 Reference<XPropertySet> xColumn;
945 xColumns->getByName(*pIter) >>= xColumn;
946 xColumn->getPropertyValue(PROPERTY_ALIGN) >>= nAlign;
947 pFormat[i] = ::comphelper::getINT32(xColumn->getPropertyValue(PROPERTY_FORMATKEY));
948 pColWidth[i] = ::comphelper::getINT32(xColumn->getPropertyValue(PROPERTY_WIDTH));
949 }
950
951 switch( nAlign )
952 {
953 case 1: pHorJustify[i] = OOO_STRING_SVTOOLS_HTML_AL_center; break;
954 case 2: pHorJustify[i] = OOO_STRING_SVTOOLS_HTML_AL_right; break;
955 default: pHorJustify[i] = OOO_STRING_SVTOOLS_HTML_AL_left; break;
956 }
957
958 if(i == aNames.getLength()-1)
959 IncIndent(-1);
960
961 WriteCell(pFormat[i],pColWidth[i],nHeight,pHorJustify[i],*pIter,OOO_STRING_SVTOOLS_HTML_tableheader);
962 }
963
964 IncIndent(-1);
965 TAG_OFF_LF( OOO_STRING_SVTOOLS_HTML_tablerow );
966 TAG_OFF_LF( OOO_STRING_SVTOOLS_HTML_thead );
967
968 IncIndent(1);
969 TAG_ON_LF( OOO_STRING_SVTOOLS_HTML_tbody );
970
971 // 2. und jetzt die Daten
972 ::comphelper::ComponentContext aContext(m_xFactory);
973 Reference< XRowSet > xRowSet(m_xRow,UNO_QUERY);
974 sal_Int32 j=1;
975 sal_Int32 kk=0;
976 m_xResultSet->beforeFirst(); // set back before the first row
977 while(m_xResultSet->next())
978 {
979 IncIndent(1);
980 TAG_ON_LF( OOO_STRING_SVTOOLS_HTML_tablerow );
981
982 if(!m_pRowMarker || m_pRowMarker[kk] == j)
983 {
984 ++kk;
985 for(sal_Int32 i=1;i<=aNames.getLength();++i)
986 {
987 if(i == aNames.getLength())
988 IncIndent(-1);
989
990 String aValue;
991 try
992 {
993 Reference<XPropertySet> xColumn(m_xRowSetColumns->getByIndex(i-1),UNO_QUERY_THROW);
994 dbtools::FormattedColumnValue aFormatedValue(aContext,xRowSet,xColumn);
995 ::rtl::OUString sValue = aFormatedValue.getFormattedValue();
996 if (sValue.getLength())
997 {
998 aValue = sValue;
999 }
1000 }
1001 catch( const Exception& )
1002 {
1003 DBG_UNHANDLED_EXCEPTION();
1004 }
1005 WriteCell(pFormat[i-1],pColWidth[i-1],nHeight,pHorJustify[i-1],aValue,OOO_STRING_SVTOOLS_HTML_tabledata);
1006 }
1007 }
1008 ++j;
1009 TAG_OFF_LF( OOO_STRING_SVTOOLS_HTML_tablerow );
1010 }
1011
1012 delete [] pFormat;
1013 delete [] pHorJustify;
1014 delete [] pColWidth;
1015 }
1016 else
1017 {
1018 IncIndent(-1);
1019 TAG_OFF_LF( OOO_STRING_SVTOOLS_HTML_tablerow );
1020 TAG_OFF_LF( OOO_STRING_SVTOOLS_HTML_thead );
1021
1022 IncIndent(1);
1023 TAG_ON_LF( OOO_STRING_SVTOOLS_HTML_tbody );
1024 }
1025
1026 IncIndent(-1); OUT_LF(); TAG_OFF_LF( OOO_STRING_SVTOOLS_HTML_tbody );
1027 IncIndent(-1); TAG_OFF_LF( OOO_STRING_SVTOOLS_HTML_table );
1028 }
1029 //-----------------------------------------------------------------------
WriteCell(sal_Int32 nFormat,sal_Int32 nWidthPixel,sal_Int32 nHeightPixel,const char * pChar,const String & rValue,const char * pHtmlTag)1030 void OHTMLImportExport::WriteCell( sal_Int32 nFormat,sal_Int32 nWidthPixel,sal_Int32 nHeightPixel,const char* pChar,
1031 const String& rValue,const char* pHtmlTag)
1032 {
1033 RTL_LOGFILE_CONTEXT_AUTHOR( aLogger, "misc", "Ocke.Janssen@sun.com", "OHTMLImportExport::WriteCell" );
1034 ::rtl::OString aStrTD = pHtmlTag;
1035
1036 nWidthPixel = nWidthPixel ? nWidthPixel : 86;
1037 nHeightPixel = nHeightPixel ? nHeightPixel : 17;
1038
1039 // trotz der <TABLE COLS=n> und <COL WIDTH=x> Angaben noetig,
1040 // da die nicht von Netscape beachtet werden..
1041 // Spaltenbreite
1042 aStrTD = aStrTD + " ";
1043 aStrTD = aStrTD + OOO_STRING_SVTOOLS_HTML_O_width;
1044 aStrTD = aStrTD + "=";
1045 aStrTD = aStrTD + ::rtl::OString::valueOf((sal_Int32)nWidthPixel);
1046 // Zeilenhoehe
1047 aStrTD = aStrTD + " ";
1048 aStrTD = aStrTD + OOO_STRING_SVTOOLS_HTML_O_height;
1049 aStrTD = aStrTD + "=";
1050 aStrTD = aStrTD + ::rtl::OString::valueOf((sal_Int32)nHeightPixel);
1051
1052 aStrTD = aStrTD + " ";
1053 aStrTD = aStrTD + OOO_STRING_SVTOOLS_HTML_O_align;
1054 aStrTD = aStrTD + "=";
1055 aStrTD = aStrTD + pChar;
1056
1057 double fVal = 0.0;
1058
1059 Reference< ::com::sun::star::util::XNumberFormatsSupplier > xSupplier = m_xFormatter->getNumberFormatsSupplier();
1060 SvNumberFormatsSupplierObj* pSupplierImpl = SvNumberFormatsSupplierObj::getImplementation( xSupplier );
1061 SvNumberFormatter* pFormatter = pSupplierImpl ? pSupplierImpl->GetNumberFormatter() : NULL;
1062 if(pFormatter)
1063 {
1064 try
1065 {
1066 fVal = m_xFormatter->convertStringToNumber(nFormat,rValue);
1067 ByteString aTmpString(aStrTD);
1068 HTMLOutFuncs::CreateTableDataOptionsValNum( aTmpString, sal_False, fVal,nFormat, *pFormatter );
1069 }
1070 catch(Exception&)
1071 {
1072 ByteString aTmpString(aStrTD);
1073 HTMLOutFuncs::CreateTableDataOptionsValNum( aTmpString, sal_False, fVal,nFormat, *pFormatter );
1074 }
1075 }
1076
1077 TAG_ON( aStrTD.getStr() );
1078
1079 FontOn();
1080
1081 sal_Bool bBold = ( ::com::sun::star::awt::FontWeight::BOLD == m_aFont.Weight );
1082 sal_Bool bItalic = ( ::com::sun::star::awt::FontSlant_ITALIC == m_aFont.Slant );
1083 sal_Bool bUnderline = ( ::com::sun::star::awt::FontUnderline::NONE != m_aFont.Underline );
1084 sal_Bool bStrikeout = ( ::com::sun::star::awt::FontStrikeout::NONE != m_aFont.Strikeout );
1085
1086 if ( bBold ) TAG_ON( OOO_STRING_SVTOOLS_HTML_bold );
1087 if ( bItalic ) TAG_ON( OOO_STRING_SVTOOLS_HTML_italic );
1088 if ( bUnderline ) TAG_ON( OOO_STRING_SVTOOLS_HTML_underline );
1089 if ( bStrikeout ) TAG_ON( OOO_STRING_SVTOOLS_HTML_strike );
1090
1091 if ( !rValue.Len() )
1092 TAG_ON( OOO_STRING_SVTOOLS_HTML_linebreak ); // #42573# keine komplett leere Zelle
1093 else
1094 HTMLOutFuncs::Out_String( (*m_pStream), rValue ,m_eDestEnc);
1095
1096
1097 if ( bStrikeout ) TAG_OFF( OOO_STRING_SVTOOLS_HTML_strike );
1098 if ( bUnderline ) TAG_OFF( OOO_STRING_SVTOOLS_HTML_underline );
1099 if ( bItalic ) TAG_OFF( OOO_STRING_SVTOOLS_HTML_italic );
1100 if ( bBold ) TAG_OFF( OOO_STRING_SVTOOLS_HTML_bold );
1101
1102 FontOff();
1103
1104 TAG_OFF_LF( pHtmlTag );
1105 }
1106 //-----------------------------------------------------------------------
FontOn()1107 void OHTMLImportExport::FontOn()
1108 {
1109 RTL_LOGFILE_CONTEXT_AUTHOR( aLogger, "misc", "Ocke.Janssen@sun.com", "OHTMLImportExport::FontOn" );
1110 #ifdef DBG_UTIL
1111 m_bCheckFont = sal_True;
1112 #endif
1113
1114 // <FONT FACE="xxx">
1115 ::rtl::OString aStrOut = "<";
1116 aStrOut = aStrOut + OOO_STRING_SVTOOLS_HTML_font;
1117 aStrOut = aStrOut + " ";
1118 aStrOut = aStrOut + OOO_STRING_SVTOOLS_HTML_O_face;
1119 aStrOut = aStrOut + "=";
1120 aStrOut = aStrOut + "\"";
1121 aStrOut = aStrOut + ::rtl::OUStringToOString( m_aFont.Name, gsl_getSystemTextEncoding());
1122 // TODO : think about the encoding of the font name
1123 aStrOut = aStrOut + "\"";
1124 aStrOut = aStrOut + " ";
1125 aStrOut = aStrOut + OOO_STRING_SVTOOLS_HTML_O_color;
1126 aStrOut = aStrOut + "=";
1127 (*m_pStream) << aStrOut;
1128
1129 sal_Int32 nColor = 0;
1130 if(m_xObject.is())
1131 m_xObject->getPropertyValue(PROPERTY_TEXTCOLOR) >>= nColor;
1132 ::Color aColor(nColor);
1133
1134 HTMLOutFuncs::Out_Color( (*m_pStream), aColor );
1135 (*m_pStream) << ">";
1136 }
1137 //-----------------------------------------------------------------------
FontOff()1138 inline void OHTMLImportExport::FontOff()
1139 {
1140 RTL_LOGFILE_CONTEXT_AUTHOR( aLogger, "misc", "Ocke.Janssen@sun.com", "OHTMLImportExport::FontOff" );
1141 DBG_ASSERT(m_bCheckFont,"Kein FontOn() gerufen");
1142 TAG_OFF( OOO_STRING_SVTOOLS_HTML_font );
1143 #ifdef DBG_UTIL
1144 m_bCheckFont = sal_False;
1145 #endif
1146 }
1147 //-----------------------------------------------------------------------
IncIndent(sal_Int16 nVal)1148 void OHTMLImportExport::IncIndent( sal_Int16 nVal )
1149 {
1150 RTL_LOGFILE_CONTEXT_AUTHOR( aLogger, "misc", "Ocke.Janssen@sun.com", "OHTMLImportExport::IncIndent" );
1151 sIndent[m_nIndent] = '\t';
1152 m_nIndent = m_nIndent + nVal;
1153 if ( m_nIndent < 0 )
1154 m_nIndent = 0;
1155 else if ( m_nIndent > nIndentMax )
1156 m_nIndent = nIndentMax;
1157 sIndent[m_nIndent] = 0;
1158 }
1159 // -----------------------------------------------------------------------------
1160