You can find some demo OOo BASIC code here:

http://util.openoffice.org/source/browse/util/extensions/test/ole/StarBasic_OleClient/

File: oleclient.bas

The files for automation component are here:
http://util.openoffice.org/source/browse/util/extensions/test/ole/AxTestComponents/

-- Joachim


[EMAIL PROTECTED] schrieb:
Thank you for your answer.

I actually tried the data types we use int, double, Variant_Bool. They work fine. We do not use VARIANT or SAFEARRAY to limit porting effort to other platforms. The String type does not work correctly. Do you use a BSTR in Unicode character set? Where can I find information about the string data type used in ooBasic? Is there an example in the OpenOffice documentation about the use of the string type during library calls?

What would be a simple example of ?functions in one IDispatch object?? The examples with IDispatch in the openOffice documentation and development kit are using the syntax like mgr = getProcessServiceManager() o = mgr.createInstance("org.openoffice.sheet.addin.RNG")

from the simple Calc Addin Example (http://wiki.services.openoffice.org/wiki/Calc/Add-In/Simple_Calc_Add-In)

How would the IDL with one dispatch object like in my case.
Thanks in advance for your help.

Jürgen
Joachim Lingner <[EMAIL PROTECTED]> wrote on 10/17/2007 08:53:29 AM:



I have no idea what the limits are regarding calling functions directly from OOo Basic. However, this would probably only work with argument types which are similar to UNO types. In other words, if a function takes VARIANTs then this will not work. There is the possibility of calling automation objects from OOo Basic. That is, you could put all your functions in one IDispatch object and use it then from Basic.

I think there was still a problem with multidimensional arrays. Apart from that this could work.

Joachim

[EMAIL PROTECTED] schrieb:
Thank you for your help.

Is it possible to port the example using the OLE/COM Uno bridge and
still
having the call in ooBasic of the function unchanged like Outval = fplus( inval) This would at least limit the changes to do the vba code during the
port
to OpenOffice.

Is there another way than using the VBA statement Declare Function Lib
to
declare C++ functions in ooBasic. I will have to port over 200.



Regards

Jürgen

Joachim Lingner <[EMAIL PROTECTED]> wrote on 10/15/2007 04:49:53
PM:
Importing a type library is not supported.

Joachim

[EMAIL PROTECTED] wrote:
Hello,

I am porting a C++ COM application that is called from Excel via VBA

to
application that is called from Calc via ooBasic.

I am new to the OpenOffice environment and have some basic questions

to
learn the way ooBasic uses the OLE/COM Uno bridge.

Here is my C++ example:

MYSHAREDLIB_API double __stdcall fplus (double invalue)
{
        return invalue + 1.0;
}

And here the type library file .odl:

import "oaidl.idl";
import "ocidl.idl";
      [
         uuid(7D4B1C8E-69AF-4082-90CF-E07FD904A4DA),
         helpstring("MySharedLib"),
         lcid(0x0409),
         version(1.5)
      ]
      library MySharedLib
      {
      [
         helpstring("Functions exported by MySharedLib.dll"),
         version(1.5),
         dllname("MySharedLib.dll")
      ]
      module MSL
              {
[ helpstring("fplus"), entry("fplus") ]
double
fplus(  [in]  double invalue  );
}
}

I can call this .dll in Calc using the VBA equivalent of Declare
Function
Declare Function fplus Lib ?MySharedLib.dll? (ByVal invalue as
Double) as
Double

With a call example like this in the ooBasic code
Outval = fplus( inval)

How can I import the information about fplus using the type library
.tlb ?
In Excel I can use the Tools -> References? Menu to add the
typelibrary
information to my Excel vba code as a reference.




Regards
JJ
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]




---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to