Hi,
Due to the QRmakerPro OLE OCX ActiveX problem thread I did some experimenting. I wanted to know something more about the BrssCom.tlb problem contributed by Darren Farmer.
Now I know it has to do with the exposure of the members and properties of a .NET Class to a COM callable device as Alpha Five or Word/Excel, etc.
I followed the next line: MSDN
I made the example mentioned here an got a simple Automation object in Visual Studio 2005 that I can use from Alpha Five.
Lets check if Word can access the object.
Yes, the library is present and the objects, members and properties.
Ok, lets check if Alpha can see it.
Yes. And do some testing in the interactive window.
So, lets build the example in Xbasic.
It works!
Now some Xbasic code. First the OnInit code for the form.
The convert to Celsius button code:
The convert to Fahrenheit button code:
Nice project. Now I can make my own Automation/ActiveX objects and use it from whatever I want.
Due to the QRmakerPro OLE OCX ActiveX problem thread I did some experimenting. I wanted to know something more about the BrssCom.tlb problem contributed by Darren Farmer.
Now I know it has to do with the exposure of the members and properties of a .NET Class to a COM callable device as Alpha Five or Word/Excel, etc.
I followed the next line: MSDN
I made the example mentioned here an got a simple Automation object in Visual Studio 2005 that I can use from Alpha Five.
Lets check if Word can access the object.
Yes, the library is present and the objects, members and properties.
Ok, lets check if Alpha can see it.
Yes. And do some testing in the interactive window.
So, lets build the example in Xbasic.
It works!
Now some Xbasic code. First the OnInit code for the form.
Code:
dim shared moTempClass as P moTempClass := ole.Create("physserver2.net_temperature") 'The interface class can't be referenced. 'dim shared moTemp as P 'moTemp := moTempClass.iTemperature
Code:
moTempClass.fahrenheit := var->txtFahrenheit var->txtCelsius := motempclass.getcelsius() :frmPhys.refresh_fields()
Code:
moTempClass.celsius := var->txtCelsius var->txtFahrenheit := motempclass.getfahrenheit() :frmPhys.refresh_fields()
Comment