diff options
Diffstat (limited to 'extensions/test/ole/DCOM/dcom_test')
-rw-r--r-- | extensions/test/ole/DCOM/dcom_test/Module1.bas | 38 | ||||
-rw-r--r-- | extensions/test/ole/DCOM/dcom_test/dcom_test.vbp | 37 | ||||
-rw-r--r-- | extensions/test/ole/DCOM/dcom_test/dcom_test.vbw | 1 | ||||
-rw-r--r-- | extensions/test/ole/DCOM/dcom_test/readme.txt | 5 |
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 |