diff options
Diffstat (limited to 'extensions/test')
35 files changed, 348 insertions, 2607 deletions
diff --git a/extensions/test/ole/DCOM/Clients/WriterDemo/Module1.bas b/extensions/test/ole/DCOM/Clients/WriterDemo/Module1.bas deleted file mode 100644 index e9bb197ed692..000000000000 --- a/extensions/test/ole/DCOM/Clients/WriterDemo/Module1.bas +++ /dev/null @@ -1,8 +0,0 @@ -Attribute VB_Name = "Module1" -Option Explicit - -Sub main() - Dim obj As Object - Set obj = CreateObject("dcomtest.writerdemo.wsc") - obj.run -End Sub diff --git a/extensions/test/ole/DCOM/Clients/WriterDemo/client_writerdemo.vbp b/extensions/test/ole/DCOM/Clients/WriterDemo/client_writerdemo.vbp deleted file mode 100644 index ca477cff6b66..000000000000 --- a/extensions/test/ole/DCOM/Clients/WriterDemo/client_writerdemo.vbp +++ /dev/null @@ -1,33 +0,0 @@ -Type=Exe -Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation -Module=Module1; Module1.bas -Startup="Sub Main" -HelpFile="" -Command32="" -Name="client_writerdemo" -HelpContextID="0" -CompatibleMode="0" -MajorVer=1 -MinorVer=0 -RevisionVer=0 -AutoIncrementVer=0 -ServerSupportFiles=0 -VersionCompanyName="StarOffice" -CompilationType=0 -OptimizationType=0 -FavorPentiumPro(tm)=0 -CodeViewDebugInfo=0 -NoAliasing=0 -BoundsCheck=0 -OverflowCheck=0 -FlPointCheck=0 -FDIVCheck=0 -UnroundedFP=0 -StartMode=0 -Unattended=0 -Retained=0 -ThreadPerObject=0 -MaxNumberOfThreads=1 - -[MS Transaction Server] -AutoRefresh=1 diff --git a/extensions/test/ole/DCOM/Clients/WriterDemo/client_writerdemo.vbw b/extensions/test/ole/DCOM/Clients/WriterDemo/client_writerdemo.vbw deleted file mode 100644 index 067d7529ee0b..000000000000 --- a/extensions/test/ole/DCOM/Clients/WriterDemo/client_writerdemo.vbw +++ /dev/null @@ -1 +0,0 @@ -Module1 = 108, 108, 685, 544, diff --git a/extensions/test/ole/DCOM/Clients/WriterDemo/readme.txt b/extensions/test/ole/DCOM/Clients/WriterDemo/readme.txt deleted file mode 100644 index cc16cd810e3c..000000000000 --- a/extensions/test/ole/DCOM/Clients/WriterDemo/readme.txt +++ /dev/null @@ -1,4 +0,0 @@ -Visual Basic client that instantiates a Windows Script Component -,dcomtest.writerdemo.wsc. That component is located in -extensions/test/ole/DCOM/scriptComponents/WriterDemo.wsc. -Don't forget to register that component (right-click,select register).
\ No newline at end of file diff --git a/extensions/test/ole/DCOM/dcom_test/Module1.bas b/extensions/test/ole/DCOM/dcom_test/Module1.bas deleted file mode 100644 index c41c3a073967..000000000000 --- a/extensions/test/ole/DCOM/dcom_test/Module1.bas +++ /dev/null @@ -1,38 +0,0 @@ -Attribute VB_Name = "Module1" -Option Explicit - -Sub main() - -MsgBox "hallo" - -'The service manager is always the starting point -'If there is no office running then an office is started up -Dim objServiceManager As Object -Set objServiceManager = CreateObject("com.sun.star.ServiceManager") - -'Create the CoreReflection service that is later used to create structs -Set objCoreReflection = objServiceManager.createInstance("com.sun.star.reflection.CoreReflection") - -'Create the Desktop -Set objDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop") - -'Open a new empty writer document - -Set objCoreReflection = objServiceManager.createInstance("com.sun.star.reflection.CoreReflection") -'get a type description class for Size -Set propClass = objCoreReflection.forName("com.sun.star.beans.PropertyValue") - -Dim prop -propClass.CreateObject prop -prop.Name = "Hidden" -prop.Value = True - -'create the actual object -Dim args(0) -Set args(0) = prop - -Dim args2() -'Set objDocument= objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args) -Set objDocument = objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args2) - -End Sub diff --git a/extensions/test/ole/DCOM/dcom_test/dcom_test.vbp b/extensions/test/ole/DCOM/dcom_test/dcom_test.vbp deleted file mode 100644 index 5b896434fb6d..000000000000 --- a/extensions/test/ole/DCOM/dcom_test/dcom_test.vbp +++ /dev/null @@ -1,37 +0,0 @@ -Type=Exe -Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation -Module=Module1; ..\..\..\..\..\..\Projects\VBasic\dcom_test\Module1.bas -Startup="Sub Main" -HelpFile="" -Title="dcom_test" -ExeName32="dcom_test.exe" -Path32="..\..\..\..\..\..\Projects\VBasic\dcom_test" -Command32="" -Name="dcom_test" -HelpContextID="0" -CompatibleMode="0" -MajorVer=1 -MinorVer=0 -RevisionVer=0 -AutoIncrementVer=0 -ServerSupportFiles=0 -VersionCompanyName="StarOffice" -CompilationType=0 -OptimizationType=0 -FavorPentiumPro(tm)=0 -CodeViewDebugInfo=0 -NoAliasing=0 -BoundsCheck=0 -OverflowCheck=0 -FlPointCheck=0 -FDIVCheck=0 -UnroundedFP=0 -StartMode=0 -Unattended=0 -Retained=0 -ThreadPerObject=0 -MaxNumberOfThreads=1 -DebugStartupOption=0 - -[MS Transaction Server] -AutoRefresh=1 diff --git a/extensions/test/ole/DCOM/dcom_test/dcom_test.vbw b/extensions/test/ole/DCOM/dcom_test/dcom_test.vbw deleted file mode 100644 index dfe34e0d1de2..000000000000 --- a/extensions/test/ole/DCOM/dcom_test/dcom_test.vbw +++ /dev/null @@ -1 +0,0 @@ -Module1 = 1, 1, 849, 604, Z diff --git a/extensions/test/ole/DCOM/dcom_test/readme.txt b/extensions/test/ole/DCOM/dcom_test/readme.txt deleted file mode 100644 index 215d6f409f2c..000000000000 --- a/extensions/test/ole/DCOM/dcom_test/readme.txt +++ /dev/null @@ -1,5 +0,0 @@ -The program creates the com.sun.star.Servicemanager on a remote machine: - -Set objServiceManager = CreateObject("com.sun.star.ServiceManager", "\\jl-1036") - -creates a document and writes in it.
\ No newline at end of file diff --git a/extensions/test/ole/DCOM/scriptComponents/WriterDemo.wsc b/extensions/test/ole/DCOM/scriptComponents/WriterDemo.wsc deleted file mode 100644 index bb331779397e..000000000000 --- a/extensions/test/ole/DCOM/scriptComponents/WriterDemo.wsc +++ /dev/null @@ -1,186 +0,0 @@ -<?xml version="1.0"?> -<component> - -<?component error="true" debug="true"?> - -<registration - description="writerdemo script component" - progid="dcomtest.writerdemo.WSC" - version="1.00" - classid="{90c5ca1a-5e38-4c6d-9634-b0c740c569ad}" - remotable="true" -> -</registration> - -<public> - <method name="run"> - </method> -</public> - -<script language="JScript"> -<![CDATA[ - -var description = new jscripttest; - -function jscripttest() -{ - - this.run = run; -} - -function run() -{ -//The service manager is always the starting point -//If there is no office running then an office is started up - -var objServiceManager= new ActiveXObject("com.sun.star.ServiceManager","\\jl-1036"); - -//Create the CoreReflection service that is later used to create structs -var objCoreReflection= objServiceManager.createInstance("com.sun.star.reflection.CoreReflection"); - -//Create the Desktop -var objDesktop= objServiceManager.createInstance("com.sun.star.frame.Desktop"); - -//Open a new empty writer document -var objCoreReflection= objServiceManager.createInstance("com.sun.star.reflection.CoreReflection"); - -//get a type description class for Size -//var propClass = objCoreReflection.forName( "com.sun.star.beans.PropertyValue" ); - -//var propParam= new Array(); -//propClass.createObject(propParam); -//var prop= propParam[0]; -//prop.Name= "Hidden"; -//prop.Value= true; - -//create the actual object -var args= new Array(); -var objDocument= objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args); - -//Create a text object -var objText= objDocument.getText(); - -//Create a cursor object -var objCursor= objText.createTextCursor(); - -//Inserting some Text -objText.insertString( objCursor, "The first line in the newly created text document.\n", false); - -//Inserting a second line -objText.insertString( objCursor, "Now we're in the second line", false); - -//Create instance of a text table with 4 columns and 4 rows -var objTable= objDocument.createInstance( "com.sun.star.text.TextTable"); -objTable.initialize( 4, 4); - -//Insert the table -objText.insertTextContent( objCursor, objTable, false); - -//Get first row -var objRows= objTable.getRows(); -var objRow= objRows.getByIndex( 0); - -//Set the table background color -objTable.setPropertyValue( "BackTransparent", false); -objTable.setPropertyValue( "BackColor", 13421823); - -//Set a different background color for the first row -objRow.setPropertyValue( "BackTransparent", false); -objRow.setPropertyValue( "BackColor", 6710932); - -//Fill the first table row -insertIntoCell( "A1","FirstColumn", objTable); -insertIntoCell( "B1","SecondColumn", objTable); -insertIntoCell( "C1","ThirdColumn", objTable); -insertIntoCell( "D1","SUM", objTable); - - -objTable.getCellByName("A2").setValue( 22.5); -objTable.getCellByName("B2").setValue( 5615.3); -objTable.getCellByName("C2").setValue( -2315.7); -objTable.getCellByName("D2").setFormula("sum <A2:C2>"); - -objTable.getCellByName("A3").setValue( 21.5); -objTable.getCellByName("B3").setValue( 615.3); -objTable.getCellByName("C3").setValue( -315.7); -objTable.getCellByName("D3").setFormula( "sum <A3:C3>"); - -objTable.getCellByName("A4").setValue( 121.5); -objTable.getCellByName("B4").setValue( -615.3); -objTable.getCellByName("C4").setValue( 415.7); -objTable.getCellByName("D4").setFormula( "sum <A4:C4>"); - -//Change the CharColor and add a Shadow -objCursor.setPropertyValue( "CharColor", 255); -objCursor.setPropertyValue( "CharShadowed", true); - -//Create a paragraph break -//The second argument is a com::sun::star::text::ControlCharacter::PARAGRAPH_BREAK constant -objText.insertControlCharacter( objCursor, 0 , false); - -//Inserting colored Text. -objText.insertString( objCursor, " This is a colored Text - blue with shadow\n", false); - -//Create a paragraph break ( ControlCharacter::PARAGRAPH_BREAK). -objText.insertControlCharacter( objCursor, 0, false ); - -//Create a TextFrame. -var objTextFrame= objDocument.createInstance("com.sun.star.text.TextFrame"); - -//Create a Size struct. -var objSize= createStruct("com.sun.star.awt.Size"); -objSize.Width= 15000; -objSize.Height= 400; -objTextFrame.setSize( objSize); - -//TextContentAnchorType.AS_CHARACTER = 1 -objTextFrame.setPropertyValue( "AnchorType", 1); - -//insert the frame -objText.insertTextContent( objCursor, objTextFrame, false); - -//Get the text object of the frame -var objFrameText= objTextFrame.getText(); - -//Create a cursor object -var objFrameTextCursor= objFrameText.createTextCursor(); - -//Inserting some Text -objFrameText.insertString( objFrameTextCursor, "The first line in the newly created text frame.", - false); -objFrameText.insertString(objFrameTextCursor, - "With this second line the height of the frame raises.", false ); - -//Create a paragraph break -//The second argument is a com::sun::star::text::ControlCharacter::PARAGRAPH_BREAK constant -objFrameText.insertControlCharacter( objCursor, 0 , false); - -//Change the CharColor and add a Shadow -objCursor.setPropertyValue( "CharColor", 65536); -objCursor.setPropertyValue( "CharShadowed", false); - -//Insert another string -objText.insertString( objCursor, " That's all for now !!", false ); - -function insertIntoCell( strCellName, strText, objTable) -{ - var objCellText= objTable.getCellByName( strCellName); - var objCellCursor= objCellText.createTextCursor(); - objCellCursor.setPropertyValue( "CharColor",16777215); - objCellText.insertString( objCellCursor, strText, false); -} -function createStruct( strTypeName) -{ - var classSize= objCoreReflection.forName( strTypeName); - var aStruct= new Array(); - classSize.createObject( aStruct); - return aStruct[0]; -} - - -} - -]]> -</script> - -</component> diff --git a/extensions/test/ole/DCOM/scriptComponents/readme.txt b/extensions/test/ole/DCOM/scriptComponents/readme.txt deleted file mode 100644 index 81dff56b47f4..000000000000 --- a/extensions/test/ole/DCOM/scriptComponents/readme.txt +++ /dev/null @@ -1,13 +0,0 @@ -WriterDemo.wsc -================================================================================= -Register the component by right-clicking on the file in the file explorer and select -register. -The component registered as being remotable.That is, it has got an AppID entry (with -a DllSurrogate subkey).That enables us to use dcomcnfg.exe in order to set AccessPermissions,etc. -which is necessary because of the use of the JScript Array object. The automation -bridge will query for IDispatchEx,which is a call from server to client.Hence the server -needs the proper right within the client. - -The component implements a run function, which runs the demo example that is written -in JScript. - diff --git a/extensions/test/ole/EventListenerSample/EventListener/EventListener.cpp b/extensions/test/ole/EventListenerSample/EventListener/EventListener.cpp deleted file mode 100644 index 02dc541c1bc2..000000000000 --- a/extensions/test/ole/EventListenerSample/EventListener/EventListener.cpp +++ /dev/null @@ -1,72 +0,0 @@ -// EventListener.cpp : Implementation of DLL Exports. - - -// Note: Proxy/Stub Information -// To build a separate proxy/stub DLL, -// run nmake -f EventListenerps.mk in the project directory. - -#include "stdafx.h" -#include "resource.h" -#include <initguid.h> -#include "EventListener.h" - -#include "EventListener_i.c" -#include "EvtListener.h" - - -CComModule _Module; - -BEGIN_OBJECT_MAP(ObjectMap) -OBJECT_ENTRY(CLSID_EvtListener, CEvtListener) -END_OBJECT_MAP() - -///////////////////////////////////////////////////////////////////////////// -// DLL Entry Point - -extern "C" -BOOL WINAPI DllMain(HINSTANCE hInstance, DWORD dwReason, LPVOID /*lpReserved*/) -{ - if (dwReason == DLL_PROCESS_ATTACH) - { - _Module.Init(ObjectMap, hInstance, &LIBID_EVENTLISTENERLib); - DisableThreadLibraryCalls(hInstance); - } - else if (dwReason == DLL_PROCESS_DETACH) - _Module.Term(); - return TRUE; // ok -} - -///////////////////////////////////////////////////////////////////////////// -// Used to determine whether the DLL can be unloaded by OLE - -STDAPI DllCanUnloadNow(void) -{ - return (_Module.GetLockCount()==0) ? S_OK : S_FALSE; -} - -///////////////////////////////////////////////////////////////////////////// -// Returns a class factory to create an object of the requested type - -STDAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID* ppv) -{ - return _Module.GetClassObject(rclsid, riid, ppv); -} - -///////////////////////////////////////////////////////////////////////////// -// DllRegisterServer - Adds entries to the system registry - -STDAPI DllRegisterServer(void) -{ - // registers object, typelib and all interfaces in typelib - return _Module.RegisterServer(TRUE); -} - -///////////////////////////////////////////////////////////////////////////// -// DllUnregisterServer - Removes entries from the system registry - -STDAPI DllUnregisterServer(void) -{ - return _Module.UnregisterServer(TRUE); -} - - diff --git a/extensions/test/ole/EventListenerSample/EventListener/EventListener.dsp b/extensions/test/ole/EventListenerSample/EventListener/EventListener.dsp deleted file mode 100644 index 08aac8247c0a..000000000000 --- a/extensions/test/ole/EventListenerSample/EventListener/EventListener.dsp +++ /dev/null @@ -1,323 +0,0 @@ -# Microsoft Developer Studio Project File - Name="EventListener" - Package Owner=<4> -# Microsoft Developer Studio Generated Build File, Format Version 6.00 -# ** NICHT BEARBEITEN ** - -# TARGTYPE "Win32 (x86) Dynamic-Link Library" 0x0102 - -CFG=EventListener - Win32 Debug -!MESSAGE Dies ist kein gültiges Makefile. Zum Erstellen dieses Projekts mit NMAKE -!MESSAGE verwenden Sie den Befehl "Makefile exportieren" und führen Sie den Befehl -!MESSAGE -!MESSAGE NMAKE /f "EventListener.mak". -!MESSAGE -!MESSAGE Sie können beim Ausführen von NMAKE eine Konfiguration angeben -!MESSAGE durch Definieren des Makros CFG in der Befehlszeile. Zum Beispiel: -!MESSAGE -!MESSAGE NMAKE /f "EventListener.mak" CFG="EventListener - Win32 Debug" -!MESSAGE -!MESSAGE Für die Konfiguration stehen zur Auswahl: -!MESSAGE -!MESSAGE "EventListener - Win32 Debug" (basierend auf "Win32 (x86) Dynamic-Link Library") -!MESSAGE "EventListener - Win32 Unicode Debug" (basierend auf "Win32 (x86) Dynamic-Link Library") -!MESSAGE "EventListener - Win32 Release MinSize" (basierend auf "Win32 (x86) Dynamic-Link Library") -!MESSAGE "EventListener - Win32 Release MinDependency" (basierend auf "Win32 (x86) Dynamic-Link Library") -!MESSAGE "EventListener - Win32 Unicode Release MinSize" (basierend auf "Win32 (x86) Dynamic-Link Library") -!MESSAGE "EventListener - Win32 Unicode Release MinDependency" (basierend auf "Win32 (x86) Dynamic-Link Library") -!MESSAGE - -# Begin Project -# PROP AllowPerConfigDependencies 0 -# PROP Scc_ProjName "" -# PROP Scc_LocalPath "" -CPP=cl.exe -MTL=midl.exe -RSC=rc.exe - -!IF "$(CFG)" == "EventListener - Win32 Debug" - -# PROP BASE Use_MFC 0 -# PROP BASE Use_Debug_Libraries 1 -# PROP BASE Output_Dir "Debug" -# PROP BASE Intermediate_Dir "Debug" -# PROP BASE Target_Dir "" -# PROP Use_MFC 0 -# PROP Use_Debug_Libraries 1 -# PROP Output_Dir "Debug" -# PROP Intermediate_Dir "Debug" -# PROP Target_Dir "" -# ADD BASE CPP /nologo /MTd /W3 /Gm /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /Yu"stdafx.h" /FD /GZ /c -# ADD CPP /nologo /MTd /W3 /Gm /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /Yu"stdafx.h" /FD /GZ /c -# ADD BASE RSC /l 0x407 /d "_DEBUG" -# ADD RSC /l 0x407 /d "_DEBUG" -BSC32=bscmake.exe -# ADD BASE BSC32 /nologo -# ADD BSC32 /nologo -LINK32=link.exe -# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /debug /machine:I386 /pdbtype:sept -# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /debug /machine:I386 /pdbtype:sept -# Begin Custom Build - Performing registration -OutDir=.\Debug -TargetPath=.\Debug\EventListener.dll -InputPath=.\Debug\EventListener.dll -SOURCE="$(InputPath)" - -"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)" - regsvr32 /s /c "$(TargetPath)" - echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg" - -# End Custom Build - -!ELSEIF "$(CFG)" == "EventListener - Win32 Unicode Debug" - -# PROP BASE Use_MFC 0 -# PROP BASE Use_Debug_Libraries 1 -# PROP BASE Output_Dir "DebugU" -# PROP BASE Intermediate_Dir "DebugU" -# PROP BASE Target_Dir "" -# PROP Use_MFC 0 -# PROP Use_Debug_Libraries 1 -# PROP Output_Dir "DebugU" -# PROP Intermediate_Dir "DebugU" -# PROP Target_Dir "" -# ADD BASE CPP /nologo /MTd /W3 /Gm /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_UNICODE" /Yu"stdafx.h" /FD /GZ /c -# ADD CPP /nologo /MTd /W3 /Gm /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_UNICODE" /Yu"stdafx.h" /FD /GZ /c -# ADD BASE RSC /l 0x407 /d "_DEBUG" -# ADD RSC /l 0x407 /d "_DEBUG" -BSC32=bscmake.exe -# ADD BASE BSC32 /nologo -# ADD BSC32 /nologo -LINK32=link.exe -# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /debug /machine:I386 /pdbtype:sept -# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /debug /machine:I386 /pdbtype:sept -# Begin Custom Build - Performing registration -OutDir=.\DebugU -TargetPath=.\DebugU\EventListener.dll -InputPath=.\DebugU\EventListener.dll -SOURCE="$(InputPath)" - -"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)" - if "%OS%"=="" goto NOTNT - if not "%OS%"=="Windows_NT" goto NOTNT - regsvr32 /s /c "$(TargetPath)" - echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg" - goto end - :NOTNT - echo Warning : Cannot register Unicode DLL on Windows 95 - :end - -# End Custom Build - -!ELSEIF "$(CFG)" == "EventListener - Win32 Release MinSize" - -# PROP BASE Use_MFC 0 -# PROP BASE Use_Debug_Libraries 0 -# PROP BASE Output_Dir "ReleaseMinSize" -# PROP BASE Intermediate_Dir "ReleaseMinSize" -# PROP BASE Target_Dir "" -# PROP Use_MFC 0 -# PROP Use_Debug_Libraries 0 -# PROP Output_Dir "ReleaseMinSize" -# PROP Intermediate_Dir "ReleaseMinSize" -# PROP Target_Dir "" -# ADD BASE CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "_ATL_DLL" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c -# ADD CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "_ATL_DLL" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c -# ADD BASE RSC /l 0x407 /d "NDEBUG" -# ADD RSC /l 0x407 /d "NDEBUG" -BSC32=bscmake.exe -# ADD BASE BSC32 /nologo -# ADD BSC32 /nologo -LINK32=link.exe -# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386 -# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386 -# Begin Custom Build - Performing registration -OutDir=.\ReleaseMinSize -TargetPath=.\ReleaseMinSize\EventListener.dll -InputPath=.\ReleaseMinSize\EventListener.dll -SOURCE="$(InputPath)" - -"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)" - regsvr32 /s /c "$(TargetPath)" - echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg" - -# End Custom Build - -!ELSEIF "$(CFG)" == "EventListener - Win32 Release MinDependency" - -# PROP BASE Use_MFC 0 -# PROP BASE Use_Debug_Libraries 0 -# PROP BASE Output_Dir "ReleaseMinDependency" -# PROP BASE Intermediate_Dir "ReleaseMinDependency" -# PROP BASE Target_Dir "" -# PROP Use_MFC 0 -# PROP Use_Debug_Libraries 0 -# PROP Output_Dir "ReleaseMinDependency" -# PROP Intermediate_Dir "ReleaseMinDependency" -# PROP Target_Dir "" -# ADD BASE CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "_ATL_STATIC_REGISTRY" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c -# ADD CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "_ATL_STATIC_REGISTRY" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c -# ADD BASE RSC /l 0x407 /d "NDEBUG" -# ADD RSC /l 0x407 /d "NDEBUG" -BSC32=bscmake.exe -# ADD BASE BSC32 /nologo -# ADD BSC32 /nologo -LINK32=link.exe -# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386 -# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386 -# Begin Custom Build - Performing registration -OutDir=.\ReleaseMinDependency -TargetPath=.\ReleaseMinDependency\EventListener.dll -InputPath=.\ReleaseMinDependency\EventListener.dll -SOURCE="$(InputPath)" - -"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)" - regsvr32 /s /c "$(TargetPath)" - echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg" - -# End Custom Build - -!ELSEIF "$(CFG)" == "EventListener - Win32 Unicode Release MinSize" - -# PROP BASE Use_MFC 0 -# PROP BASE Use_Debug_Libraries 0 -# PROP BASE Output_Dir "ReleaseUMinSize" -# PROP BASE Intermediate_Dir "ReleaseUMinSize" -# PROP BASE Target_Dir "" -# PROP Use_MFC 0 -# PROP Use_Debug_Libraries 0 -# PROP Output_Dir "ReleaseUMinSize" -# PROP Intermediate_Dir "ReleaseUMinSize" -# PROP Target_Dir "" -# ADD BASE CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_UNICODE" /D "_ATL_DLL" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c -# ADD CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_UNICODE" /D "_ATL_DLL" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c -# ADD BASE RSC /l 0x407 /d "NDEBUG" -# ADD RSC /l 0x407 /d "NDEBUG" -BSC32=bscmake.exe -# ADD BASE BSC32 /nologo -# ADD BSC32 /nologo -LINK32=link.exe -# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386 -# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386 -# Begin Custom Build - Performing registration -OutDir=.\ReleaseUMinSize -TargetPath=.\ReleaseUMinSize\EventListener.dll -InputPath=.\ReleaseUMinSize\EventListener.dll -SOURCE="$(InputPath)" - -"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)" - if "%OS%"=="" goto NOTNT - if not "%OS%"=="Windows_NT" goto NOTNT - regsvr32 /s /c "$(TargetPath)" - echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg" - goto end - :NOTNT - echo Warning : Cannot register Unicode DLL on Windows 95 - :end - -# End Custom Build - -!ELSEIF "$(CFG)" == "EventListener - Win32 Unicode Release MinDependency" - -# PROP BASE Use_MFC 0 -# PROP BASE Use_Debug_Libraries 0 -# PROP BASE Output_Dir "ReleaseUMinDependency" -# PROP BASE Intermediate_Dir "ReleaseUMinDependency" -# PROP BASE Target_Dir "" -# PROP Use_MFC 0 -# PROP Use_Debug_Libraries 0 -# PROP Output_Dir "ReleaseUMinDependency" -# PROP Intermediate_Dir "ReleaseUMinDependency" -# PROP Target_Dir "" -# ADD BASE CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_UNICODE" /D "_ATL_STATIC_REGISTRY" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c -# ADD CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_UNICODE" /D "_ATL_STATIC_REGISTRY" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c -# ADD BASE RSC /l 0x407 /d "NDEBUG" -# ADD RSC /l 0x407 /d "NDEBUG" -BSC32=bscmake.exe -# ADD BASE BSC32 /nologo -# ADD BSC32 /nologo -LINK32=link.exe -# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386 -# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386 -# Begin Custom Build - Performing registration -OutDir=.\ReleaseUMinDependency -TargetPath=.\ReleaseUMinDependency\EventListener.dll -InputPath=.\ReleaseUMinDependency\EventListener.dll -SOURCE="$(InputPath)" - -"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)" - if "%OS%"=="" goto NOTNT - if not "%OS%"=="Windows_NT" goto NOTNT - regsvr32 /s /c "$(TargetPath)" - echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg" - goto end - :NOTNT - echo Warning : Cannot register Unicode DLL on Windows 95 - :end - -# End Custom Build - -!ENDIF - -# Begin Target - -# Name "EventListener - Win32 Debug" -# Name "EventListener - Win32 Unicode Debug" -# Name "EventListener - Win32 Release MinSize" -# Name "EventListener - Win32 Release MinDependency" -# Name "EventListener - Win32 Unicode Release MinSize" -# Name "EventListener - Win32 Unicode Release MinDependency" -# Begin Group "Source Files" - -# PROP Default_Filter "cpp;c;cxx;rc;def;r;odl;idl;hpj;bat" -# Begin Source File - -SOURCE=.\EventListener.cpp -# End Source File -# Begin Source File - -SOURCE=.\EventListener.def -# End Source File -# Begin Source File - -SOURCE=.\EventListener.idl -# ADD MTL /tlb ".\EventListener.tlb" /h "EventListener.h" /iid "EventListener_i.c" /Oicf -# End Source File -# Begin Source File - -SOURCE=.\EventListener.rc -# End Source File -# Begin Source File - -SOURCE=.\EvtListener.cpp -# End Source File -# Begin Source File - -SOURCE=.\StdAfx.cpp -# ADD CPP /Yc"stdafx.h" -# End Source File -# End Group -# Begin Group "Header Files" - -# PROP Default_Filter "h;hpp;hxx;hm;inl" -# Begin Source File - -SOURCE=.\EvtListener.h -# End Source File -# Begin Source File - -SOURCE=.\Resource.h -# End Source File -# Begin Source File - -SOURCE=.\StdAfx.h -# End Source File -# End Group -# Begin Group "Resource Files" - -# PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe" -# Begin Source File - -SOURCE=.\EvtListener.rgs -# End Source File -# End Group -# End Target -# End Project diff --git a/extensions/test/ole/EventListenerSample/EventListener/EventListener.dsw b/extensions/test/ole/EventListenerSample/EventListener/EventListener.dsw deleted file mode 100644 index 20f5e80a4ee6..000000000000 --- a/extensions/test/ole/EventListenerSample/EventListener/EventListener.dsw +++ /dev/null @@ -1,29 +0,0 @@ -Microsoft Developer Studio Workspace File, Format Version 6.00 -# WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE! - -############################################################################### - -Project: "EventListener"=.\EventListener.dsp - Package Owner=<4> - -Package=<5> -{{{ -}}} - -Package=<4> -{{{ -}}} - -############################################################################### - -Global: - -Package=<5> -{{{ -}}} - -Package=<3> -{{{ -}}} - -############################################################################### - diff --git a/extensions/test/ole/EventListenerSample/EventListener/EventListener.idl b/extensions/test/ole/EventListenerSample/EventListener/EventListener.idl deleted file mode 100644 index 6272173a24d9..000000000000 --- a/extensions/test/ole/EventListenerSample/EventListener/EventListener.idl +++ /dev/null @@ -1,39 +0,0 @@ -// EventListener.idl : IDL source for EventListener.dll -// - -// This file will be processed by the MIDL tool to -// produce the type library (EventListener.tlb) and marshalling code. - -import "oaidl.idl"; -import "ocidl.idl"; - [ - object, - uuid(86653399-24C6-4C2B-9E8A-564175250CB2), - dual, - helpstring("IEvtListener-Schnittstelle"), - pointer_default(unique) - ] - interface IEvtListener : IDispatch - { - [id(1), helpstring("Methode disposing")] HRESULT disposing([in] IDispatch* source); - }; - -[ - uuid(E3E61535-3262-45E6-BFD9-EE8AED051BD1), - version(1.0), - helpstring("EventListener 1.0 Type Library") -] -library EVENTLISTENERLib -{ - importlib("stdole32.tlb"); - importlib("stdole2.tlb"); - - [ - uuid(830E0743-87C1-4C99-A77A-5FBA0C2EBD9A), - helpstring("EvtListener Class") - ] - coclass EvtListener - { - [default] interface IEvtListener; - }; -}; diff --git a/extensions/test/ole/EventListenerSample/EventListener/EventListener.rc b/extensions/test/ole/EventListenerSample/EventListener/EventListener.rc deleted file mode 100644 index 90f0c7bd2ce5..000000000000 --- a/extensions/test/ole/EventListenerSample/EventListener/EventListener.rc +++ /dev/null @@ -1,136 +0,0 @@ -//Microsoft Developer Studio generated resource script. -// -#include "resource.h" - -#define APSTUDIO_READONLY_SYMBOLS -///////////////////////////////////////////////////////////////////////////// -// -// Generated from the TEXTINCLUDE 2 resource. -// -#include "winres.h" - -///////////////////////////////////////////////////////////////////////////// -#undef APSTUDIO_READONLY_SYMBOLS - -///////////////////////////////////////////////////////////////////////////// -// Deutsch (Deutschland) resources - -#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_DEU) -#ifdef _WIN32 -LANGUAGE LANG_GERMAN, SUBLANG_GERMAN -#pragma code_page(1252) -#endif //_WIN32 - -#ifdef APSTUDIO_INVOKED -///////////////////////////////////////////////////////////////////////////// -// -// TEXTINCLUDE -// - -1 TEXTINCLUDE DISCARDABLE -BEGIN - "resource.h\0" -END - -2 TEXTINCLUDE DISCARDABLE -BEGIN - "#include ""winres.h""\r\n" - "\0" -END - -3 TEXTINCLUDE DISCARDABLE -BEGIN - "1 TYPELIB ""EventListener.tlb""\r\n" - "\0" -END - -#endif // APSTUDIO_INVOKED - - -#ifndef _MAC -///////////////////////////////////////////////////////////////////////////// -// -// Version -// - -VS_VERSION_INFO VERSIONINFO - FILEVERSION 1,0,0,1 - PRODUCTVERSION 1,0,0,1 - FILEFLAGSMASK 0x3fL -#ifdef _DEBUG - FILEFLAGS 0x1L -#else - FILEFLAGS 0x0L -#endif - FILEOS 0x4L - FILETYPE 0x2L - FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "040904B0" - BEGIN - VALUE "CompanyName", "\0" - VALUE "FileDescription", "EventListener Module\0" - VALUE "FileVersion", "1, 0, 0, 1\0" - VALUE "InternalName", "EventListener\0" - VALUE "LegalCopyright", "Copyright 2001\0" - VALUE "OriginalFilename", "EventListener.DLL\0" - VALUE "ProductName", "EventListener Module\0" - VALUE "ProductVersion", "1, 0, 0, 1\0" - VALUE "OLESelfRegister", "\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x409, 1200 - END -END - -#endif // !_MAC - - -///////////////////////////////////////////////////////////////////////////// -// -// String Table -// - -STRINGTABLE DISCARDABLE -BEGIN - IDS_PROJNAME "EventListener" -END - -#endif // Deutsch (Deutschland) resources -///////////////////////////////////////////////////////////////////////////// - - -///////////////////////////////////////////////////////////////////////////// -// Englisch (USA) resources - -#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_ENU) -#ifdef _WIN32 -LANGUAGE LANG_ENGLISH, SUBLANG_ENGLISH_US -#pragma code_page(1252) -#endif //_WIN32 - -///////////////////////////////////////////////////////////////////////////// -// -// REGISTRY -// - -IDR_EVTLISTENER REGISTRY DISCARDABLE "EvtListener.rgs" -#endif // Englisch (USA) resources -///////////////////////////////////////////////////////////////////////////// - - - -#ifndef APSTUDIO_INVOKED -///////////////////////////////////////////////////////////////////////////// -// -// Generated from the TEXTINCLUDE 3 resource. -// -1 TYPELIB "EventListener.tlb" - -///////////////////////////////////////////////////////////////////////////// -#endif // not APSTUDIO_INVOKED - diff --git a/extensions/test/ole/EventListenerSample/EventListener/EvtListener.cpp b/extensions/test/ole/EventListenerSample/EventListener/EvtListener.cpp deleted file mode 100644 index 9a469cbfcfc1..000000000000 --- a/extensions/test/ole/EventListenerSample/EventListener/EvtListener.cpp +++ /dev/null @@ -1,19 +0,0 @@ -// EvtListener.cpp : Implementierung von CEvtListener -#include "stdafx.h" -#include "EventListener.h" -#include "EvtListener.h" - -///////////////////////////////////////////////////////////////////////////// -// CEvtListener - -STDMETHODIMP CEvtListener::disposing( IDispatch* source) -{ - ::MessageBox(NULL,_T("XEventListener::disposing"), - _T("EventListener.EvtListener component"), MB_OK); - return S_OK; -} - -CEvtListener::~CEvtListener() -{ - -}
\ No newline at end of file diff --git a/extensions/test/ole/EventListenerSample/EventListener/EvtListener.h b/extensions/test/ole/EventListenerSample/EventListener/EvtListener.h deleted file mode 100644 index 7b9b6a1f8df7..000000000000 --- a/extensions/test/ole/EventListenerSample/EventListener/EvtListener.h +++ /dev/null @@ -1,35 +0,0 @@ -// EvtListener.h : Deklaration von CEvtListener - -#ifndef __EVTLISTENER_H_ -#define __EVTLISTENER_H_ - -#include "resource.h" // Hauptsymbole - -///////////////////////////////////////////////////////////////////////////// -// CEvtListener -class ATL_NO_VTABLE CEvtListener : - public CComObjectRootEx<CComSingleThreadModel>, - public CComCoClass<CEvtListener, &CLSID_EvtListener>, - public IDispatchImpl<IEvtListener, &IID_IEvtListener, &LIBID_EVENTLISTENERLib> -{ -public: - CEvtListener() - { - } - ~CEvtListener(); - -DECLARE_REGISTRY_RESOURCEID(IDR_EVTLISTENER) - -DECLARE_PROTECT_FINAL_CONSTRUCT() - -BEGIN_COM_MAP(CEvtListener) - COM_INTERFACE_ENTRY(IEvtListener) - COM_INTERFACE_ENTRY(IDispatch) -END_COM_MAP() - -// IEvtListener -public: - STDMETHOD(disposing)(IDispatch* source); -}; - -#endif //__EVTLISTENER_H_ diff --git a/extensions/test/ole/EventListenerSample/EventListener/EvtListener.rgs b/extensions/test/ole/EventListenerSample/EventListener/EvtListener.rgs deleted file mode 100644 index e0aa9bbb7c37..000000000000 --- a/extensions/test/ole/EventListenerSample/EventListener/EvtListener.rgs +++ /dev/null @@ -1,26 +0,0 @@ -HKCR -{ - EventListener.EvtListener.1 = s 'EvtListener Class' - { - CLSID = s '{830E0743-87C1-4C99-A77A-5FBA0C2EBD9A}' - } - EventListener.EvtListener = s 'EvtListener Class' - { - CLSID = s '{830E0743-87C1-4C99-A77A-5FBA0C2EBD9A}' - CurVer = s 'EventListener.EvtListener.1' - } - NoRemove CLSID - { - ForceRemove {830E0743-87C1-4C99-A77A-5FBA0C2EBD9A} = s 'EvtListener Class' - { - ProgID = s 'EventListener.EvtListener.1' - VersionIndependentProgID = s 'EventListener.EvtListener' - ForceRemove 'Programmable' - InprocServer32 = s '%MODULE%' - { - val ThreadingModel = s 'Apartment' - } - 'TypeLib' = s '{E3E61535-3262-45E6-BFD9-EE8AED051BD1}' - } - } -} diff --git a/extensions/test/ole/EventListenerSample/EventListener/StdAfx.cpp b/extensions/test/ole/EventListenerSample/EventListener/StdAfx.cpp deleted file mode 100644 index a5eea178f78b..000000000000 --- a/extensions/test/ole/EventListenerSample/EventListener/StdAfx.cpp +++ /dev/null @@ -1,12 +0,0 @@ -// stdafx.cpp : source file that includes just the standard includes -// stdafx.pch will be the pre-compiled header -// stdafx.obj will contain the pre-compiled type information - -#include "stdafx.h" - -#ifdef _ATL_STATIC_REGISTRY -#include <statreg.h> -#include <statreg.cpp> -#endif - -#include <atlimpl.cpp> diff --git a/extensions/test/ole/EventListenerSample/EventListener/StdAfx.h b/extensions/test/ole/EventListenerSample/EventListener/StdAfx.h deleted file mode 100644 index 199640620e6e..000000000000 --- a/extensions/test/ole/EventListenerSample/EventListener/StdAfx.h +++ /dev/null @@ -1,27 +0,0 @@ -// stdafx.h : include file for standard system include files, -// or project specific include files that are used frequently, -// but are changed infrequently - -#if !defined(AFX_STDAFX_H__E275407A_804A_477E_9A28_F5CA84E711C3__INCLUDED_) -#define AFX_STDAFX_H__E275407A_804A_477E_9A28_F5CA84E711C3__INCLUDED_ - -#if _MSC_VER > 1000 -#pragma once -#endif // _MSC_VER > 1000 - -#define STRICT -#ifndef _WIN32_WINNT -#define _WIN32_WINNT 0x0400 -#endif -#define _ATL_APARTMENT_THREADED - -#include <atlbase.h> -//You may derive a class from CComModule and use it if you want to override -//something, but do not change the name of _Module -extern CComModule _Module; -#include <atlcom.h> - -//{{AFX_INSERT_LOCATION}} -// Microsoft Visual C++ will insert additional declarations immediately before the previous line. - -#endif // !defined(AFX_STDAFX_H__E275407A_804A_477E_9A28_F5CA84E711C3__INCLUDED) diff --git a/extensions/test/ole/EventListenerSample/EventListener/resource.h b/extensions/test/ole/EventListenerSample/EventListener/resource.h deleted file mode 100644 index 9446ddd2fca7..000000000000 --- a/extensions/test/ole/EventListenerSample/EventListener/resource.h +++ /dev/null @@ -1,17 +0,0 @@ -//{{NO_DEPENDENCIES}} -// Microsoft Developer Studio generated include file. -// Used by EventListener.rc -// -#define IDS_PROJNAME 100 -#define IDR_EVTLISTENER 101 - -// Next default values for new objects -// -#ifdef APSTUDIO_INVOKED -#ifndef APSTUDIO_READONLY_SYMBOLS -#define _APS_NEXT_RESOURCE_VALUE 201 -#define _APS_NEXT_COMMAND_VALUE 32768 -#define _APS_NEXT_CONTROL_VALUE 201 -#define _APS_NEXT_SYMED_VALUE 102 -#endif -#endif diff --git a/extensions/test/ole/EventListenerSample/VBEventListener/Module1.bas b/extensions/test/ole/EventListenerSample/VBEventListener/Module1.bas deleted file mode 100644 index aafd265a0d48..000000000000 --- a/extensions/test/ole/EventListenerSample/VBEventListener/Module1.bas +++ /dev/null @@ -1,9 +0,0 @@ -Attribute VB_Name = "Module1" -Option Explicit - - -Sub Main() - -End Sub - - diff --git a/extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls b/extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls deleted file mode 100644 index 9fd9cc46f4f8..000000000000 --- a/extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls +++ /dev/null @@ -1,51 +0,0 @@ -VERSION 1.0 CLASS -BEGIN - MultiUse = -1 'True - Persistable = 0 'NotPersistable - DataBindingBehavior = 0 'vbNone - DataSourceBehavior = 0 'vbNone - MTSTransactionMode = 0 'NotAnMTSObject -END -Attribute VB_Name = "VBEventListener" -Attribute VB_GlobalNameSpace = False -Attribute VB_Creatable = True -Attribute VB_PredeclaredId = False -Attribute VB_Exposed = True -Option Explicit -Private interfaces(0) As String -Private bDisposingCalled As Boolean -Private bQuiet As Boolean - -Public Property Get Bridge_ImplementedInterfaces() As Variant - Bridge_ImplementedInterfaces = interfaces -End Property - -Private Sub Class_Initialize() -interfaces(0) = "com.sun.star.lang.XEventListener" -bDisposingCalled = False -bQuiet = False -End Sub - -Private Sub Class_Terminate() - On Error Resume Next - Debug.Print "Terminate VBEventListener" -End Sub - -Public Sub disposing(ByVal source As Object) - If bQuiet = False Then - MsgBox "disposing called" - End If - bDisposingCalled = True -End Sub - -Public Sub setQuiet(quiet As Boolean) - bQuiet = quiet -End Sub - -Public Sub resetDisposing() - bDisposingCalled = False -End Sub - -Public Function disposingCalled() - disposingCalled = bDisposingCalled -End Function diff --git a/extensions/test/ole/EventListenerSample/events.htm b/extensions/test/ole/EventListenerSample/events.htm deleted file mode 100644 index a9ac88bd11ec..000000000000 --- a/extensions/test/ole/EventListenerSample/events.htm +++ /dev/null @@ -1,98 +0,0 @@ -<HTML> -<HEAD> -<META NAME="GENERATOR" Content="Microsoft Developer Studio"> -<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1"> -<TITLE>Document Title</TITLE> -</HEAD> -<BODY id=theBody> - -<script language="JScript"> -function Main( id) -{ -var objServiceManager= new ActiveXObject("com.sun.star.ServiceManager"); - -var objDesktop= objServiceManager.createInstance("com.sun.star.frame.Desktop"); - -var args= new Array(); - -var objDocument= objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args); - -var listener; -if( id == 0) - listener= new XEventListener_Impl(); -else if(id == 1) - listener= new ActiveXObject("EventListener.EvtListener"); -objDocument.addEventListener( listener); -} - - -function XEventListener_Impl() -{ - this._environment= "JScript"; - this._implementedInterfaces= new Array( "com.sun.star.lang.XEventListener"); - - //XEventListener - this.disposing= XEventListener_disposing; -} - -function XEventListener_disposing( source) -{ - alert("JScript Event Listener \n The document was closed"); -} -</script> - -<script language="VBScript"> -SUB MainVB( id) -Set objServiceManager= CreateObject("com.sun.star.ServiceManager") - -Set objCoreReflection= objServiceManager.createInstance("com.sun.star.reflection.CoreReflection") - -Set objDesktop= objServiceManager.createInstance("com.sun.star.frame.Desktop") - -'Open a new empty writer document -Dim args() -Set objDocument= objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args) - -Dim eventListener -select case id - case 0 - Set eventListener= CreateObject("EventListener.EvtListener") - case 1 - Set eventListener= CreateObject("VBasicEventListener.VBEventListener") -end select - -objDocument.addEventListener eventlistener -END SUB - -</script> -<p> -The script on this page creates a new StarOffice document and connects an event listener -to it. When the document is closed then the XEventListener::disposing method is called on the -listener object. How the listener is set up depends on the button being clicked. -</p> -<p> -The button will run JScript code that and adds an JScript event listener to the document. -The listener is also implemented in JScript an is on this page.. -</p> -<button onclick='Main(0)'>JScript go</Button> -<p> - -The button runs JScript code that creates the ActiveX component EventListener.EvtListener that -is written in C++ and housed in a dll. Then the event listener is added to the document. -</p> -<button onclick='Main( 1)'>JScript go</Button> -<p> -The button runs VBScript code that creates the components EventListener.EvtListener and adds it -to the document. -</p> -<button onclick='MainVB(0)'>VBScript</Button> -<p> -Runs VBScript code that creates VBasicEventListener.VBEventListener ActiveX component which was -written with VB -</p> -<button onclick='MainVB(1)'>VBScript</Button> - -</body> -</html> - - diff --git a/extensions/test/ole/EventListenerSample/readme.txt b/extensions/test/ole/EventListenerSample/readme.txt deleted file mode 100644 index 46c674153ab7..000000000000 --- a/extensions/test/ole/EventListenerSample/readme.txt +++ /dev/null @@ -1,18 +0,0 @@ -EventListener -________________________________________________________ - -The folder EventListener contains an MSDEV project that builds a dll that contains -the EventListener.EvtListener ActiveX component. The component implements the XEventListener -interface according to the rules of the OleBridge. The component will be used from the -HTML page events.htm. - -VBEventListener: -_________________________________________________________ -Contains a Visual Basic project that builds an ActiveX component that implements -com.sun.star.lang.XEventListener. Its ProgId is VBasicEventListener.VBEventListener -The dll should also be checked in. VB needs its TLB, so it uses the same CLSIDs on -the next build. The component will create a message box when its disposing function -has been called. - -The project also contains a client that builds a Project1.exe (in the same folder) -that creates VBEventListener and adds it to a StarOffice document diff --git a/extensions/test/ole/StarBasic_OleClient/oleclient.bas b/extensions/test/ole/StarBasic_OleClient/oleclient.bas deleted file mode 100644 index 17b75e3c94e0..000000000000 --- a/extensions/test/ole/StarBasic_OleClient/oleclient.bas +++ /dev/null @@ -1,209 +0,0 @@ -REM ***** BASIC ***** - - -Sub Main -factory= createUnoService("com.sun.star.bridge.OleObjectFactory") -obj= factory.createInstance("AxTestComponents.Basic") - - -obj.prpObject= obj -prpObject= obj.prpObject -'identity of objects, mapped from COM to UNO, is not given currently -if NOT equalUnoObjects(obj,prpObject) then - MsgBox "error" -end if - -'properties ------------------------------------------------------------------------- -Dim ar1(1) -ar1(0)= "1" -ar1(1)= "2" -obj.prpArray= ar1() -prpArray= obj.prpArray -if (prpArray(0) <> "1") OR (prpArray(1) <> "2") then - MsgBox "error" -end if - -obj.prpVariant="string" -prpVariant= obj.prpVariant -if prpVariant <> "string" then - MsgBox "error" -end if - -obj.prpDouble=3.145 -prpDouble= obj.prpDouble -if NOT ((prpDouble >3.144) AND (prpDouble < 3.146)) then - MsgBox "error" -end if - - -obj.prpFloat= 3.14 -prpFloat= obj.prpFloat -if NOT ((prpFloat >3.13) AND (prpFloat < 3.15)) then - MsgBox "error" -end if - -obj.prpString= "string" -prpString= obj.prpString -if prpString <> "string" then - MsgBox "error" -end if - -obj.prpLong= 1000 -prpLong= obj.prpLong -if prpLong <> 1000 then - MsgBox "error" -end if - -obj.prpShort= 127 -prpShort= obj.prpShort -if prpShort <> 127 then - MsgBox "error" -end if - -obj.prpByte= 11 -prpByte= obj.prpByte -if prpByte <> 11 then - MsgBox "error" -end if - - -'out parameter ------------------------------------------------------------------------- -Dim outObject -obj.outObject(outObject) -if outObject.prpString <> "out" then - MsgBox "error" -end if - -Dim outArray -obj.outArray(outArray) -if (outArray(0) <> "out1") OR (outArray(1) <> "out2") OR (outArray(2) <> "out3")then - MsgBox "error" -end if -Dim outVariant -obj.outVariant(outVariant) -if outVariant <> "out" then - MsgBox "error" -end if -Dim outDouble -obj.outDouble(outDouble) -if NOT ((outDouble >3.144) AND (outDouble < 3.146)) then - MsgBox "error" -end if - - -Dim outFloat -obj.outFloat(outFloat) -if NOT ((outFloat >3.13) AND (outFloat < 3.15)) then - MsgBox "error" -end if - -Dim outString -obj.outString(outString) -if outString <> "out" then - MsgBox "error" -end if -Dim outLong -obj.outLong(outLong) -if outLong <> 111111 then - MsgBox "error" -end if - -Dim outShort -obj.outShort(outShort) -if outShort <> 1111 then - MsgBox "error" -end if - -Dim outByte -obj.outByte(outByte) -if outByte <> 111 then - MsgBox "error" -end if - - -'in-out parameter ------------------------------------------------------------- -obj2= factory.createInstance("AxTestComponents.Basic") -inoutObj= obj2 -inoutObj.prpString="in" -obj.inoutObject(inoutObj) -if equalUnoObjects(inoutObj,obj) then - MsgBox "error" -end if - -if inoutObj.prpString <> "out" then - MsgBox "error" -end if - - -Dim inoutAr(2) -inoutAr(0)="1" -inoutAr(1)="2" -inoutAr(2)="3" -obj.inoutArray(inoutAr()) - -if (inoutAr(0) <> "1out") OR (inoutAr(1) <> "2out") OR (inoutAr(2) <> "3out") then - MsgBox "error" -end if - -inoutVar= "in" -obj.inoutVariant(inoutVar) -if inoutVar <> "inout" then - MsgBox "error" -end if - -inoutDouble= 3.14 -obj.inoutDouble(inoutDouble) -if NOT ((inoutDouble >4.13) AND (inoutDouble < 4.15)) then - MsgBox "error" -end if - -inoutFloat= 3.14 -obj.inoutFloat(inoutFloat) -if NOT ((inoutFloat >4.13) AND (inoutFloat < 4.15)) then - MsgBox "error" -end if - -inoutString= "in" -obj.inoutString(inoutString) -if inoutString <> "inout" then - MsgBox "error" -end if - - -inoutLong= 10 -obj.inoutLong(inoutLong) -if inoutLong <> 11 then - MsgBox "error" -end if - -inoutShort= 10 -obj.inoutShort(inoutShort) -if inoutShort <> 11 then - MsgBox "error" -end if - - -inoutByte= 10 -obj.inoutByte(inoutByte) -if inoutByte <> 11 then - MsgBox "error" -end if - - -'in parameter ------------------------------------------------------------------- -obj.inByte(11) -obj.inShort(111) -obj.inLong(11111) -obj.inString("I am a string") -obj.inFloat(3.14) -obj.inDouble(3.145) -obj.inVariant("I am a string in a variant") -obj.prpString= "a string property" -obj.inObject(obj) - -Dim arString(1) as String -arString(0)= "String one" -arString(1)= "String two" -obj.inArray(arString()) - -End Sub diff --git a/extensions/test/ole/StarBasic_OleClient/readme.txt b/extensions/test/ole/StarBasic_OleClient/readme.txt deleted file mode 100644 index 8e129dddddcd..000000000000 --- a/extensions/test/ole/StarBasic_OleClient/readme.txt +++ /dev/null @@ -1,10 +0,0 @@ -oleclient.bas is a StarBasic script that uses the -"com.sun.star.bridge.OleObjectFactory" service to instantiate -the ActiveX component "AxTestComponents.Basic" and calls -functions on it. - ------------------------------------------------------------- -Requirements: - -ActiveX component: AxTestComponent.Basic must be registered. -It is contained in extensions/test/ole/AxTestComponents
\ No newline at end of file diff --git a/extensions/test/ole/VisualBasic/Form1.frm b/extensions/test/ole/VisualBasic/Form1.frm deleted file mode 100644 index c2ed1f6a11f5..000000000000 --- a/extensions/test/ole/VisualBasic/Form1.frm +++ /dev/null @@ -1,349 +0,0 @@ -VERSION 5.00 -Begin VB.Form Form1 - Caption = "Form1" - ClientHeight = 4572 - ClientLeft = 48 - ClientTop = 336 - ClientWidth = 8460 - LinkTopic = "Form1" - ScaleHeight = 4572 - ScaleWidth = 8460 - StartUpPosition = 3 'Windows Default - Begin VB.CommandButton ctrInParamStart - Caption = "Start" - Height = 252 - Left = 240 - TabIndex = 20 - Top = 480 - Width = 732 - End - Begin VB.TextBox tareaResult - Height = 1932 - Left = 4920 - TabIndex = 19 - Top = 480 - Width = 3372 - End - Begin VB.CommandButton Command20 - Caption = "Command20" - Height = 252 - Left = 3000 - TabIndex = 18 - Top = 2640 - Width = 492 - End - Begin VB.CommandButton Command19 - Caption = "string" - Height = 252 - Left = 2280 - TabIndex = 17 - Top = 2640 - Width = 492 - End - Begin VB.CommandButton Command18 - Caption = "long" - Height = 252 - Left = 1560 - TabIndex = 16 - Top = 2640 - Width = 492 - End - Begin VB.CommandButton Command17 - Caption = "short" - Height = 252 - Left = 840 - TabIndex = 15 - Top = 2640 - Width = 492 - End - Begin VB.CommandButton Command16 - Caption = "byte" - Height = 252 - Left = 120 - TabIndex = 14 - Top = 2640 - Width = 492 - End - Begin VB.CommandButton Command15 - Caption = "array" - Height = 252 - Left = 3000 - TabIndex = 12 - Top = 1920 - Width = 612 - End - Begin VB.CommandButton Command14 - Caption = "string" - Height = 252 - Left = 2280 - TabIndex = 11 - Top = 1920 - Width = 492 - End - Begin VB.CommandButton Command13 - Caption = "long" - Height = 252 - Left = 1440 - TabIndex = 10 - Top = 1920 - Width = 612 - End - Begin VB.CommandButton Command12 - Caption = "short" - Height = 252 - Left = 720 - TabIndex = 9 - Top = 1920 - Width = 612 - End - Begin VB.CommandButton Command11 - Caption = "byte" - Height = 252 - Left = 120 - TabIndex = 8 - Top = 1920 - Width = 492 - End - Begin VB.CommandButton Command10 - Caption = "array" - Height = 252 - Left = 3000 - TabIndex = 6 - Top = 1200 - Width = 612 - End - Begin VB.CommandButton Command9 - Caption = "string" - Height = 252 - Left = 2280 - TabIndex = 5 - Top = 1200 - Width = 612 - End - Begin VB.CommandButton Command8 - Caption = "long" - Height = 252 - Left = 1560 - TabIndex = 4 - Top = 1200 - Width = 612 - End - Begin VB.CommandButton Command7 - Caption = "short" - Height = 252 - Left = 840 - TabIndex = 3 - Top = 1200 - Width = 612 - End - Begin VB.CommandButton Command6 - Caption = "byte" - Height = 252 - Left = 120 - TabIndex = 2 - Top = 1200 - Width = 612 - End - Begin VB.Label Label4 - Caption = "Properties" - Height = 252 - Left = 120 - TabIndex = 13 - Top = 2280 - Width = 1212 - End - Begin VB.Label Label3 - Caption = "In Out Parameter" - Height = 252 - Left = 120 - TabIndex = 7 - Top = 1560 - Width = 1332 - End - Begin VB.Label Label2 - Caption = "Out Parameter" - Height = 252 - Left = 120 - TabIndex = 1 - Top = 840 - Width = 1332 - End - Begin VB.Label Label1 - Caption = "In Parameter" - Height = 252 - Left = 240 - TabIndex = 0 - Top = 120 - Width = 1212 - End -End -Attribute VB_Name = "Form1" -Attribute VB_GlobalNameSpace = False -Attribute VB_Creatable = False -Attribute VB_PredeclaredId = True -Attribute VB_Exposed = False -Option Explicit -Private objServiceManager -Private objCoreReflection -Private objOleTest - -Private Sub ctrInParamStart_Click() -Dim ret As Variant - -' In Parameter, simple types -'============================================ -ret = objOleTest.in_methodByte(10) -Debug.Print TypeName(ret) & " " & CStr(ret) -ret = objOleTest.in_methodFloat(3.14) -Debug.Print TypeName(ret) & " " & CStr(ret) - -Dim d As Double 'try conversion -d = 3.14 -ret = objOleTest.in_methodFloat(3.14) -Debug.Print TypeName(ret) & " " & CStr(ret) -ret = objOleTest.in_methodDouble(4.14) -Debug.Print TypeName(ret) & " " & CStr(ret) -Dim s As Single -s = 4.14 -ret = objOleTest.in_methodDouble(s) -Debug.Print TypeName(ret) & " " & CStr(ret) -ret = objOleTest.in_methodBool(True) -Debug.Print TypeName(ret) & " " & CStr(ret) -ret = objOleTest.in_methodBool(False) -Debug.Print TypeName(ret) & " " & CStr(ret) -ret = objOleTest.in_methodShort(-10) -Debug.Print TypeName(ret) & " " & CStr(ret) -ret = objOleTest.in_methodUShort(10) -Debug.Print TypeName(ret) & " " & CStr(ret) -ret = objOleTest.in_methodLong(-1000000) -Debug.Print TypeName(ret) & " " & CStr(ret) -ret = objOleTest.in_methodULong(1000000) -Debug.Print TypeName(ret) & " " & CStr(ret) -ret = objOleTest.in_methodString("This is a String") -Debug.Print TypeName(ret) & " " & CStr(ret) -ret = objOleTest.in_methodChar("A") -Debug.Print TypeName(ret) & " " & CStr(ret) -ret = objOleTest.in_methodAny("This is a String in an any") -Debug.Print TypeName(ret) & " " & CStr(ret) - -Call objOleTest.in_methodAll(10, 10.1, 10.111, True, 10, 11, 12, 13, _ - "A String", "A", "A String in an Any") - -'Out Parameter simple types -'================================================ -Dim outByte As Byte -objOleTest.testout_methodByte outByte -Debug.Print "out byte " & CStr(outByte) -Dim outFloat As Single -objOleTest.testout_methodFloat outFloat -Debug.Print "out float " & CStr(outFloat) -Dim outDouble As Double -objOleTest.testout_methodDouble outDouble -Debug.Print "out double " & CStr(outDouble) -Dim outBool As Boolean -objOleTest.testout_methodBool outBool -Debug.Print "out bool " & CStr(outBool) -Dim outInt As Integer -objOleTest.testout_methodShort outInt -Debug.Print "out short " & CStr(outInt) -objOleTest.testout_methodUShort outInt -Debug.Print "out unsignedshort " & CStr(outInt) -Dim outLong As Long -objOleTest.testout_methodLong outLong -Debug.Print "out long " & CStr(outInt) -objOleTest.testout_methodULong outLong -Debug.Print "out unsigned long " & CStr(outInt) -Dim outString As String -objOleTest.testout_methodString outString -Debug.Print "out string " & CStr(outString) -Dim outChar As Integer -objOleTest.testout_methodChar outChar -Debug.Print "out char " & CStr(outChar) -Dim outCharS As String -objOleTest.testout_methodChar outCharS -Debug.Print "out char (String) " & CStr(outCharS) -objOleTest.testout_methodAny outString -Debug.Print "out Any " & CStr(outString) -'Out Parameter simple types (VARIANT var) -Dim outVar As Variant -objOleTest.testout_methodByte outVar -Debug.Print "out Byte (VARIANT) " & CStr(outVar) -objOleTest.testout_methodFloat outVar -Debug.Print "out float (VARIANT) " & CStr(outVar) -objOleTest.testout_methodDouble outVar -Debug.Print "out double (VARIANT) " & CStr(outVar) -objOleTest.testout_methodBool outVar -Debug.Print "out bool (VARIANT) " & CStr(outVar) -objOleTest.testout_methodShort outVar -Debug.Print "out short (VARIANT) " & CStr(outVar) -objOleTest.testout_methodUShort outVar -Debug.Print "out unsigned short (VARIANT) " & CStr(outVar) -objOleTest.testout_methodLong outVar -Debug.Print "out long (VARIANT) " & CStr(outVar) -objOleTest.testout_methodULong outVar -Debug.Print "out unsigned long (VARIANT) " & CStr(outVar) -objOleTest.testout_methodString outVar -Debug.Print "out string (VARIANT) " & CStr(outVar) -objOleTest.testout_methodChar outVar -Debug.Print "out char (VARIANT) " & CStr(outVar) -objOleTest.testout_methodAny outVar -Debug.Print "out any (VARIANT) " & CStr(outVar) - -'In/Out simple types -outByte = 10 -objOleTest.testinout_methodByte outByte -Debug.Print "inout byte " & CStr(outByte) -outFloat = 3.14 -objOleTest.testinout_methodFloat outFloat -Debug.Print "inout float " & CStr(outFloat) -outDouble = 4.14 -objOleTest.testinout_methodDouble outDouble -Debug.Print "inout double " & CStr(outDouble) -outBool = True -objOleTest.testinout_methodBool outBool -Debug.Print "inout bool " & CStr(outBool) -outInt = 10 -objOleTest.testinout_methodShort outInt -Debug.Print "inout short " & CStr(outInt) -outInt = 20 -objOleTest.testinout_methodUShort outInt -Debug.Print "inout unsignedshort " & CStr(outInt) -outLong = 30 -objOleTest.testinout_methodLong outLong -Debug.Print "inout long " & CStr(outLong) -outLong = 40 -objOleTest.testinout_methodULong outLong -Debug.Print "inout unsigned long " & CStr(outLong) -outString = "this is an in string" -objOleTest.testinout_methodString outString -Debug.Print "inout string " & CStr(outString) - -outString = "this is an in String" -objOleTest.testout_methodChar outString -Debug.Print "out char " & CStr(outString) -outString = "this is another in out string" -objOleTest.testout_methodAny outString -Debug.Print "out Any " & CStr(outString) - - - - - -Dim var As Boolean -var = True -Debug.Print CStr(var) - - -End Sub - -Private Sub Form_Load() - Set objServiceManager = CreateObject("com.sun.star.ServiceManager") - Set objCoreReflection = objServiceManager.createInstance("com.sun.star.reflection.CoreReflection") - - Set objOleTest = objServiceManager.createInstance("oletest.OleTest") - Debug.Print TypeName(objOleTest) -End Sub - -Private Sub Text1_Change() - -End Sub diff --git a/extensions/test/ole/VisualBasic/Module1.bas b/extensions/test/ole/VisualBasic/Module1.bas deleted file mode 100644 index e3ab7b34e46e..000000000000 --- a/extensions/test/ole/VisualBasic/Module1.bas +++ /dev/null @@ -1,743 +0,0 @@ -Attribute VB_Name = "Module1" -Option Explicit - -Private objServiceManager -Private objCoreReflection -Private objOleTest -Private objEventListener - -Sub Main() - Set objServiceManager = CreateObject("com.sun.star.ServiceManager") - Set objCoreReflection = objServiceManager.createInstance("com.sun.star.reflection.CoreReflection") - ' extensions/test/ole/cpnt - Set objOleTest = objServiceManager.createInstance("oletest.OleTest") - ' extensions/test/ole/EventListenerSample/VBEventListener - Set objEventListener = CreateObject("VBasicEventListener.VBEventListener") - Debug.Print TypeName(objOleTest) - -' In Parameter, simple types -'============================================ -Dim tmpVar As Variant -Dim ret As Variant -Dim bError As Boolean -ret = objOleTest.in_methodByte(10) -Debug.Print TypeName(ret) & " " & CStr(ret) -If ret <> 10 Then - MsgBox "error" -End If - -ret = objOleTest.in_methodFloat(3.14) -Debug.Print TypeName(ret) & " " & CStr(ret) -If ret <> 3.14 Then - MsgBox "error" -End If -Dim d As Double 'try conversion -d = 3.14 -ret = objOleTest.in_methodFloat(3.14) -Debug.Print TypeName(ret) & " " & CStr(ret) -If ret <> 3.14 Then - MsgBox "error" -End If - -ret = objOleTest.in_methodDouble(4.14) -Debug.Print TypeName(ret) & " " & CStr(ret) -If ret <> 4.14 Then - MsgBox "error" -End If -Dim s As Single -s = 4.14 -ret = objOleTest.in_methodDouble(s) -Debug.Print TypeName(ret) & " " & CStr(ret) -If (ret < 4.13) And (ret > 4.15) Then - MsgBox "error" -End If - -ret = objOleTest.in_methodBool(True) -Debug.Print TypeName(ret) & " " & CStr(ret) -If ret <> True Then - MsgBox "error" -End If - -ret = objOleTest.in_methodBool(False) -Debug.Print TypeName(ret) & " " & CStr(ret) -If ret <> False Then - MsgBox "error" -End If - -ret = objOleTest.in_methodShort(-10) -Debug.Print TypeName(ret) & " " & CStr(ret) -If ret <> -10 Then - MsgBox "error" -End If -ret = objOleTest.in_methodUShort(10) -Debug.Print TypeName(ret) & " " & CStr(ret) -If ret <> 10 Then - MsgBox "error" -End If -ret = objOleTest.in_methodLong(-1000000) -Debug.Print TypeName(ret) & " " & CStr(ret) -If ret <> -1000000 Then - MsgBox "error" -End If - -ret = objOleTest.in_methodULong(1000000) -Debug.Print TypeName(ret) & " " & CStr(ret) -If ret <> 1000000 Then - MsgBox "error" -End If - -ret = objOleTest.in_methodString("This is a String") -Debug.Print TypeName(ret) & " " & CStr(ret) -If CStr(ret) <> "This is a String" Then - MsgBox "error" -End If - -'different character tests -ret = objOleTest.in_methodChar("A") -Debug.Print TypeName(ret) & " " & CStr(ret) -If ret <> 65 Then - MsgBox "error" -End If -'!!!Function returns char, i.e sal_Unicode which VB converts to String -Dim ret1 As String -ret1 = objOleTest.in_methodChar("A") -Debug.Print TypeName(ret1) & " " & CStr(ret1) -If ret <> 65 Then - MsgBox "error" -End If - -ret1 = objOleTest.in_methodChar(65) -Debug.Print TypeName(ret1) & " " & CStr(ret1) -If ret <> 65 Then - MsgBox "error" -End If - -ret = objOleTest.in_methodAny("input string") -Debug.Print TypeName(ret) & " " & CStr(ret) -If ret <> "input string" Then - MsgBox "error" -End If - -'Call objOleTest.in_methodAll(10, 10.1, 10.111, True, 10, 11, 12, 13, _ -' "A String", "A", "A String in an Any") - -'Out Parameter simple types -'================================================ -Dim outByte As Byte -objOleTest.testout_methodByte outByte -Debug.Print "out byte " & CStr(outByte) -If outByte <> 111 Then - MsgBox "error" -End If - -Dim outFloat As Single -objOleTest.testout_methodFloat outFloat -Debug.Print "out float " & CStr(outFloat) -If outFloat <> 3.14 Then - MsgBox "error" -End If - -Dim outDouble As Double -objOleTest.testout_methodDouble outDouble -Debug.Print "out double " & CStr(outDouble) -If outDouble <> 3.14 Then - MsgBox "error" -End If - -Dim outBool As Boolean -objOleTest.testout_methodBool outBool -Debug.Print "out bool " & CStr(outBool) -If outBool <> True Then - MsgBox "error" -End If - -Dim outInt As Integer -objOleTest.testout_methodShort outInt -Debug.Print "out short " & CStr(outInt) -If outInt <> 222 Then - MsgBox "error" -End If - -objOleTest.testout_methodUShort outInt -Debug.Print "out unsignedshort " & CStr(outInt) -If outInt <> 333 Then - MsgBox "error" -End If - -Dim outLong As Long -objOleTest.testout_methodLong outLong -Debug.Print "out long " & CStr(outLong) -If outLong <> 444 Then - MsgBox "error" -End If - -objOleTest.testout_methodULong outLong -Debug.Print "out unsigned long " & CStr(outLong) -If outLong <> 555 Then - MsgBox "error" -End If - -Dim outString As String -objOleTest.testout_methodString outString -Debug.Print "out string " & CStr(outString) -If outString <> "a little string" Then - MsgBox "error" -End If - -Dim outChar As Integer -objOleTest.testout_methodChar outChar -Debug.Print "out char " & CStr(outChar) -If outChar <> 65 Then - MsgBox "error" -End If - -Dim outCharS As String -objOleTest.testout_methodChar outCharS -Debug.Print "out char (String) " & CStr(outCharS) -If outCharS <> "A" Then - MsgBox "error" -End If - -objOleTest.testout_methodAny outString -Debug.Print "out Any " & CStr(outString) - -'Out Parameter simple types (VARIANT var) -Dim outVar As Variant -objOleTest.testout_methodByte outVar -Debug.Print "out Byte (VARIANT) " & CStr(outVar) -If outVar <> 111 Then - MsgBox "error" -End If - -objOleTest.testout_methodFloat outVar -Debug.Print "out float (VARIANT) " & CStr(outVar) -If outVar <> 3.14 Then - MsgBox "error" -End If - -objOleTest.testout_methodDouble outVar -Debug.Print "out double (VARIANT) " & CStr(outVar) -If outVar <> 3.14 Then - MsgBox "error" -End If - -objOleTest.testout_methodBool outVar -Debug.Print "out bool (VARIANT) " & CStr(outVar) -If outVar <> True Then - MsgBox "error" -End If - -objOleTest.testout_methodShort outVar -Debug.Print "out short (VARIANT) " & CStr(outVar) -If outVar <> 222 Then - MsgBox "error" -End If - -objOleTest.testout_methodUShort outVar -Debug.Print "out unsigned short (VARIANT) " & CStr(outVar) -If outVar <> 333 Then - MsgBox "error" -End If - -objOleTest.testout_methodLong outVar -Debug.Print "out long (VARIANT) " & CStr(outVar) -If outVar <> 444 Then - MsgBox "error" -End If - -objOleTest.testout_methodULong outVar -Debug.Print "out unsigned long (VARIANT) " & CStr(outVar) -If outVar <> 555 Then - MsgBox "error" -End If - -objOleTest.testout_methodString outVar -Debug.Print "out string (VARIANT) " & CStr(outVar) -If outVar <> "a little string" Then - MsgBox "error" -End If - -objOleTest.testout_methodChar outVar -Debug.Print "out char (VARIANT) " & CStr(outVar) -If outVar <> 65 Then - MsgBox "error" -End If - -objOleTest.testout_methodAny outVar -Debug.Print "out any (VARIANT) " & CStr(outVar) -If outVar <> "I am a string in an any" Then - MsgBox "error" -End If - -'In/Out simple types -'============================================ -outByte = 10 -objOleTest.testinout_methodByte outByte -Debug.Print "inout byte " & CStr(outByte) -If outByte <> 11 Then - MsgBox "error" -End If - -outFloat = 3.14 -objOleTest.testinout_methodFloat outFloat -Debug.Print "inout float " & CStr(outFloat) -If (outFloat > 4.15) And (outFloat < 4.13) Then - MsgBox "error" -End If - -outDouble = 4.14 -objOleTest.testinout_methodDouble outDouble -Debug.Print "inout double " & CStr(outDouble) -If outDouble <> 5.14 Then - MsgBox "error" -End If - -outBool = True -objOleTest.testinout_methodBool outBool -Debug.Print "inout bool " & CStr(outBool) -If outBool <> False Then - MsgBox "error" -End If - -outInt = 10 -objOleTest.testinout_methodShort outInt -Debug.Print "inout short " & CStr(outInt) -If outInt <> 11 Then - MsgBox "error" -End If - -outInt = 20 -objOleTest.testinout_methodUShort outInt -Debug.Print "inout unsignedshort " & CStr(outInt) -If outInt <> 21 Then - MsgBox "error" -End If - -outLong = 30 -objOleTest.testinout_methodLong outLong -Debug.Print "inout long " & CStr(outLong) -If outLong <> 31 Then - MsgBox "error" -End If - -outLong = 40 -objOleTest.testinout_methodULong outLong -Debug.Print "inout unsigned long " & CStr(outLong) -If outLong <> 41 Then - MsgBox "error" -End If - -outString = "this is an in string" -objOleTest.testinout_methodString outString -Debug.Print "inout string " & CStr(outString) -If outString <> "this is an in string out string" Then - MsgBox "error" -End If - -'different Char conversions -objOleTest.testout_methodChar outString -Debug.Print "out char (in: String)" & CStr(outString) -If outString <> "A" Then - MsgBox "error" -End If - -objOleTest.testout_methodChar outInt -Debug.Print "out char (in: Int)" & CStr(outInt) -If outInt <> 65 Then - MsgBox "error" -End If - -'-- -outString = "this is another in out string" -objOleTest.testout_methodAny outString -Debug.Print "out Any " & CStr(outString) -If outString <> "I am a string in an any" Then - MsgBox "error" -End If - -'Objects -' -'========================================================== -' COM obj -Dim retObj As Object -'OleTest receives a COM object that implements XEventListener -'OleTest then calls a disposing on the object. The object then will be -'asked if it has been called -objEventListener.setQuiet True -objEventListener.resetDisposing -Set retObj = objOleTest.in_methodInvocation(objEventListener) -ret = objEventListener.disposingCalled -If ret = False Then - MsgBox "Error" -End If - -'The returned object should be objEventListener, test it by calling disposing -' takes an IDispatch as Param ( EventObject).To provide a TypeMismatch -'we put in another IDispatch -retObj.resetDisposing -retObj.disposing objEventListener -If retObj.disposingCalled = False Then - MsgBox "Error" -End If - - -' out param gives out the OleTestComponent -objOleTest.testout_methodXInterface retObj -outVar = Null -retObj.testout_methodAny outVar -Debug.Print "test out Interface " & CStr(outVar) -If outVar <> "I am a string in an any" Then - MsgBox "error" -End If - -'in out -' in: UNO object, the same is expected as out param -' the function expects OleTest as parameter and sets a value -Dim objOleTest2 As Object -Set objOleTest2 = objServiceManager.createInstance("oletest.OleTest") -'Set a value -objOleTest2.AttrAny2 = "VBString " -objOleTest.testinout_methodXInterface2 objOleTest2 -tmpVar = Null -tmpVar = objOleTest2.AttrAny2 -Debug.Print "in: Uno out: the same object // " & CStr(tmpVar) -If tmpVar <> "VBString this string was written in the UNO component to the inout pararmeter" Then - MsgBox "error" -End If - - -'create a struct -Dim structClass As Object -Set structClass = objCoreReflection.forName("oletest.SimpleStruct") -Dim structInstance As Object -structClass.CreateObject structInstance -structInstance.message = "Now we are in VB" -Debug.Print "struct out " & structInstance.message -If structInstance.message <> "Now we are in VB" Then - MsgBox "error" -End If - -'put the struct into OleTest. The same struct will be returned with an added String -Dim structRet As Object -Set structRet = objOleTest.in_methodStruct(structInstance) -Debug.Print "struct in - return " & structRet.message -If structRet.message <> "Now we are in VBThis string was set in OleTest" Then - MsgBox "error" -End If - -'inout later - -'Arrays -'======================================== -Dim arrLong(2) As Long -Dim arrObj(2) As Object -Dim countvar As Long -For countvar = 0 To 2 - arrLong(countvar) = countvar + 10 - Debug.Print countvar - Set arrObj(countvar) = CreateObject("VBasicEventListener.VBEventListener") - arrObj(countvar).setQuiet True -Next - -'Arrays always contain VARIANTS -Dim seq() As Variant -seq = objOleTest.methodLong(arrLong) - -For countvar = 0 To 2 - Debug.Print CStr(seq(countvar)) - If arrLong(countvar) <> seq(countvar) Then - MsgBox "error" - End If -Next -seq = objOleTest.methodXInterface(arrObj) -For countvar = 0 To 2 - Dim tmp As Object - seq(countvar).resetDisposing - seq(countvar).disposing tmp - If seq(countvar).disposingCalled = False Then - MsgBox "Error" - End If -Next - -'Array containing interfaces (element type is VT_DISPATCH) -Dim arEventListener(2) As Object -For countvar = 0 To 2 - Set arEventListener(countvar) = CreateObject("VBasicEventListener.VBEventListener") - arEventListener(countvar).setQuiet True -Next - -'The function calls disposing on the listeners -seq = objOleTest.methodXEventListeners(arEventListener) -Dim count -For countvar = 0 To 2 - If arEventListener(countvar).disposingCalled = False Then - MsgBox "Error" - End If -Next -'Array containing interfaces (element type is VT_VARIANT which contains VT_DISPATCH -Dim arEventListener2(2) As Variant -For countvar = 0 To 2 - Set arEventListener2(countvar) = CreateObject("VBasicEventListener.VBEventListener") - arEventListener2(countvar).setQuiet True -Next -seq = objOleTest.methodXEventListeners(arEventListener2) -For countvar = 0 To 2 - If arEventListener2(countvar).disposingCalled = False Then - MsgBox "Error" - End If -Next - -'Variant containing Array containing interfaces (element type is VT_VARIANT which contains VT_DISPATCH -Dim arEventListener3(2) As Variant -For countvar = 0 To 2 - Dim var As Variant - Set arEventListener3(countvar) = CreateObject("VBasicEventListener.VBEventListener") - arEventListener3(countvar).setQuiet True -Next -Dim varContAr As Variant -varContAr = arEventListener3 -seq = objOleTest.methodXEventListeners(varContAr) -For countvar = 0 To 2 - If arEventListener3(countvar).disposingCalled = False Then - MsgBox "Error" - End If -Next - -'Get a sequence created in UNO, out param is Variant ( VT_BYREF|VT_VARIANT) -Dim seqX As Variant - -objOleTest.testout_methodSequence seqX -Dim key -For Each key In seqX - Debug.Print CStr(seqX(key)) - If seqX(key) <> key Then - MsgBox "error" - End If -Next -'Get a sequence created in UNO, out param is array Variant ( VT_BYREF|VT_VARIANT|VT_ARRAY) -Dim seqX2() As Variant -objOleTest.testout_methodSequence seqX2 - -For Each key In seqX2 - Debug.Print CStr(seqX2(key)) -Next - -'pass it to UNO and get it back -Dim seq7() As Variant -seq7 = objOleTest.methodLong(seqX) -Dim key2 -For Each key2 In seq7 - Debug.Print CStr(seq7(key2)) - If seqX2(key) <> key Then - MsgBox "error" - End If -Next - -'in out Array -' arrLong is Long Array -Dim inoutVar(2) As Variant - -For countvar = 0 To 2 - inoutVar(countvar) = countvar + 10 -Next - -objOleTest.testinout_methodSequence inoutVar - -countvar = 0 -For countvar = 0 To 2 - Debug.Print CStr(inoutVar(countvar)) - If inoutVar(countvar) <> countvar + 11 Then - MsgBox "error" - End If -Next - -'Multidimensional array -'============================================================ -' Sequence< Sequence<long> > methodSequence( Sequence< Sequence long> >) -' Real multidimensional array Array -' 9 is Dim 1 (least significant) with C API -Dim mulAr(9, 1) As Long -Dim i As Long, j As Long -For i = 0 To 1 - For j = 0 To 9 - mulAr(j, i) = i * 10 + j - Next j -Next i - -Dim resMul As Variant -resMul = objOleTest.methodSequence(mulAr) - -Dim countDim1 As Long -Dim countDim2 As Long -For countDim2 = 0 To 1 - Dim arr - arr = resMul(countDim2) - For countDim1 = 0 To 9 - Debug.Print arr(countDim1) - If arr(countDim1) <> mulAr(countDim1, countDim2) Then - MsgBox "Error Multidimensional Array" - End If - Next countDim1 -Next countDim2 -IsArray (resMul) - -'Array of VARIANTs containing arrays -Dim mulAr2(1) As Variant -Dim arr2(9) As Long -For i = 0 To 1 - ' Dim arr(9) As Long - For j = 0 To 9 - arr2(j) = i * 10 + j - Next j - mulAr2(i) = arr2 -Next i - -resMul = 0 -resMul = objOleTest.methodSequence(mulAr2) -arr = 0 -For countDim2 = 0 To 1 - arr = resMul(countDim2) - tmpVar = mulAr2(countDim2) - For countDim1 = 0 To 9 - Debug.Print arr(countDim1) - If arr(countDim1) <> tmpVar(countDim1) Then - MsgBox "Error Multidimensional Array" - End If - Next countDim1 -Next countDim2 - -'Array containing interfaces (element type is VT_DISPATCH) -Dim arArEventListener(1, 2) As Object -For i = 0 To 1 - For j = 0 To 2 - Set arArEventListener(i, j) = CreateObject("VBasicEventListener.VBEventListener") - arArEventListener(i, j).setQuiet True - Next -Next -'The function calls disposing on the listeners -seq = objOleTest.methodXEventListenersMul(arArEventListener) -For i = 0 To 1 - For j = 0 To 2 - If arArEventListener(i, j).disposingCalled = False Then - MsgBox "Error" - End If - Next -Next - -'Array containing interfaces (element type is VT_VARIANT containing VT_DISPATCH) -Dim arArEventListener2(1, 2) As Variant -For i = 0 To 1 - For j = 0 To 2 - Set arArEventListener2(i, j) = CreateObject("VBasicEventListener.VBEventListener") - arArEventListener2(i, j).setQuiet True - Next -Next -'The function calls disposing on the listeners -seq = objOleTest.methodXEventListenersMul(arArEventListener2) -For i = 0 To 1 - For j = 0 To 2 - If arArEventListener2(i, j).disposingCalled = False Then - MsgBox "Error" - End If - Next -Next - -' SAFEARRAY of VARIANTS containing SAFEARRAYs -'The ultimate element type is VT_DISPATCH ( XEventListener) -Dim arEventListener4(1) As Variant -Dim seq1(2) As Object -Dim seq2(2) As Object -For i = 0 To 2 - Set seq1(i) = CreateObject("VBasicEventListener.VBEventListener") - Set seq2(i) = CreateObject("VBasicEventListener.VBEventListener") - seq1(i).setQuiet True - seq2(i).setQuiet True -Next -arEventListener4(0) = seq1 -arEventListener4(1) = seq2 -'The function calls disposing on the listeners -seq = objOleTest.methodXEventListenersMul(arEventListener4) -For i = 0 To 2 - If seq1(i).disposingCalled = False Or seq2(i).disposingCalled = False Then - MsgBox "Error" - End If -Next - -'Bridge_GetStruct -'======================================================== -'Try to create a hidden document -Dim objPropValue -Set objPropValue = objOleTest.Bridge_GetStruct("com.sun.star.beans.PropertyValue") -'Set the members. If this fails then there is an Error -objPropValue.Name = "hidden" -objPropValue.Handle = -1 -objPropValue.Value = True - -'create a hidden document -'Create the Desktop -Dim objDesktop As Object -Set objDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop") -'Open a new empty writer document -Dim args(0) As Object -Set args(0) = objPropValue -Dim objDocument As Object -Set objDocument = objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args()) -'Create a text object -Dim objText As Object -Set objText = objDocument.GetText - -'Bridge_ImplementedInterfaces -'================================================= -' call an UNO function that takes an XEventListener interface -'We provide a COM implementation (IDispatch) as EventListener -objEventListener.resetDisposing -objDocument.addEventListener objEventListener -objDocument.dispose -If objEventListener.disposingCalled = False Then - MsgBox "Error" -End If - - -'Bridge_GetValueObject -'================================================== -Dim objVal As Object -Set objVal = objOleTest.Bridge_GetValueObject() -Dim arrByte(9) As Byte -For countvar = 0 To 9 - arrByte(countvar) = countvar -Next countvar - -objVal.Set "[]byte", arrByte -ret = 0 -ret = objOleTest.methodByte(objVal) -'Test if ret is the same array - -key = 0 -For Each key In ret - If ret(key) <> arrByte(key) Then - MsgBox "Error" - End If - Debug.Print ret(key) -Next key - - -objVal.InitInOutParam "byte", 10 -objOleTest.testinout_methodByte objVal - -ret = 0 -ret = objVal.Get() -Debug.Print ret -If ret <> 11 Then - MsgBox "error" -End If - -objVal.InitOutParam -objOleTest.testout_methodChar objVal 'Returns 'A' (65) -ret = 0 -ret = objVal.Get() -Debug.Print ret -If ret <> 65 Then - MsgBox "error" -End If - -End Sub diff --git a/extensions/test/ole/VisualBasic/Project1.vbp b/extensions/test/ole/VisualBasic/Project1.vbp deleted file mode 100644 index ff4e083abae0..000000000000 --- a/extensions/test/ole/VisualBasic/Project1.vbp +++ /dev/null @@ -1,34 +0,0 @@ -Type=Exe -Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation -Module=Module1; Module1.bas -Startup="Sub Main" -HelpFile="" -ExeName32="Project1.exe" -Command32="" -Name="Project1" -HelpContextID="0" -CompatibleMode="0" -MajorVer=1 -MinorVer=0 -RevisionVer=0 -AutoIncrementVer=0 -ServerSupportFiles=0 -VersionCompanyName="StarOffice" -CompilationType=0 -OptimizationType=0 -FavorPentiumPro(tm)=0 -CodeViewDebugInfo=0 -NoAliasing=0 -BoundsCheck=0 -OverflowCheck=0 -FlPointCheck=0 -FDIVCheck=0 -UnroundedFP=0 -StartMode=0 -Unattended=0 -Retained=0 -ThreadPerObject=0 -MaxNumberOfThreads=1 - -[MS Transaction Server] -AutoRefresh=1 diff --git a/extensions/test/ole/VisualBasic/Project1.vbw b/extensions/test/ole/VisualBasic/Project1.vbw deleted file mode 100644 index ee3bf20e4e2b..000000000000 --- a/extensions/test/ole/VisualBasic/Project1.vbw +++ /dev/null @@ -1 +0,0 @@ -Module1 = 27, 27, 882, 898, diff --git a/extensions/test/ole/VisualBasic/readme.txt b/extensions/test/ole/VisualBasic/readme.txt deleted file mode 100644 index 22add1fb2141..000000000000 --- a/extensions/test/ole/VisualBasic/readme.txt +++ /dev/null @@ -1,18 +0,0 @@ -Runs a test written in VisualBasic. If no error message appears then the test was ok. - -Requirements: -Installed office -Component oletest.Oletest (extensions/test/ole/cpnt) -Component VBasicEventListener.VBEventListener (extensions/test/ole/EventListenerSample/VBEventListener - - -OleTest is a UNO component. It needs to be registered with the office rdb. Also there are additional -types (oletest.rdb in wntmsci7/bin/) which must be merged with the rdb. -VBEventListener is an ActiveX component. The directory contains a Visual Basic Project and also -the binary VBasicEventListener.dll. This is necessary because the dll contains the type library -which is needed by VB. Otherwise VB would generate a new CLSID on a new build. -The dll must be registered on the system. This is done by -regsvr32 VBasicEventListener.dll -or -by a rebuild of the project. - diff --git a/extensions/test/ole/cpptest/cpptest.cpp b/extensions/test/ole/cpptest/cpptest.cpp index 055255e35502..28f6db1fba6e 100644 --- a/extensions/test/ole/cpptest/cpptest.cpp +++ b/extensions/test/ole/cpptest/cpptest.cpp @@ -2,9 +2,9 @@ * * $RCSfile: cpptest.cpp,v $ * - * $Revision: 1.2 $ + * $Revision: 1.3 $ * - * last change: $Author: jl $ $Date: 2000-10-12 14:29:52 $ + * last change: $Author: hr $ $Date: 2003-03-25 16:04:52 $ * * The Contents of this file are made available subject to the terms of * either of the following licenses @@ -101,13 +101,55 @@ HRESULT doTest() CComPtr<IUnknown> spUnkMgr; -// GUID idOffice= {0x3ECF78F0,0xB149,0x11D2,{0x8E,0xBE,0x00,0x10,0x5A,0xD8,0x48,0xAF}}; -// IUnknown * pUnk; -// hr= CoCreateInstance( idOffice, NULL, CLSCTX_ALL, __uuidof(IUnknown), (void**) &pUnk); - if( FAILED(hr= spUnkMgr.CoCreateInstance(L"com.sun.star.ServiceManager"))) return hr; + IDispatchPtr starManager; + // var starManager=new ActiveXObject("com.sun.star.ServiceManager"); + hr= starManager.CreateInstance(_T("com.sun.star.ServiceManager")); + // var starDesktop=starManager.createInstance("com.sun.star.frame.Desktop"); + _variant_t varP1(L"com.sun.star.frame.Desktop"); + _variant_t varRet; + CComDispatchDriver dispMgr(starManager); + hr= dispMgr.Invoke1(L"createInstance", &varP1, &varRet); + CComDispatchDriver dispDesk(varRet.pdispVal); + varP1.Clear(); + varRet.Clear(); + // var bOK=new Boolean(true); + + // var noArgs=new Array(); + // var oDoc=starDesktop.loadComponentFromURL("private:factory/swriter", "Test", 40, noArgs); + IDispatchPtr oDoc; + SAFEARRAY* ar= SafeArrayCreateVector(VT_DISPATCH, 0, 0); + _variant_t args[4]; + args[3]= _variant_t(L"private:factory/swriter"); + args[2]= _variant_t(L"Test"); + args[1]= _variant_t((long) 40); + args[0].vt= VT_ARRAY | VT_DISPATCH;; + args[0].parray= ar; + hr= dispDesk.InvokeN(L"loadComponentFromURL", args, 4, &varRet); + CComDispatchDriver dispDoc(varRet.pdispVal); + varRet.Clear(); + + //var oFieldMaster = oDoc.createInstance("com.sun.star.text.FieldMaster.Database"); + varP1= _variant_t(L"com.sun.star.text.FieldMaster.Database"); + hr= dispDoc.Invoke1(L"createInstance", &varP1, &varRet); + CComDispatchDriver dispFieldMaster(varRet.pdispVal); + varP1.Clear(); + varRet.Clear(); + + //var oObj = oDoc.createInstance("com.sun.star.text.TextField.Database"); + varP1= _variant_t(L"com.sun.star.text.TextField.Database"); + hr= dispDoc.Invoke1(L"createInstance", &varP1, &varRet); + CComDispatchDriver dispField(varRet.pdispVal); + varP1.Clear(); + varRet.Clear(); + + //oObj.attachTextFieldMaster(oFieldMaster); + varP1= _variant_t(dispFieldMaster); + hr= dispField.Invoke1(L"attachTextFieldMaster", &varP1); + + return S_OK; } diff --git a/extensions/test/ole/cpptest/cpptest.cxx b/extensions/test/ole/cpptest/cpptest.cxx new file mode 100644 index 000000000000..36187252bfd7 --- /dev/null +++ b/extensions/test/ole/cpptest/cpptest.cxx @@ -0,0 +1,163 @@ +/************************************************************************* + * + * $RCSfile: cpptest.cxx,v $ + * + * $Revision: 1.2 $ + * + * last change: $Author: hr $ $Date: 2003-03-25 16:04:53 $ + * + * The Contents of this file are made available subject to the terms of + * either of the following licenses + * + * - GNU Lesser General Public License Version 2.1 + * - Sun Industry Standards Source License Version 1.1 + * + * Sun Microsystems Inc., October, 2000 + * + * GNU Lesser General Public License Version 2.1 + * ============================================= + * Copyright 2000 by Sun Microsystems, Inc. + * 901 San Antonio Road, Palo Alto, CA 94303, USA + * + * This library is free software; you can redistribute it and/or + * modify it under the terms of the GNU Lesser General Public + * License version 2.1, as published by the Free Software Foundation. + * + * This library is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + * Lesser General Public License for more details. + * + * You should have received a copy of the GNU Lesser General Public + * License along with this library; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place, Suite 330, Boston, + * MA 02111-1307 USA + * + * + * Sun Industry Standards Source License Version 1.1 + * ================================================= + * The contents of this file are subject to the Sun Industry Standards + * Source License Version 1.1 (the "License"); You may not use this file + * except in compliance with the License. You may obtain a copy of the + * License at http://www.openoffice.org/license.html. + * + * Software provided under this License is provided on an "AS IS" basis, + * WITHOUT WARRUNTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING, + * WITHOUT LIMITATION, WARRUNTIES THAT THE SOFTWARE IS FREE OF DEFECTS, + * MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING. + * See the License for the specific provisions governing your rights and + * obligations concerning the Software. + * + * The Initial Developer of the Original Code is: Sun Microsystems, Inc.. + * + * Copyright: 2000 by Sun Microsystems, Inc. + * + * All Rights Reserved. + * + * Contributor(s): _______________________________________ + * + * + ************************************************************************/ +// cpptest.cpp : Defines the entry point for the console application. +// + +#if _MSC_VER > 1000 +#pragma once +#endif // _MSC_VER > 1000 +#include <comdef.h> +#include <tchar.h> +#include<atlbase.h> +CComModule _Module; +#include<atlcom.h> +#include<atlimpl.cpp> + +//CComModule _Module; +BEGIN_OBJECT_MAP(ObjectMap) +END_OBJECT_MAP() + + +HRESULT doTest(); + +int main(int argc, char* argv[]) +{ + HRESULT hr; + if( FAILED( hr=CoInitialize(NULL))) + { + _tprintf(_T("CoInitialize failed \n")); + return -1; + } + + + _Module.Init( ObjectMap, GetModuleHandle( NULL)); + + if( FAILED(hr=doTest())) + { + _com_error err( hr); + const TCHAR * errMsg= err.ErrorMessage(); + MessageBox( NULL, errMsg, "Test failed", MB_ICONERROR); + } + + + _Module.Term(); + CoUninitialize(); + return 0; +} + +HRESULT doTest() +{ + HRESULT hr; + CComPtr<IUnknown> spUnkMgr; + + + if( FAILED(hr= spUnkMgr.CoCreateInstance(L"com.sun.star.ServiceManager"))) + return hr; + + IDispatchPtr starManager; + // var starManager=new ActiveXObject("com.sun.star.ServiceManager"); + hr= starManager.CreateInstance(_T("com.sun.star.ServiceManager")); + // var starDesktop=starManager.createInstance("com.sun.star.frame.Desktop"); + _variant_t varP1(L"com.sun.star.frame.Desktop"); + _variant_t varRet; + CComDispatchDriver dispMgr(starManager); + hr= dispMgr.Invoke1(L"createInstance", &varP1, &varRet); + CComDispatchDriver dispDesk(varRet.pdispVal); + varP1.Clear(); + varRet.Clear(); + // var bOK=new Boolean(true); + + // var noArgs=new Array(); + // var oDoc=starDesktop.loadComponentFromURL("private:factory/swriter", "Test", 40, noArgs); + IDispatchPtr oDoc; + SAFEARRAY* ar= SafeArrayCreateVector(VT_DISPATCH, 0, 0); + _variant_t args[4]; + args[3]= _variant_t(L"private:factory/swriter"); + args[2]= _variant_t(L"Test"); + args[1]= _variant_t((long) 40); + args[0].vt= VT_ARRAY | VT_DISPATCH;; + args[0].parray= ar; + hr= dispDesk.InvokeN(L"loadComponentFromURL", args, 4, &varRet); + CComDispatchDriver dispDoc(varRet.pdispVal); + varRet.Clear(); + + //var oFieldMaster = oDoc.createInstance("com.sun.star.text.FieldMaster.Database"); + varP1= _variant_t(L"com.sun.star.text.FieldMaster.Database"); + hr= dispDoc.Invoke1(L"createInstance", &varP1, &varRet); + CComDispatchDriver dispFieldMaster(varRet.pdispVal); + varP1.Clear(); + varRet.Clear(); + + //var oObj = oDoc.createInstance("com.sun.star.text.TextField.Database"); + varP1= _variant_t(L"com.sun.star.text.TextField.Database"); + hr= dispDoc.Invoke1(L"createInstance", &varP1, &varRet); + CComDispatchDriver dispField(varRet.pdispVal); + varP1.Clear(); + varRet.Clear(); + + //oObj.attachTextFieldMaster(oFieldMaster); + varP1= _variant_t(dispFieldMaster); + hr= dispField.Invoke1(L"attachTextFieldMaster", &varP1); + + + return S_OK; + +} diff --git a/extensions/test/ole/cpptest/makefile.mk b/extensions/test/ole/cpptest/makefile.mk new file mode 100644 index 000000000000..65e6824ab459 --- /dev/null +++ b/extensions/test/ole/cpptest/makefile.mk @@ -0,0 +1,137 @@ +#************************************************************************* +# +# $RCSfile: makefile.mk,v $ +# +# $Revision: 1.2 $ +# +# last change: $Author: hr $ $Date: 2003-03-25 16:04:53 $ +# +# The Contents of this file are made available subject to the terms of +# either of the following licenses +# +# - GNU Lesser General Public License Version 2.1 +# - Sun Industry Standards Source License Version 1.1 +# +# Sun Microsystems Inc., October, 2000 +# +# GNU Lesser General Public License Version 2.1 +# ============================================= +# Copyright 2000 by Sun Microsystems, Inc. +# 901 San Antonio Road, Palo Alto, CA 94303, USA +# +# This library is free software; you can redistribute it and/or +# modify it under the terms of the GNU Lesser General Public +# License version 2.1, as published by the Free Software Foundation. +# +# This library is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# Lesser General Public License for more details. +# +# You should have received a copy of the GNU Lesser General Public +# License along with this library; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, +# MA 02111-1307 USA +# +# +# Sun Industry Standards Source License Version 1.1 +# ================================================= +# The contents of this file are subject to the Sun Industry Standards +# Source License Version 1.1 (the "License"); You may not use this file +# except in compliance with the License. You may obtain a copy of the +# License at http://www.openoffice.org/license.html. +# +# Software provided under this License is provided on an "AS IS" basis, +# WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, +# WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS, +# MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING. +# See the License for the specific provisions governing your rights and +# obligations concerning the Software. +# +# The Initial Developer of the Original Code is: Sun Microsystems, Inc. +# +# Copyright: 2000 by Sun Microsystems, Inc. +# +# All Rights Reserved. +# +# Contributor(s): _______________________________________ +# +# +# +#************************************************************************* + +PRJ=..$/..$/..$/ + +PRJNAME=extensions +TARGET=cppTest +TARGETTYPE=CUI +LIBTARGET=NO + +#USE_DEFFILE= TRUE +NO_BSYMBOLIC= TRUE +ENABLE_EXCEPTIONS=TRUE +BOOTSTRAP_SERVICE=FALSE + +# --- Settings --- + +.INCLUDE : svpre.mk +.INCLUDE : settings.mk +.INCLUDE : sv.mk + +# --- Files --- + +#UNOUCRDEP= $(SOLARBINDIR)$/applicat.rdb +#UNOUCRRDB= $(SOLARBINDIR)$/applicat.rdb + +.IF "$(BOOTSTRAP_SERVICE)" == "TRUE" +UNOUCROUT= $(OUT)$/inc$/comprehensive +INCPRE+= $(OUT)$/inc$/comprehensive +CPPUMAKERFLAGS += -C +.ELSE +UNOUCROUT= $(OUT)$/inc +INCPRE+= $(OUT)$/inc -I$(SOLARINCDIR)$/external$/atl +.ENDIF + +UNOTYPES= com.sun.star.bridge.ModelDependent \ + com.sun.star.lang.XMultiServiceFactory \ + com.sun.star.bridge.XBridgeSupplier2 + + + +.IF "$(depend)" != "" + +.ENDIF # depend + +APP1TARGET= $(TARGET) +APP1OBJS= $(OBJ)$/cppTest.obj +LIBCMT=msvcrt.lib + + +APP1STDLIBS= \ + $(SALLIB) \ + $(CPPUHELPERLIB) \ + $(CPPULIB) \ + user32.lib \ + kernel32.lib \ + ole32.lib \ + oleaut32.lib \ + uuid.lib \ + comdlg32.lib \ + comsupp.lib + + + +#gdi32.lib winspool.lib advapi32.lib shell32.lib odbc32.lib odbccp32.lib + + +.IF "$(GUI)"=="WNT" +APP1STDLIBS += $(LIBCIMT) +APP2STDLIBS += $(LIBCIMT) +.ENDIF + +APP1DEF= $(MISC)\$(APP1TARGET).def + +# --- Targets --- + +.INCLUDE : target.mk + |