Hi,
I have a problem using OLE automation which need a "struct" definition:
This is a small portion of VB code I wish to translate to use with Progress 4GL:
Sub usePropertySet()
/* QUESTION: What is the equivalent of this déclaration in 4GL ?*/
Dim starStruct(1) As Object
/* QUESTION How can I reproduce the following mechanism ? */
' create a object for VBA, from the first element
Call starStructClass.CreateObject(starStruct(1))
' Set the values
starStruct(0).Name = "FilterName"
starStruct(0).Value = "swriter: Rich Text Format"
' create a object for VBA, from the first element
Call starStructClass.CreateObject(starStruct(1))
starStruct(1).Name = "ReadOnly"
starStruct(1).Value = True
' load the document
Set starDocument = starDesktop.loadComponentfromURL("c:\MyRTF.rtf", "_blank", 0, starStruct())
End Sub
I have to developp OLE functionalities with StarOffice (Office suite by Sun). I use to developp this kind of program easyly with Microsoft Office, but with Star Office, I just can launch the application and create a desktop, but I can not open or create a document because StarOffice functions wait for a Struct parameter...
Any Ideas or work around ?
Thanks in advance !
André.
I have a problem using OLE automation which need a "struct" definition:
This is a small portion of VB code I wish to translate to use with Progress 4GL:
Sub usePropertySet()
/* QUESTION: What is the equivalent of this déclaration in 4GL ?*/
Dim starStruct(1) As Object
/* QUESTION How can I reproduce the following mechanism ? */
' create a object for VBA, from the first element
Call starStructClass.CreateObject(starStruct(1))
' Set the values
starStruct(0).Name = "FilterName"
starStruct(0).Value = "swriter: Rich Text Format"
' create a object for VBA, from the first element
Call starStructClass.CreateObject(starStruct(1))
starStruct(1).Name = "ReadOnly"
starStruct(1).Value = True
' load the document
Set starDocument = starDesktop.loadComponentfromURL("c:\MyRTF.rtf", "_blank", 0, starStruct())
End Sub
I have to developp OLE functionalities with StarOffice (Office suite by Sun). I use to developp this kind of program easyly with Microsoft Office, but with Star Office, I just can launch the application and create a desktop, but I can not open or create a document because StarOffice functions wait for a Struct parameter...
Any Ideas or work around ?
Thanks in advance !
André.