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