1*cdf0e10cSrcweir /************************************************************************* 2*cdf0e10cSrcweir * 3*cdf0e10cSrcweir * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 4*cdf0e10cSrcweir * 5*cdf0e10cSrcweir * Copyright 2000, 2010 Oracle and/or its affiliates. 6*cdf0e10cSrcweir * 7*cdf0e10cSrcweir * OpenOffice.org - a multi-platform office productivity suite 8*cdf0e10cSrcweir * 9*cdf0e10cSrcweir * This file is part of OpenOffice.org. 10*cdf0e10cSrcweir * 11*cdf0e10cSrcweir * OpenOffice.org is free software: you can redistribute it and/or modify 12*cdf0e10cSrcweir * it under the terms of the GNU Lesser General Public License version 3 13*cdf0e10cSrcweir * only, as published by the Free Software Foundation. 14*cdf0e10cSrcweir * 15*cdf0e10cSrcweir * OpenOffice.org is distributed in the hope that it will be useful, 16*cdf0e10cSrcweir * but WITHOUT ANY WARRANTY; without even the implied warranty of 17*cdf0e10cSrcweir * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18*cdf0e10cSrcweir * GNU Lesser General Public License version 3 for more details 19*cdf0e10cSrcweir * (a copy is included in the LICENSE file that accompanied this code). 20*cdf0e10cSrcweir * 21*cdf0e10cSrcweir * You should have received a copy of the GNU Lesser General Public License 22*cdf0e10cSrcweir * version 3 along with OpenOffice.org. If not, see 23*cdf0e10cSrcweir * <http://www.openoffice.org/license.html> 24*cdf0e10cSrcweir * for a copy of the LGPLv3 License. 25*cdf0e10cSrcweir * 26*cdf0e10cSrcweir ************************************************************************/ 27*cdf0e10cSrcweir 28*cdf0e10cSrcweir // MARKER(update_precomp.py): autogen include statement, do not remove 29*cdf0e10cSrcweir #include "precompiled_sfx2.hxx" 30*cdf0e10cSrcweir #include <vcl/wrkwin.hxx> 31*cdf0e10cSrcweir #include <svl/rectitem.hxx> 32*cdf0e10cSrcweir #include <svl/eitem.hxx> 33*cdf0e10cSrcweir #include <svl/intitem.hxx> 34*cdf0e10cSrcweir #include <basic/sbstar.hxx> 35*cdf0e10cSrcweir #include <svl/stritem.hxx> 36*cdf0e10cSrcweir #include <svl/svdde.hxx> 37*cdf0e10cSrcweir #include <sfx2/lnkbase.hxx> 38*cdf0e10cSrcweir #include <sfx2/linkmgr.hxx> 39*cdf0e10cSrcweir 40*cdf0e10cSrcweir #include <tools/urlobj.hxx> 41*cdf0e10cSrcweir #include <tools/diagnose_ex.h> 42*cdf0e10cSrcweir #include <unotools/pathoptions.hxx> 43*cdf0e10cSrcweir #ifndef GCC 44*cdf0e10cSrcweir #endif 45*cdf0e10cSrcweir 46*cdf0e10cSrcweir #include <sfx2/app.hxx> 47*cdf0e10cSrcweir #include "appdata.hxx" 48*cdf0e10cSrcweir #include <sfx2/objsh.hxx> 49*cdf0e10cSrcweir #include <sfx2/viewfrm.hxx> 50*cdf0e10cSrcweir #include <sfx2/viewfrm.hxx> 51*cdf0e10cSrcweir #include <sfx2/dispatch.hxx> 52*cdf0e10cSrcweir #include "sfxtypes.hxx" 53*cdf0e10cSrcweir #include <sfx2/sfxsids.hrc> 54*cdf0e10cSrcweir #include "helper.hxx" 55*cdf0e10cSrcweir #include <sfx2/docfile.hxx> 56*cdf0e10cSrcweir 57*cdf0e10cSrcweir //======================================================================== 58*cdf0e10cSrcweir 59*cdf0e10cSrcweir String SfxDdeServiceName_Impl( const String& sIn ) 60*cdf0e10cSrcweir { 61*cdf0e10cSrcweir ByteString sTemp = U2S( sIn ); 62*cdf0e10cSrcweir ByteString sReturn; 63*cdf0e10cSrcweir 64*cdf0e10cSrcweir for ( sal_uInt16 n = sTemp.Len(); n; --n ) 65*cdf0e10cSrcweir if ( sTemp.Copy( n-1, 1 ).IsAlphaNumericAscii() ) 66*cdf0e10cSrcweir sReturn += sTemp.GetChar(n-1); 67*cdf0e10cSrcweir 68*cdf0e10cSrcweir return S2U( sReturn ); 69*cdf0e10cSrcweir } 70*cdf0e10cSrcweir 71*cdf0e10cSrcweir 72*cdf0e10cSrcweir class ImplDdeService : public DdeService 73*cdf0e10cSrcweir { 74*cdf0e10cSrcweir public: 75*cdf0e10cSrcweir ImplDdeService( const String& rNm ) 76*cdf0e10cSrcweir : DdeService( rNm ) 77*cdf0e10cSrcweir {} 78*cdf0e10cSrcweir virtual sal_Bool MakeTopic( const String& ); 79*cdf0e10cSrcweir 80*cdf0e10cSrcweir virtual String Topics(); 81*cdf0e10cSrcweir // virtual String Formats(); 82*cdf0e10cSrcweir // virtual String SysItems(); 83*cdf0e10cSrcweir // virtual String Status(); 84*cdf0e10cSrcweir 85*cdf0e10cSrcweir virtual sal_Bool SysTopicExecute( const String* pStr ); 86*cdf0e10cSrcweir }; 87*cdf0e10cSrcweir 88*cdf0e10cSrcweir class SfxDdeTriggerTopic_Impl : public DdeTopic 89*cdf0e10cSrcweir { 90*cdf0e10cSrcweir public: 91*cdf0e10cSrcweir SfxDdeTriggerTopic_Impl() 92*cdf0e10cSrcweir : DdeTopic( DEFINE_CONST_UNICODE("TRIGGER") ) 93*cdf0e10cSrcweir {} 94*cdf0e10cSrcweir 95*cdf0e10cSrcweir virtual sal_Bool Execute( const String* ); 96*cdf0e10cSrcweir }; 97*cdf0e10cSrcweir 98*cdf0e10cSrcweir class SfxDdeDocTopic_Impl : public DdeTopic 99*cdf0e10cSrcweir { 100*cdf0e10cSrcweir public: 101*cdf0e10cSrcweir SfxObjectShell* pSh; 102*cdf0e10cSrcweir DdeData aData; 103*cdf0e10cSrcweir ::com::sun::star::uno::Sequence< sal_Int8 > aSeq; 104*cdf0e10cSrcweir 105*cdf0e10cSrcweir SfxDdeDocTopic_Impl( SfxObjectShell* pShell ) 106*cdf0e10cSrcweir : DdeTopic( pShell->GetTitle(SFX_TITLE_FULLNAME) ), pSh( pShell ) 107*cdf0e10cSrcweir {} 108*cdf0e10cSrcweir 109*cdf0e10cSrcweir virtual DdeData* Get( sal_uIntPtr ); 110*cdf0e10cSrcweir virtual sal_Bool Put( const DdeData* ); 111*cdf0e10cSrcweir virtual sal_Bool Execute( const String* ); 112*cdf0e10cSrcweir virtual sal_Bool StartAdviseLoop(); 113*cdf0e10cSrcweir virtual sal_Bool MakeItem( const String& rItem ); 114*cdf0e10cSrcweir 115*cdf0e10cSrcweir // wird benoetigt? 116*cdf0e10cSrcweir // virtual void Connect( long n ); 117*cdf0e10cSrcweir // virtual void Disconnect( long n ); 118*cdf0e10cSrcweir // virtual void StopAdviseLoop(); 119*cdf0e10cSrcweir 120*cdf0e10cSrcweir }; 121*cdf0e10cSrcweir 122*cdf0e10cSrcweir 123*cdf0e10cSrcweir SV_DECL_PTRARR( SfxDdeDocTopics_Impl, SfxDdeDocTopic_Impl *, 4, 4 ) 124*cdf0e10cSrcweir SV_IMPL_PTRARR( SfxDdeDocTopics_Impl, SfxDdeDocTopic_Impl *) 125*cdf0e10cSrcweir 126*cdf0e10cSrcweir //======================================================================== 127*cdf0e10cSrcweir 128*cdf0e10cSrcweir sal_Bool SfxAppEvent_Impl( ApplicationEvent &rAppEvent, 129*cdf0e10cSrcweir const String &rCmd, const String &rEvent ) 130*cdf0e10cSrcweir 131*cdf0e10cSrcweir /* [Beschreibung] 132*cdf0e10cSrcweir 133*cdf0e10cSrcweir Pr"uft, ob 'rCmd' das Event 'rEvent' ist (ohne '(') und baut 134*cdf0e10cSrcweir aus diesem dann ein <ApplicationEvent> zusammen, das per 135*cdf0e10cSrcweir <Application::AppEvent()> ausgef"uhrt werden kann. Ist 'rCmd' das 136*cdf0e10cSrcweir angegegeben Event 'rEvent', dann wird TRUE zur"uckgegeben, sonst FALSE. 137*cdf0e10cSrcweir 138*cdf0e10cSrcweir 139*cdf0e10cSrcweir [Beispiel] 140*cdf0e10cSrcweir 141*cdf0e10cSrcweir rCmd = "Open(\"d:\doc\doc.sdw\")" 142*cdf0e10cSrcweir rEvent = "Open" 143*cdf0e10cSrcweir */ 144*cdf0e10cSrcweir 145*cdf0e10cSrcweir { 146*cdf0e10cSrcweir String aEvent( rEvent ); 147*cdf0e10cSrcweir aEvent += '('; 148*cdf0e10cSrcweir if ( rCmd.CompareIgnoreCaseToAscii( aEvent, aEvent.Len() ) == COMPARE_EQUAL ) 149*cdf0e10cSrcweir { 150*cdf0e10cSrcweir String aData( rCmd ); 151*cdf0e10cSrcweir aData.Erase( 0, aEvent.Len() ); 152*cdf0e10cSrcweir if ( aData.Len() > 2 ) 153*cdf0e10cSrcweir { 154*cdf0e10cSrcweir // in das ApplicationEvent-Format wandeln 155*cdf0e10cSrcweir aData.Erase( aData.Len()-1, 1 ); 156*cdf0e10cSrcweir for ( sal_uInt16 n = 0; n < aData.Len(); ++n ) 157*cdf0e10cSrcweir { 158*cdf0e10cSrcweir if ( aData.GetChar(n) == 0x0022 ) // " = 22h 159*cdf0e10cSrcweir for ( ; aData.GetChar(++n) != 0x0022 ; ) 160*cdf0e10cSrcweir /* empty loop */ ; 161*cdf0e10cSrcweir else if ( aData.GetChar(n) == 0x0020 ) // SPACE = 20h 162*cdf0e10cSrcweir aData.SetChar(n, '\n'); 163*cdf0e10cSrcweir } 164*cdf0e10cSrcweir aData.EraseAllChars( 0x0022 ); 165*cdf0e10cSrcweir ApplicationAddress aAddr; 166*cdf0e10cSrcweir rAppEvent = ApplicationEvent( String(), aAddr, U2S(rEvent), aData ); 167*cdf0e10cSrcweir return sal_True; 168*cdf0e10cSrcweir } 169*cdf0e10cSrcweir } 170*cdf0e10cSrcweir 171*cdf0e10cSrcweir return sal_False; 172*cdf0e10cSrcweir } 173*cdf0e10cSrcweir 174*cdf0e10cSrcweir //------------------------------------------------------------------------- 175*cdf0e10cSrcweir 176*cdf0e10cSrcweir long SfxApplication::DdeExecute 177*cdf0e10cSrcweir ( 178*cdf0e10cSrcweir const String& rCmd // in unserer BASIC-Syntax formuliert 179*cdf0e10cSrcweir ) 180*cdf0e10cSrcweir 181*cdf0e10cSrcweir /* [Beschreibung] 182*cdf0e10cSrcweir 183*cdf0e10cSrcweir Diese Methode kann vom Applikationsentwickler "uberladen werden, 184*cdf0e10cSrcweir um an seine SfxApplication-Subklasse gerichtete DDE-Kommandos 185*cdf0e10cSrcweir zu empfangen. 186*cdf0e10cSrcweir 187*cdf0e10cSrcweir Die Basisimplementierung versteht die API-Funktionalit"at der 188*cdf0e10cSrcweir betreffenden SfxApplication-Subklasse in BASIC-Syntax. R"uckgabewerte 189*cdf0e10cSrcweir k"onnen dabei leider nicht "ubertragen werden. 190*cdf0e10cSrcweir */ 191*cdf0e10cSrcweir 192*cdf0e10cSrcweir { 193*cdf0e10cSrcweir // Print oder Open-Event? 194*cdf0e10cSrcweir ApplicationEvent aAppEvent; 195*cdf0e10cSrcweir if ( SfxAppEvent_Impl( aAppEvent, rCmd, DEFINE_CONST_UNICODE("Print") ) || 196*cdf0e10cSrcweir SfxAppEvent_Impl( aAppEvent, rCmd, DEFINE_CONST_UNICODE("Open") ) ) 197*cdf0e10cSrcweir GetpApp()->AppEvent( aAppEvent ); 198*cdf0e10cSrcweir else 199*cdf0e10cSrcweir { 200*cdf0e10cSrcweir // alle anderen per BASIC 201*cdf0e10cSrcweir StarBASIC* pBasic = GetBasic(); 202*cdf0e10cSrcweir ENSURE_OR_RETURN( pBasic, "where's my basic?", 0 ); 203*cdf0e10cSrcweir SbxVariable* pRet = pBasic->Execute( rCmd ); 204*cdf0e10cSrcweir if( !pRet ) 205*cdf0e10cSrcweir { 206*cdf0e10cSrcweir SbxBase::ResetError(); 207*cdf0e10cSrcweir return 0; 208*cdf0e10cSrcweir } 209*cdf0e10cSrcweir } 210*cdf0e10cSrcweir return 1; 211*cdf0e10cSrcweir } 212*cdf0e10cSrcweir 213*cdf0e10cSrcweir //-------------------------------------------------------------------- 214*cdf0e10cSrcweir 215*cdf0e10cSrcweir long SfxApplication::DdeGetData 216*cdf0e10cSrcweir ( 217*cdf0e10cSrcweir const String&, // das anzusprechende Item 218*cdf0e10cSrcweir const String&, // in: Format 219*cdf0e10cSrcweir ::com::sun::star::uno::Any& // out: angeforderte Daten 220*cdf0e10cSrcweir ) 221*cdf0e10cSrcweir 222*cdf0e10cSrcweir /* [Beschreibung] 223*cdf0e10cSrcweir 224*cdf0e10cSrcweir Diese Methode kann vom Applikationsentwickler "uberladen werden, 225*cdf0e10cSrcweir um an seine SfxApplication-Subklasse gerichtete DDE-Daten-Anforderungen 226*cdf0e10cSrcweir zu empfangen. 227*cdf0e10cSrcweir 228*cdf0e10cSrcweir Die Basisimplementierung liefert keine Daten und gibt 0 zur"uck. 229*cdf0e10cSrcweir */ 230*cdf0e10cSrcweir 231*cdf0e10cSrcweir { 232*cdf0e10cSrcweir return 0; 233*cdf0e10cSrcweir } 234*cdf0e10cSrcweir 235*cdf0e10cSrcweir //-------------------------------------------------------------------- 236*cdf0e10cSrcweir 237*cdf0e10cSrcweir long SfxApplication::DdeSetData 238*cdf0e10cSrcweir ( 239*cdf0e10cSrcweir const String&, // das anzusprechende Item 240*cdf0e10cSrcweir const String&, // in: Format 241*cdf0e10cSrcweir const ::com::sun::star::uno::Any& // out: angeforderte Daten 242*cdf0e10cSrcweir ) 243*cdf0e10cSrcweir 244*cdf0e10cSrcweir /* [Beschreibung] 245*cdf0e10cSrcweir 246*cdf0e10cSrcweir Diese Methode kann vom Applikationsentwickler "uberladen werden, 247*cdf0e10cSrcweir um an seine SfxApplication-Subklasse gerichtete DDE-Daten 248*cdf0e10cSrcweir zu empfangen. 249*cdf0e10cSrcweir 250*cdf0e10cSrcweir Die Basisimplementierung nimmt keine Daten entgegen und liefert 0 zur"uck. 251*cdf0e10cSrcweir */ 252*cdf0e10cSrcweir 253*cdf0e10cSrcweir { 254*cdf0e10cSrcweir return 0; 255*cdf0e10cSrcweir } 256*cdf0e10cSrcweir 257*cdf0e10cSrcweir //-------------------------------------------------------------------- 258*cdf0e10cSrcweir 259*cdf0e10cSrcweir ::sfx2::SvLinkSource* SfxApplication::DdeCreateLinkSource 260*cdf0e10cSrcweir ( 261*cdf0e10cSrcweir const String& // das zu erzeugende Item 262*cdf0e10cSrcweir ) 263*cdf0e10cSrcweir 264*cdf0e10cSrcweir /* [Beschreibung] 265*cdf0e10cSrcweir 266*cdf0e10cSrcweir Diese Methode kann vom Applikationsentwickler "uberladen werden, 267*cdf0e10cSrcweir um an seiner SfxApplication-Subklasse einen DDE-Hotlink einzurichten 268*cdf0e10cSrcweir 269*cdf0e10cSrcweir Die Basisimplementierung erzeugt keinen und liefert 0 zur"uck. 270*cdf0e10cSrcweir */ 271*cdf0e10cSrcweir 272*cdf0e10cSrcweir { 273*cdf0e10cSrcweir return 0; 274*cdf0e10cSrcweir } 275*cdf0e10cSrcweir 276*cdf0e10cSrcweir //======================================================================== 277*cdf0e10cSrcweir 278*cdf0e10cSrcweir long SfxObjectShell::DdeExecute 279*cdf0e10cSrcweir ( 280*cdf0e10cSrcweir const String& rCmd // in unserer BASIC-Syntax formuliert 281*cdf0e10cSrcweir ) 282*cdf0e10cSrcweir 283*cdf0e10cSrcweir /* [Beschreibung] 284*cdf0e10cSrcweir 285*cdf0e10cSrcweir Diese Methode kann vom Applikationsentwickler "uberladen werden, 286*cdf0e10cSrcweir um an seine SfxObjectShell-Subklasse gerichtete DDE-Kommandos 287*cdf0e10cSrcweir zu empfangen. 288*cdf0e10cSrcweir 289*cdf0e10cSrcweir Die Basisimplementierung f"uhrt nichts aus und liefert 0 zur"uck. 290*cdf0e10cSrcweir */ 291*cdf0e10cSrcweir 292*cdf0e10cSrcweir { 293*cdf0e10cSrcweir StarBASIC* pBasic = GetBasic(); 294*cdf0e10cSrcweir DBG_ASSERT( pBasic, "Wo ist mein Basic???" ) ; 295*cdf0e10cSrcweir SbxVariable* pRet = pBasic->Execute( rCmd ); 296*cdf0e10cSrcweir if( !pRet ) 297*cdf0e10cSrcweir { 298*cdf0e10cSrcweir SbxBase::ResetError(); 299*cdf0e10cSrcweir return 0; 300*cdf0e10cSrcweir } 301*cdf0e10cSrcweir 302*cdf0e10cSrcweir return 1; 303*cdf0e10cSrcweir } 304*cdf0e10cSrcweir 305*cdf0e10cSrcweir //-------------------------------------------------------------------- 306*cdf0e10cSrcweir 307*cdf0e10cSrcweir long SfxObjectShell::DdeGetData 308*cdf0e10cSrcweir ( 309*cdf0e10cSrcweir const String&, // das anzusprechende Item 310*cdf0e10cSrcweir const String&, // in: Format 311*cdf0e10cSrcweir ::com::sun::star::uno::Any& // out: angeforderte Daten 312*cdf0e10cSrcweir ) 313*cdf0e10cSrcweir 314*cdf0e10cSrcweir /* [Beschreibung] 315*cdf0e10cSrcweir 316*cdf0e10cSrcweir Diese Methode kann vom Applikationsentwickler "uberladen werden, 317*cdf0e10cSrcweir um an seine SfxObjectShell-Subklasse gerichtete DDE-Daten-Anforderungen 318*cdf0e10cSrcweir zu empfangen. 319*cdf0e10cSrcweir 320*cdf0e10cSrcweir Die Basisimplementierung liefert keine Daten und gibt 0 zur"uck. 321*cdf0e10cSrcweir */ 322*cdf0e10cSrcweir 323*cdf0e10cSrcweir { 324*cdf0e10cSrcweir return 0; 325*cdf0e10cSrcweir } 326*cdf0e10cSrcweir 327*cdf0e10cSrcweir //-------------------------------------------------------------------- 328*cdf0e10cSrcweir 329*cdf0e10cSrcweir long SfxObjectShell::DdeSetData 330*cdf0e10cSrcweir ( 331*cdf0e10cSrcweir const String&, // das anzusprechende Item 332*cdf0e10cSrcweir const String&, // in: Format 333*cdf0e10cSrcweir const ::com::sun::star::uno::Any& // out: angeforderte Daten 334*cdf0e10cSrcweir ) 335*cdf0e10cSrcweir 336*cdf0e10cSrcweir /* [Beschreibung] 337*cdf0e10cSrcweir 338*cdf0e10cSrcweir Diese Methode kann vom Applikationsentwickler "uberladen werden, 339*cdf0e10cSrcweir um an seine SfxObjectShell-Subklasse gerichtete DDE-Daten 340*cdf0e10cSrcweir zu empfangen. 341*cdf0e10cSrcweir 342*cdf0e10cSrcweir Die Basisimplementierung nimmt keine Daten entgegen und liefert 0 zur"uck. 343*cdf0e10cSrcweir */ 344*cdf0e10cSrcweir 345*cdf0e10cSrcweir { 346*cdf0e10cSrcweir return 0; 347*cdf0e10cSrcweir } 348*cdf0e10cSrcweir 349*cdf0e10cSrcweir //-------------------------------------------------------------------- 350*cdf0e10cSrcweir ::sfx2::SvLinkSource* SfxObjectShell::DdeCreateLinkSource 351*cdf0e10cSrcweir ( 352*cdf0e10cSrcweir const String& // das zu erzeugende Item 353*cdf0e10cSrcweir ) 354*cdf0e10cSrcweir 355*cdf0e10cSrcweir /* [Beschreibung] 356*cdf0e10cSrcweir 357*cdf0e10cSrcweir Diese Methode kann vom Applikationsentwickler "uberladen werden, 358*cdf0e10cSrcweir um an seiner SfxObjectShell-Subklasse einen DDE-Hotlink einzurichten 359*cdf0e10cSrcweir 360*cdf0e10cSrcweir Die Basisimplementierung erzeugt keinen und liefert 0 zur"uck. 361*cdf0e10cSrcweir */ 362*cdf0e10cSrcweir 363*cdf0e10cSrcweir { 364*cdf0e10cSrcweir return 0; 365*cdf0e10cSrcweir } 366*cdf0e10cSrcweir 367*cdf0e10cSrcweir //======================================================================== 368*cdf0e10cSrcweir 369*cdf0e10cSrcweir long SfxViewFrame::DdeExecute 370*cdf0e10cSrcweir ( 371*cdf0e10cSrcweir const String& rCmd // in unserer BASIC-Syntax formuliert 372*cdf0e10cSrcweir ) 373*cdf0e10cSrcweir 374*cdf0e10cSrcweir /* [Beschreibung] 375*cdf0e10cSrcweir 376*cdf0e10cSrcweir Diese Methode kann vom Applikationsentwickler "uberladen werden, 377*cdf0e10cSrcweir um an seine SfxViewFrame-Subklasse gerichtete DDE-Kommandos 378*cdf0e10cSrcweir zu empfangen. 379*cdf0e10cSrcweir 380*cdf0e10cSrcweir Die Basisimplementierung versteht die API-Funktionalit"at des 381*cdf0e10cSrcweir betreffenden SfxViewFrame, der darin dargestellten SfxViewShell und 382*cdf0e10cSrcweir der betreffenden SfxObjectShell-Subklasse in BASIC-Syntax. 383*cdf0e10cSrcweir R"uckgabewerte k"onnen dabei leider nicht "ubertragen werden. 384*cdf0e10cSrcweir */ 385*cdf0e10cSrcweir 386*cdf0e10cSrcweir { 387*cdf0e10cSrcweir if ( GetObjectShell() ) 388*cdf0e10cSrcweir return GetObjectShell()->DdeExecute( rCmd ); 389*cdf0e10cSrcweir 390*cdf0e10cSrcweir return 0; 391*cdf0e10cSrcweir } 392*cdf0e10cSrcweir 393*cdf0e10cSrcweir //-------------------------------------------------------------------- 394*cdf0e10cSrcweir 395*cdf0e10cSrcweir long SfxViewFrame::DdeGetData 396*cdf0e10cSrcweir ( 397*cdf0e10cSrcweir const String&, // das anzusprechende Item 398*cdf0e10cSrcweir const String&, // in: Format 399*cdf0e10cSrcweir ::com::sun::star::uno::Any& // out: angeforderte Daten 400*cdf0e10cSrcweir ) 401*cdf0e10cSrcweir 402*cdf0e10cSrcweir /* [Beschreibung] 403*cdf0e10cSrcweir 404*cdf0e10cSrcweir Diese Methode kann vom Applikationsentwickler "uberladen werden, 405*cdf0e10cSrcweir um an seine SfxViewFrame-Subklasse gerichtete DDE-Daten-Anforderungen 406*cdf0e10cSrcweir zu empfangen. 407*cdf0e10cSrcweir 408*cdf0e10cSrcweir Die Basisimplementierung liefert keine Daten und gibt 0 zur"uck. 409*cdf0e10cSrcweir */ 410*cdf0e10cSrcweir 411*cdf0e10cSrcweir { 412*cdf0e10cSrcweir return 0; 413*cdf0e10cSrcweir } 414*cdf0e10cSrcweir 415*cdf0e10cSrcweir //-------------------------------------------------------------------- 416*cdf0e10cSrcweir 417*cdf0e10cSrcweir long SfxViewFrame::DdeSetData 418*cdf0e10cSrcweir ( 419*cdf0e10cSrcweir const String& , // das anzusprechende Item 420*cdf0e10cSrcweir const String& , // in: Format 421*cdf0e10cSrcweir const ::com::sun::star::uno::Any& // out: angeforderte Daten 422*cdf0e10cSrcweir ) 423*cdf0e10cSrcweir 424*cdf0e10cSrcweir /* [Beschreibung] 425*cdf0e10cSrcweir 426*cdf0e10cSrcweir Diese Methode kann vom Applikationsentwickler "uberladen werden, 427*cdf0e10cSrcweir um an seine SfxViewFrame-Subklasse gerichtete DDE-Daten 428*cdf0e10cSrcweir zu empfangen. 429*cdf0e10cSrcweir 430*cdf0e10cSrcweir Die Basisimplementierung nimmt keine Daten entgegen und liefert 0 zur"uck. 431*cdf0e10cSrcweir */ 432*cdf0e10cSrcweir 433*cdf0e10cSrcweir { 434*cdf0e10cSrcweir return 0; 435*cdf0e10cSrcweir } 436*cdf0e10cSrcweir 437*cdf0e10cSrcweir //-------------------------------------------------------------------- 438*cdf0e10cSrcweir 439*cdf0e10cSrcweir ::sfx2::SvLinkSource* SfxViewFrame::DdeCreateLinkSource 440*cdf0e10cSrcweir ( 441*cdf0e10cSrcweir const String& // das zu erzeugende Item 442*cdf0e10cSrcweir ) 443*cdf0e10cSrcweir 444*cdf0e10cSrcweir /* [Beschreibung] 445*cdf0e10cSrcweir 446*cdf0e10cSrcweir Diese Methode kann vom Applikationsentwickler "uberladen werden, 447*cdf0e10cSrcweir um an seiner SfxViewFrame-Subklasse einen DDE-Hotlink einzurichten 448*cdf0e10cSrcweir 449*cdf0e10cSrcweir Die Basisimplementierung erzeugt keinen und liefert 0 zur"uck. 450*cdf0e10cSrcweir */ 451*cdf0e10cSrcweir 452*cdf0e10cSrcweir { 453*cdf0e10cSrcweir return 0; 454*cdf0e10cSrcweir } 455*cdf0e10cSrcweir 456*cdf0e10cSrcweir //======================================================================== 457*cdf0e10cSrcweir 458*cdf0e10cSrcweir sal_Bool SfxApplication::InitializeDde() 459*cdf0e10cSrcweir { 460*cdf0e10cSrcweir DBG_ASSERT( !pAppData_Impl->pDdeService, 461*cdf0e10cSrcweir "Dde kann nicht mehrfach initialisiert werden" ); 462*cdf0e10cSrcweir 463*cdf0e10cSrcweir pAppData_Impl->pDdeService = new ImplDdeService( Application::GetAppName() ); 464*cdf0e10cSrcweir int nError = pAppData_Impl->pDdeService->GetError(); 465*cdf0e10cSrcweir if( !nError ) 466*cdf0e10cSrcweir { 467*cdf0e10cSrcweir pAppData_Impl->pDocTopics = new SfxDdeDocTopics_Impl; 468*cdf0e10cSrcweir 469*cdf0e10cSrcweir // wir wollen auf jedenfall RTF unterstuetzen! 470*cdf0e10cSrcweir pAppData_Impl->pDdeService->AddFormat( FORMAT_RTF ); 471*cdf0e10cSrcweir 472*cdf0e10cSrcweir // Config-Pfad als Topic wegen Mehrfachstart 473*cdf0e10cSrcweir INetURLObject aOfficeLockFile( SvtPathOptions().GetUserConfigPath() ); 474*cdf0e10cSrcweir aOfficeLockFile.insertName( DEFINE_CONST_UNICODE( "soffice.lck" ) ); 475*cdf0e10cSrcweir String aService( SfxDdeServiceName_Impl( 476*cdf0e10cSrcweir aOfficeLockFile.GetMainURL(INetURLObject::DECODE_TO_IURI) ) ); 477*cdf0e10cSrcweir aService.ToUpperAscii(); 478*cdf0e10cSrcweir pAppData_Impl->pDdeService2 = new ImplDdeService( aService ); 479*cdf0e10cSrcweir pAppData_Impl->pTriggerTopic = new SfxDdeTriggerTopic_Impl; 480*cdf0e10cSrcweir pAppData_Impl->pDdeService2->AddTopic( *pAppData_Impl->pTriggerTopic ); 481*cdf0e10cSrcweir } 482*cdf0e10cSrcweir return !nError; 483*cdf0e10cSrcweir } 484*cdf0e10cSrcweir 485*cdf0e10cSrcweir void SfxAppData_Impl::DeInitDDE() 486*cdf0e10cSrcweir { 487*cdf0e10cSrcweir DELETEZ( pTriggerTopic ); 488*cdf0e10cSrcweir DELETEZ( pDdeService2 ); 489*cdf0e10cSrcweir DELETEZ( pDocTopics ); 490*cdf0e10cSrcweir DELETEZ( pDdeService ); 491*cdf0e10cSrcweir } 492*cdf0e10cSrcweir 493*cdf0e10cSrcweir //-------------------------------------------------------------------- 494*cdf0e10cSrcweir 495*cdf0e10cSrcweir void SfxApplication::AddDdeTopic( SfxObjectShell* pSh ) 496*cdf0e10cSrcweir { 497*cdf0e10cSrcweir DBG_ASSERT( pAppData_Impl->pDocTopics, "es gibt gar keinen Dde-Service" ); 498*cdf0e10cSrcweir //OV: Im Serverbetrieb ist DDE abgeklemmt! 499*cdf0e10cSrcweir if( !pAppData_Impl->pDocTopics ) 500*cdf0e10cSrcweir return; 501*cdf0e10cSrcweir 502*cdf0e10cSrcweir // doppeltes Eintragen verhindern 503*cdf0e10cSrcweir String sShellNm; 504*cdf0e10cSrcweir sal_Bool bFnd = sal_False; 505*cdf0e10cSrcweir for( sal_uInt16 n = pAppData_Impl->pDocTopics->Count(); n; ) 506*cdf0e10cSrcweir if( (*pAppData_Impl->pDocTopics)[ --n ]->pSh == pSh ) 507*cdf0e10cSrcweir { 508*cdf0e10cSrcweir // JP 18.03.96 - Bug 26470 509*cdf0e10cSrcweir // falls das Document unbenannt wurde, ist trotzdem ein 510*cdf0e10cSrcweir // neues Topics anzulegen! 511*cdf0e10cSrcweir if( !bFnd ) 512*cdf0e10cSrcweir { 513*cdf0e10cSrcweir bFnd = sal_True; 514*cdf0e10cSrcweir (sShellNm = pSh->GetTitle(SFX_TITLE_FULLNAME)).ToLowerAscii(); 515*cdf0e10cSrcweir } 516*cdf0e10cSrcweir String sNm( (*pAppData_Impl->pDocTopics)[ n ]->GetName() ); 517*cdf0e10cSrcweir if( sShellNm == sNm.ToLowerAscii() ) 518*cdf0e10cSrcweir return ; 519*cdf0e10cSrcweir } 520*cdf0e10cSrcweir 521*cdf0e10cSrcweir const SfxDdeDocTopic_Impl* pTopic = new SfxDdeDocTopic_Impl( pSh ); 522*cdf0e10cSrcweir pAppData_Impl->pDocTopics->Insert( pTopic, 523*cdf0e10cSrcweir pAppData_Impl->pDocTopics->Count() ); 524*cdf0e10cSrcweir pAppData_Impl->pDdeService->AddTopic( *pTopic ); 525*cdf0e10cSrcweir } 526*cdf0e10cSrcweir 527*cdf0e10cSrcweir void SfxApplication::RemoveDdeTopic( SfxObjectShell* pSh ) 528*cdf0e10cSrcweir { 529*cdf0e10cSrcweir DBG_ASSERT( pAppData_Impl->pDocTopics, "es gibt gar keinen Dde-Service" ); 530*cdf0e10cSrcweir //OV: Im Serverbetrieb ist DDE abgeklemmt! 531*cdf0e10cSrcweir if( !pAppData_Impl->pDocTopics ) 532*cdf0e10cSrcweir return; 533*cdf0e10cSrcweir 534*cdf0e10cSrcweir SfxDdeDocTopic_Impl* pTopic; 535*cdf0e10cSrcweir for( sal_uInt16 n = pAppData_Impl->pDocTopics->Count(); n; ) 536*cdf0e10cSrcweir if( ( pTopic = (*pAppData_Impl->pDocTopics)[ --n ])->pSh == pSh ) 537*cdf0e10cSrcweir { 538*cdf0e10cSrcweir pAppData_Impl->pDdeService->RemoveTopic( *pTopic ); 539*cdf0e10cSrcweir pAppData_Impl->pDocTopics->DeleteAndDestroy( n ); 540*cdf0e10cSrcweir } 541*cdf0e10cSrcweir } 542*cdf0e10cSrcweir 543*cdf0e10cSrcweir const DdeService* SfxApplication::GetDdeService() const 544*cdf0e10cSrcweir { 545*cdf0e10cSrcweir return pAppData_Impl->pDdeService; 546*cdf0e10cSrcweir } 547*cdf0e10cSrcweir 548*cdf0e10cSrcweir DdeService* SfxApplication::GetDdeService() 549*cdf0e10cSrcweir { 550*cdf0e10cSrcweir return pAppData_Impl->pDdeService; 551*cdf0e10cSrcweir } 552*cdf0e10cSrcweir 553*cdf0e10cSrcweir //-------------------------------------------------------------------- 554*cdf0e10cSrcweir 555*cdf0e10cSrcweir sal_Bool ImplDdeService::MakeTopic( const String& rNm ) 556*cdf0e10cSrcweir { 557*cdf0e10cSrcweir // Workaround gegen Event nach unserem Main() unter OS/2 558*cdf0e10cSrcweir // passierte wenn man beim Beenden aus dem OffMgr die App neu startet 559*cdf0e10cSrcweir if ( !Application::IsInExecute() ) 560*cdf0e10cSrcweir return sal_False; 561*cdf0e10cSrcweir 562*cdf0e10cSrcweir // das Topic rNm wird gesucht, haben wir es ? 563*cdf0e10cSrcweir // erstmal nur ueber die ObjectShells laufen und die mit dem 564*cdf0e10cSrcweir // Namen heraussuchen: 565*cdf0e10cSrcweir sal_Bool bRet = sal_False; 566*cdf0e10cSrcweir String sNm( rNm ); 567*cdf0e10cSrcweir sNm.ToLowerAscii(); 568*cdf0e10cSrcweir TypeId aType( TYPE(SfxObjectShell) ); 569*cdf0e10cSrcweir SfxObjectShell* pShell = SfxObjectShell::GetFirst( &aType ); 570*cdf0e10cSrcweir while( pShell ) 571*cdf0e10cSrcweir { 572*cdf0e10cSrcweir String sTmp( pShell->GetTitle(SFX_TITLE_FULLNAME) ); 573*cdf0e10cSrcweir sTmp.ToLowerAscii(); 574*cdf0e10cSrcweir if( sTmp == sNm ) // die wollen wir haben 575*cdf0e10cSrcweir { 576*cdf0e10cSrcweir SFX_APP()->AddDdeTopic( pShell ); 577*cdf0e10cSrcweir bRet = sal_True; 578*cdf0e10cSrcweir break; 579*cdf0e10cSrcweir } 580*cdf0e10cSrcweir pShell = SfxObjectShell::GetNext( *pShell, &aType ); 581*cdf0e10cSrcweir } 582*cdf0e10cSrcweir 583*cdf0e10cSrcweir if( !bRet ) 584*cdf0e10cSrcweir { 585*cdf0e10cSrcweir INetURLObject aWorkPath( SvtPathOptions().GetWorkPath() ); 586*cdf0e10cSrcweir INetURLObject aFile; 587*cdf0e10cSrcweir if ( aWorkPath.GetNewAbsURL( rNm, &aFile ) && 588*cdf0e10cSrcweir SfxContentHelper::IsDocument( aFile.GetMainURL( INetURLObject::NO_DECODE ) ) ) 589*cdf0e10cSrcweir { 590*cdf0e10cSrcweir // File vorhanden 591*cdf0e10cSrcweir 592*cdf0e10cSrcweir // dann versuche die Datei zu laden: 593*cdf0e10cSrcweir SfxStringItem aName( SID_FILE_NAME, aFile.GetMainURL( INetURLObject::NO_DECODE ) ); 594*cdf0e10cSrcweir SfxBoolItem aNewView(SID_OPEN_NEW_VIEW, sal_True); 595*cdf0e10cSrcweir 596*cdf0e10cSrcweir SfxBoolItem aSilent(SID_SILENT, sal_True); 597*cdf0e10cSrcweir SfxDispatcher* pDispatcher = SFX_APP()->GetDispatcher_Impl(); 598*cdf0e10cSrcweir const SfxPoolItem* pRet = pDispatcher->Execute( SID_OPENDOC, 599*cdf0e10cSrcweir SFX_CALLMODE_SYNCHRON, 600*cdf0e10cSrcweir &aName, &aNewView, 601*cdf0e10cSrcweir &aSilent, 0L ); 602*cdf0e10cSrcweir 603*cdf0e10cSrcweir if( pRet && pRet->ISA( SfxViewFrameItem ) && 604*cdf0e10cSrcweir ((SfxViewFrameItem*)pRet)->GetFrame() && 605*cdf0e10cSrcweir 0 != ( pShell = ((SfxViewFrameItem*)pRet) 606*cdf0e10cSrcweir ->GetFrame()->GetObjectShell() ) ) 607*cdf0e10cSrcweir { 608*cdf0e10cSrcweir SFX_APP()->AddDdeTopic( pShell ); 609*cdf0e10cSrcweir bRet = sal_True; 610*cdf0e10cSrcweir } 611*cdf0e10cSrcweir } 612*cdf0e10cSrcweir } 613*cdf0e10cSrcweir return bRet; 614*cdf0e10cSrcweir } 615*cdf0e10cSrcweir 616*cdf0e10cSrcweir String ImplDdeService::Topics() 617*cdf0e10cSrcweir { 618*cdf0e10cSrcweir String sRet; 619*cdf0e10cSrcweir if( GetSysTopic() ) 620*cdf0e10cSrcweir sRet += GetSysTopic()->GetName(); 621*cdf0e10cSrcweir 622*cdf0e10cSrcweir TypeId aType( TYPE(SfxObjectShell) ); 623*cdf0e10cSrcweir SfxObjectShell* pShell = SfxObjectShell::GetFirst( &aType ); 624*cdf0e10cSrcweir while( pShell ) 625*cdf0e10cSrcweir { 626*cdf0e10cSrcweir if( SfxViewFrame::GetFirst( pShell ) ) 627*cdf0e10cSrcweir { 628*cdf0e10cSrcweir if( sRet.Len() ) 629*cdf0e10cSrcweir sRet += '\t'; 630*cdf0e10cSrcweir sRet += pShell->GetTitle(SFX_TITLE_FULLNAME); 631*cdf0e10cSrcweir } 632*cdf0e10cSrcweir pShell = SfxObjectShell::GetNext( *pShell, &aType ); 633*cdf0e10cSrcweir } 634*cdf0e10cSrcweir if( sRet.Len() ) 635*cdf0e10cSrcweir sRet += DEFINE_CONST_UNICODE("\r\n"); 636*cdf0e10cSrcweir return sRet; 637*cdf0e10cSrcweir } 638*cdf0e10cSrcweir 639*cdf0e10cSrcweir sal_Bool ImplDdeService::SysTopicExecute( const String* pStr ) 640*cdf0e10cSrcweir { 641*cdf0e10cSrcweir return (sal_Bool)SFX_APP()->DdeExecute( *pStr ); 642*cdf0e10cSrcweir } 643*cdf0e10cSrcweir 644*cdf0e10cSrcweir //-------------------------------------------------------------------- 645*cdf0e10cSrcweir 646*cdf0e10cSrcweir sal_Bool SfxDdeTriggerTopic_Impl::Execute( const String* ) 647*cdf0e10cSrcweir { 648*cdf0e10cSrcweir return sal_True; 649*cdf0e10cSrcweir } 650*cdf0e10cSrcweir 651*cdf0e10cSrcweir //-------------------------------------------------------------------- 652*cdf0e10cSrcweir DdeData* SfxDdeDocTopic_Impl::Get( sal_uIntPtr nFormat ) 653*cdf0e10cSrcweir { 654*cdf0e10cSrcweir String sMimeType( SotExchange::GetFormatMimeType( nFormat )); 655*cdf0e10cSrcweir ::com::sun::star::uno::Any aValue; 656*cdf0e10cSrcweir long nRet = pSh->DdeGetData( GetCurItem(), sMimeType, aValue ); 657*cdf0e10cSrcweir if( nRet && aValue.hasValue() && ( aValue >>= aSeq ) ) 658*cdf0e10cSrcweir { 659*cdf0e10cSrcweir aData = DdeData( aSeq.getConstArray(), aSeq.getLength(), nFormat ); 660*cdf0e10cSrcweir return &aData; 661*cdf0e10cSrcweir } 662*cdf0e10cSrcweir aSeq.realloc( 0 ); 663*cdf0e10cSrcweir return 0; 664*cdf0e10cSrcweir } 665*cdf0e10cSrcweir 666*cdf0e10cSrcweir sal_Bool SfxDdeDocTopic_Impl::Put( const DdeData* pData ) 667*cdf0e10cSrcweir { 668*cdf0e10cSrcweir aSeq = ::com::sun::star::uno::Sequence< sal_Int8 >( 669*cdf0e10cSrcweir (sal_Int8*)(const void*)*pData, (long)*pData ); 670*cdf0e10cSrcweir sal_Bool bRet; 671*cdf0e10cSrcweir if( aSeq.getLength() ) 672*cdf0e10cSrcweir { 673*cdf0e10cSrcweir ::com::sun::star::uno::Any aValue; 674*cdf0e10cSrcweir aValue <<= aSeq; 675*cdf0e10cSrcweir String sMimeType( SotExchange::GetFormatMimeType( pData->GetFormat() )); 676*cdf0e10cSrcweir bRet = 0 != pSh->DdeSetData( GetCurItem(), sMimeType, aValue ); 677*cdf0e10cSrcweir } 678*cdf0e10cSrcweir else 679*cdf0e10cSrcweir bRet = sal_False; 680*cdf0e10cSrcweir return bRet; 681*cdf0e10cSrcweir } 682*cdf0e10cSrcweir 683*cdf0e10cSrcweir sal_Bool SfxDdeDocTopic_Impl::Execute( const String* pStr ) 684*cdf0e10cSrcweir { 685*cdf0e10cSrcweir long nRet = pStr ? pSh->DdeExecute( *pStr ) : 0; 686*cdf0e10cSrcweir return 0 != nRet; 687*cdf0e10cSrcweir } 688*cdf0e10cSrcweir 689*cdf0e10cSrcweir sal_Bool SfxDdeDocTopic_Impl::MakeItem( const String& rItem ) 690*cdf0e10cSrcweir { 691*cdf0e10cSrcweir AddItem( DdeItem( rItem ) ); 692*cdf0e10cSrcweir return sal_True; 693*cdf0e10cSrcweir } 694*cdf0e10cSrcweir 695*cdf0e10cSrcweir sal_Bool SfxDdeDocTopic_Impl::StartAdviseLoop() 696*cdf0e10cSrcweir { 697*cdf0e10cSrcweir sal_Bool bRet = sal_False; 698*cdf0e10cSrcweir ::sfx2::SvLinkSource* pNewObj = pSh->DdeCreateLinkSource( GetCurItem() ); 699*cdf0e10cSrcweir if( pNewObj ) 700*cdf0e10cSrcweir { 701*cdf0e10cSrcweir // dann richten wir auch einen entsprechenden SvBaseLink ein 702*cdf0e10cSrcweir String sNm, sTmp( Application::GetAppName() ); 703*cdf0e10cSrcweir ::sfx2::MakeLnkName( sNm, &sTmp, pSh->GetTitle(SFX_TITLE_FULLNAME), GetCurItem() ); 704*cdf0e10cSrcweir new ::sfx2::SvBaseLink( sNm, OBJECT_DDE_EXTERN, pNewObj ); 705*cdf0e10cSrcweir bRet = sal_True; 706*cdf0e10cSrcweir } 707*cdf0e10cSrcweir return bRet; 708*cdf0e10cSrcweir } 709*cdf0e10cSrcweir 710