Class TMyDataObject (unit DataObject)

Inherits from

IDataObject

TMyData can be only used as part of another object. If you would like to change this, you have to change following functions: QueyInterface, AddRef and Relase

Constructors


constructor Create(UnkOuter: IOleObject);

fullUserTypeName=nil; dwSrcOfCopy=nil;


Functions

function AddRef: Longint;

delegates call to outer object

function DAdvise(var formatetc: TFormatEtc; advf: Longint;advSink: IAdviseSink; var dwConnection: Longint): HResult;

Data advisory dunctions were never tested !!! - because they were never called from RIchEdit ;-

WARNING: This function was never tested!!!


destructor Destroy;

.

function DUnadvise(dwConnection: Longint): HResult;

WARNING: This function was never tested!!!

function EnumDAdvise(var enumAdvise: IEnumStatData): HResult;

WARNING: This function was never tested!!!

function EnumFormatEtc(dwDirection: Longint; var enumFormatEtc:IEnumFormatEtc): HResult;

not implemented

function GetCanonicalFormatEtc(var formatetc: TFormatEtc;var formatetcOut: TFormatEtc): HResult;


function GetData(var formatetcIn: TFormatEtc;var medium: TStgMedium): HResult;

MISSING support for cfDelphiObject

function GetDataHere(var formatetc: TFormatEtc;var medium: TStgMedium): HResult;

embedded object supported only in GetDataHere

function QueryGetData(var formatetc: TFormatEtc): HResult;

from olectnrs.

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


function Release: Longint;

delegates call to outer object

function SetData(var formatetc: TFormatEtc; var medium: TStgMedium;fRelease: BOOL): HResult;

we do not provide device-specific renderings

function SupportsFormat(const formatEtcIn:TFormatEtc):HResult;

NOT TESTED

delegates call to outer object


Properties

Events

Variables

fDataAdviseHolder : IDataAdviseHolder;

pointer to outer object

FRefCount : Integer;


fUnkOuter : IOleObject;



Constructors


constructor Create(UnkOuter: IOleObject);

fullUserTypeName=nil; dwSrcOfCopy=nil;


Functions


function AddRef: Longint;

delegates call to outer object


function DAdvise(var formatetc: TFormatEtc; advf: Longint;advSink: IAdviseSink; var dwConnection: Longint): HResult;

Data advisory dunctions were never tested !!! - because they were never called from RIchEdit ;-

WARNING: This function was never tested!!!


destructor Destroy;

.. the outer object should not explicitly call addref after TMyDataObject.Create


function DUnadvise(dwConnection: Longint): HResult;

WARNING: This function was never tested!!!


function EnumDAdvise(var enumAdvise: IEnumStatData): HResult;

WARNING: This function was never tested!!!


function EnumFormatEtc(dwDirection: Longint; var enumFormatEtc:IEnumFormatEtc): HResult;

not implemented


function GetCanonicalFormatEtc(var formatetc: TFormatEtc;var formatetcOut: TFormatEtc): HResult;


function GetData(var formatetcIn: TFormatEtc;var medium: TStgMedium): HResult;

MISSING support for cfDelphiObject


function GetDataHere(var formatetc: TFormatEtc;var medium: TStgMedium): HResult;

embedded object supported only in GetDataHere


function QueryGetData(var formatetc: TFormatEtc): HResult;

from olectnrs.pas


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


function Release: Longint;

delegates call to outer object


function SetData(var formatetc: TFormatEtc; var medium: TStgMedium;fRelease: BOOL): HResult;

we do not provide device-specific renderings


function SupportsFormat(const formatEtcIn:TFormatEtc):HResult;

NOT TESTED

delegates call to outer object


Properties


Events


Variables


fDataAdviseHolder : IDataAdviseHolder;

pointer to outer object


FRefCount : Integer;


fUnkOuter : IOleObject;