Currently I'm tranferring some of my C++ programs to PB9 to avoid bloat.
One of them is a large DWG/DXF/DWF converter from/to MCD translator named mcAcon.dll.
I already managed generating a COM typelib extraction with PB9 COM browser, consisting of 10246 Lines.
I'm including some of the typical lines.
The short descripted com handling syntax in the PB help file seems not to be enough to generate a valid code including this type library extraction.
So, what do You imagine has to be the code syntax in this case?
One of them is a large DWG/DXF/DWF converter from/to MCD translator named mcAcon.dll.
I already managed generating a COM typelib extraction with PB9 COM browser, consisting of 10246 Lines.
I'm including some of the typical lines.
The short descripted com handling syntax in the PB help file seems not to be enough to generate a valid code including this type library extraction.
So, what do You imagine has to be the code syntax in this case?
Code:
' Generated by: PowerBASIC COM Browser v.2.00.0058 ' DateTime : 21.01.2009 at 20:43 ' ------------------------------------------------ ' Library Name: DWGdirectX ' Library File: C:\Programme\MCADD\addon\dwgdirectx\DWGdirectX_2.06_6.dll ' Description : DWGdirectX 2.6 Type Library ' GUID : {EE2303F2-4EF6-42F6-92AB-4241221FF278} ' LCID : 0 ' Version : 2.6 ' Version Dependant ProgID's $PROGID_DWGdirectX_AcadApplication6 = "DWGdirectX.AcadApplication.2.6" $PROGID_DWGdirectX_AcadDocument6 = "DWGdirectX.AcadDocument.2.6" $PROGID_DWGdirectX_OdaHostApp6 = "DWGdirectX.OdaHostApp.2.6" '...Lots of them... ' Class Indentifiers $CLSID_DWGdirectX_AcadApplication = GUID$("{C58F8CBF-2B21-4A3C-971C-308D34C76363}") $CLSID_DWGdirectX_Event__DAcadApplicationEvents = GUID$("{809EAEAD-F340-41E2-A659-306960A1D996}") $CLSID_DWGdirectX_AcadDocument = GUID$("{7107EB99-D84A-404C-B1E0-284E82F54642}") '...Lots of them... ' Interface Indentifiers $IID_DWGdirectX_IAcadApplication = GUID$("{FDF9679C-B8F6-40B6-9F6B-207ADCF72BEE}") $IID_DWGdirectX_IAcadDocument = GUID$("{2880199D-CEB6-40D1-9505-B26E44488341}") $IID_DWGdirectX_IAcadDatabase = GUID$("{236374B2-E248-484D-91D4-C13FA726645D}") '...Lots of them... 'Macros and Enums '...Lots of them... ' Interface Name : IAcadApplication ' Description : An instance of the DWGdirectX application ' ClassID : $CLSID_DWGdirectX_AcadApplication ' ProgID : $PROGID_DWGdirectX_AcadApplication ' Version ProgID : $PROGID_DWGdirectX_AcadApplication6 Interface IAcadApplication $IID_DWGdirectX_IAcadApplication Inherit IDispatch Property Get Visible <1> () As Integer Property Set Visible <1> (ByVal PB_Visible As Integer) Property Get Name <2> () As String '...Lots of them... ' Interface Name : Int__DAcadApplicationEvents ' Description : Event interface for AcadApplication ' ClassID : $CLSID_DWGdirectX_Event__DAcadApplicationEvents ' ProgID : $PROGID_DWGdirectX_AcadApplication ' Version ProgID : $PROGID_DWGdirectX_AcadApplication6 Class Class_Int__DAcadApplicationEvents $CLSID_DWGdirectX_Event__DAcadApplicationEvents As Event Interface Int__DAcadApplicationEvents $IID_DWGdirectX_Int__DAcadApplicationEvents Inherit IDispatch Method SysVarChanged <1> (Byval SysvarName As String, Byval newVal As Variant) ' Insert your code here End Method Method NewDrawing <2> () ' Insert your code here End Method '...Lots of them...
Comment