summaryrefslogtreecommitdiff
path: root/extensions/test/ole/DCOM/dcom_test
diff options
context:
space:
mode:
Diffstat (limited to 'extensions/test/ole/DCOM/dcom_test')
-rw-r--r--extensions/test/ole/DCOM/dcom_test/Module1.bas38
-rw-r--r--extensions/test/ole/DCOM/dcom_test/dcom_test.vbp37
-rw-r--r--extensions/test/ole/DCOM/dcom_test/dcom_test.vbw1
-rw-r--r--extensions/test/ole/DCOM/dcom_test/readme.txt5
4 files changed, 0 insertions, 81 deletions
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 c41c3a073..000000000
--- 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 5b896434f..000000000
--- 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 dfe34e0d1..000000000
--- 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 215d6f409..000000000
--- 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