>void __fastcall TForm1::cbEmptySubClick(TObject *Sender)
>{
>  EmptyOCX11->EmptySub();
>}

>Simply calling this empty subroutine in my OCX calls a fault, " Project
>Demo.EXE raised exception class EAccessViolation with message 'Access
>violation at address 66023C23 in module 'MSVBVM60.DLL'.  Read of Address
>FFFFFFFF'. Process stopped.  Use Step or Run to continue."
>I must be doing something obviously wrong here, since I'm not even passing
>parameters.

> >void __fastcall TForm1::cbEmptySubClick(TObject *Sender)
> >{
> >  EmptyOCX11->EmptySub();
> >}

> >Simply calling this empty subroutine in my OCX calls a fault, " Project
> >Demo.EXE raised exception class EAccessViolation with message 'Access
> >violation at address 66023C23 in module 'MSVBVM60.DLL'.  Read of Address
> >FFFFFFFF'. Process stopped.  Use Step or Run to continue."

> >I must be doing something obviously wrong here, since I'm not even
passing
> >parameters.

> Maybe, maybe not. My bet is *BCB* is doing something wrong.

> Try using the dispinterface wrapper rather than the direct interface
> wrapper --- there's a problem in BCB4 (fixed in BCB5 patch 1) with
> methods not being in the correct order for certain VB controls.
> (Basically, we assumed that the methods were in the type library in the
> order they were in the vtable; apparently that's not a correct assumption,
> although it's hard to imagine an implementation which put them into
> the type library in a different order ...)

> --
> Si vales, valeo.

> I'm creating a 3rd party ActiveX component in VB6, and I'd love for it to
be
> compatible with Borlands product line.

> I'm using BCB verson 4 with both service packs, under 98.

> In an attempt to simplify the issue I've created a dirt simple OCX in VB
> with one method, Empty().  The code generated by the import is shown at
the
> bottom of this message, and my implementation is immediately below:

> void __fastcall TForm1::cbEmptySubClick(TObject *Sender)
> {
>   EmptyOCX11->EmptySub();
> }

> Simply calling this empty subroutine in my OCX calls a fault, " Project
> Demo.EXE raised exception class EAccessViolation with message 'Access
> violation at address 66023C23 in module 'MSVBVM60.DLL'.  Read of Address
> FFFFFFFF'. Process stopped.  Use Step or Run to continue."

> I must be doing something obviously wrong here, since I'm not even passing
> parameters.

> Any help is greatly appreciated,

> Alen Seigel

> ------------------------------------------------------------------
>   Code generated by importing the ACTIVEX
> -----------------------------------------------------------------
> //

> // C++ TLBWRTR : $Revision:   1.96.1.40  $
> // File generated on 06/13/00 8:40:07 PM from Type Library described
below.

> //

> #include <vcl.h>
> #pragma hdrstop

> #if defined(USING_ATL)
> #include <atl\atlvcl.h>
> #endif

> #include "EmptyOCX_OCX.h"

> #if !defined(__PRAGMA_PACKAGE_SMART_INIT)
> #define      __PRAGMA_PACKAGE_SMART_INIT
> #pragma package(smart_init)
> #endif

> namespace Emptyocx_tlb
> {

> // *********************************************************************//
> // OCX PROXY CLASS IMPLEMENTATION
> // (The following variables/methods implement the class TEmptyOCX1 which
> // allows "" to be hosted in CBuilder IDE/apps).
> // *********************************************************************//
> TControlData TEmptyOCX1::CControlData =
> {
>   // GUID of CoClass and Event Interface of Control
>   {0x970F4D0E, 0x4148, 0x11D4,{ 0xB4, 0x8D, 0x00, 0x50, 0x04, 0xAD, 0xD3,
> 0xD9} }, // CoClass
>   {0x5C48CA20, 0x416A, 0x11D4,{ 0xB4, 0x8D, 0x00, 0x50, 0x04, 0xAD, 0xD3,
> 0xD9} }, // Events

>   // Count of Events and array of their DISPIDs
>   0, NULL,

>   // Pointer to Runtime License string
>   NULL,  // HRESULT(0x00000000)

>   // Flags for OnChanged PropertyNotification
>   0x00000000,
>   300,// (IDE Version)

>   // Count of Font Prop and array of their DISPIDs
>   0, NULL,

>   // Count of Pict Prop and array of their DISPIDs
>   0, NULL,
>   0, // Reserved
>   0, // Instance count (used internally)
>   0, // List of Enum descriptions (internal)
> };

> GUID     TEmptyOCX1::DEF_CTL_INTF = {0x5C48CA1F, 0x416A, 0x11D4,{ 0xB4,
> 0x8D, 0x00, 0x50, 0x04, 0xAD, 0xD3, 0xD9} };
> TNoParam TEmptyOCX1::OptParam;

> static inline void ValidCtrCheck(TEmptyOCX1 *)
> {
>    delete new TEmptyOCX1((TComponent*)(0));
> };

> void __fastcall TEmptyOCX1::InitControlData(void)
> {
>   ControlData = &CControlData;
> };

> void __fastcall TEmptyOCX1::CreateControl(void)
> {
>   if (!m_OCXIntf)
>   {
>     _ASSERTE(DefaultDispatch);
>     DefaultDispatch->QueryInterface(DEF_CTL_INTF, (LPVOID*)&m_OCXIntf);
>   }
> };

> TCOM_EmptyOCX1 __fastcall TEmptyOCX1::GetControlInterface(void)
> {
>   CreateControl();
>   return m_OCXIntf;
> };

> void/*HR*/ __fastcall TEmptyOCX1::EmptySub(void)
> {
>   GetControlInterface().EmptySub();
> }

> };     // namespace Emptyocx_tlb

> // *********************************************************************//
> // The Register function is invoked by the IDE when this module is
> // installed in a Package. It provides the list of Components (including
> // OCXes) implemented by this module. The following implementation
> // informs the IDE of the OCX proxy classes implemented here.
> // *********************************************************************//
> namespace Emptyocx_ocx
> {

> void __fastcall PACKAGE Register()
> {
>   // [1]
>   TComponentClass classes[] = {
>                               __classid(Emptyocx_tlb::TEmptyOCX1)
>                              };
>   RegisterComponents("ActiveX", classes,
>                      sizeof(classes)/sizeof(classes[0])-1);
> }
> };     // namespace Emptyocx_ocx