Unit Olectlr

*****************************************************} { } { Ole Automation Controller for Delphi 1.0 } { by Roger Headrick (Compserv 76114,1430) } { contributed to public domain 12/23/95 } { } {

Classes

IDispatch - The IDispatch class in Borland's Dispatch unit is redeclared here to correct the Invoke method decaration.
TOleCtlr -
TWordCtlr - calls FreeOleObject and then calls inherited Destroy

Functions

Register -

Types

PBStr
PCurrency
PDouble
PIDispatch
PPSAFEARRAY
PSingle
PWordBool
TCurrency
TPasType

Constants

PAS_ARRAY
PAS_ARRAY_PTR
PAS_BYTE
PAS_BYTE_PTR
PAS_CURRENCY
PAS_CURRENCY_PTR
PAS_DATE
PAS_DATE_PTR
PAS_DOUBLE
PAS_DOUBLE_PTR
PAS_IDISPATCH
PAS_IDISPATCH_PTR
PAS_INTEGER
PAS_INTEGER_PTR
PAS_IUNKNOWN
PAS_IUNKNOWN_PTR
PAS_LONGINT
PAS_LONGINT_PTR
PAS_POINTER
PAS_PVARIANT
PAS_SCODE
PAS_SCODE_PTR
PAS_SINGLE
PAS_SINGLE_PTR
PAS_STRING
PAS_STRING_PTR
PAS_WORDBOOL
PAS_WORDBOOL_PTR

Variables


Functions


procedure Register;


Types


PBStr = ^BStr

PCurrency = ^TCurrency

PDouble = ^Double

PIDispatch = ^IDispatch

PPSAFEARRAY = ^PSAFEARRAY

PSingle = ^Single

PWordBool = ^WordBool

TCurrency = CY

TPasType = VARTYPE

Constants

PAS_ARRAY = VT_ARRAY

ole interface Class

PAS_ARRAY_PTR = VT_ARRAY or VT_BYREF

PAS_BYTE = VT_UI1

map OLE types to Pascal types

PAS_BYTE_PTR = VT_UI1 or VT_BYREF

PAS_CURRENCY = VT_CY

SCODE = Longint

PAS_CURRENCY_PTR = VT_CY or VT_BYREF

PAS_DATE = VT_DATE

= TCurrency

PAS_DATE_PTR = VT_DATE or VT_BYREF

PAS_DOUBLE = VT_R8

PAS_DOUBLE_PTR = VT_R8 or VT_BYREF

PAS_IDISPATCH = VT_DISPATCH

ole interface Class

PAS_IDISPATCH_PTR = VT_DISPATCH or VT_BYREF

PAS_INTEGER = VT_I2

PAS_INTEGER_PTR = VT_I2 or VT_BYREF

PAS_IUNKNOWN = VT_UNKNOWN

requires conversion

PAS_IUNKNOWN_PTR = VT_UNKNOWN or VT_BYREF

PAS_LONGINT = VT_I4

PAS_LONGINT_PTR = VT_I4 or VT_BYREF

PAS_POINTER = VT_BYREF

ptr to VARIANT record

PAS_PVARIANT = VT_VARIANT or VT_BYREF

PAS_SCODE = VT_ERROR

PAS_SCODE_PTR = VT_ERROR or VT_BYREF

PAS_SINGLE = VT_R4

PAS_SINGLE_PTR = VT_R4 or VT_BYREF

PAS_STRING = VT_BSTR

= Double

PAS_STRING_PTR = VT_BSTR or VT_BYREF

PAS_WORDBOOL = VT_BOOL

PAS_WORDBOOL_PTR = VT_BOOL or VT_BYREF


Variables