Class TMyClassFactory (unit ClassFactory)

Inherits from

IClassFactory

Constructors


constructor Create(ClassRef: TDelphiOleClass);

var classFactoryCount:integer;


Functions

function AddRef: Longint;


function CreateInstance(unkOuter: IUnknown; const iid: TIID; var obj): HResult;


destructor Destroy;

This is the minimum amount of information which must be entered in registry.

function LockServer(fLock: BOOL): HResult;


function QueryInterface(const iid: TIID; var obj): HResult;

Dec(ClassFactoryCount);

function Release: Longint;


procedure enterInRegistry(cls:TDelphiOleClass);


function isInRegistry(cls:TDelphiOleClass):boolean;

returned by CoRegisterClassObject

is CLSCTX_LOCAL_SERVER correct value???


Properties

Events

Variables

FClassRef : TDelphiOleClass;


FRefCount : Integer;


regNr : LongInt;



Constructors


constructor Create(ClassRef: TDelphiOleClass);

var classFactoryCount:integer;


Functions


function AddRef: Longint;


function CreateInstance(unkOuter: IUnknown; const iid: TIID; var obj): HResult;


destructor Destroy;

This is the minimum amount of information which must be entered in registry. If this information is absent, drag'n'drop and QueryInsertObject will not work properlly.


function LockServer(fLock: BOOL): HResult;


function QueryInterface(const iid: TIID; var obj): HResult;

Dec(ClassFactoryCount);


function Release: Longint;


procedure enterInRegistry(cls:TDelphiOleClass);


function isInRegistry(cls:TDelphiOleClass):boolean;

returned by CoRegisterClassObject

is CLSCTX_LOCAL_SERVER correct value???


Properties


Events


Variables


FClassRef : TDelphiOleClass;


FRefCount : Integer;


regNr : LongInt;