Class TOleController (unit Ole2Auto)

Inherits from

TObject

OLE2 Automation Controller

Constructors


constructor Create;

TOleController


Functions

procedure AssignIDispatch(V: Variant);


function CallFunction(const AName: string; const Params: array of const): PVariant;

call OLE functions

function CallFunctionByID(ID: TDispID; const Params: array of const): PVariant;

call OLE functions by IDs

function CallFunctionByIDsNamedParams(const IDs: TDispIDList; const Params: array of const; Cnt: Byte): PVariant;


function CallFunctionNamedParams(const AName: string; const Params: array of const; const ParamNames: array of string): PVariant;


function CallFunctionNoParams(const AName: string): PVariant;


function CallFunctionNoParamsByID(ID: TDispID): PVariant;


procedure CallProcedure(const AName: string; const Params: array of const);

call OLE procedures

procedure CallProcedureByID(ID: TDispID; const Params: array of const);

call OLE procedures by ID

procedure CallProcedureByIDsNamedParams(const IDs: TDispIDList; const Params: array of const; Cnt: Byte);


procedure CallProcedureNamedParams(const AName: string; const Params: array of const; const ParamNames: array of string);


procedure CallProcedureNoParams(const AName: string);


procedure CallProcedureNoParamsByID(ID: TDispID);


procedure CreateObject(const ClassName: string);

create or assign OLE objects

destructor Destroy;


procedure GetActiveObject(const ClassName: string);


function GetProperty(const AName: string): PVariant;

get/set properties of OLE object

function GetPropertyByID(ID: TDispID): PVariant;

get/set properties of OLE object by ID

procedure SetProperty(const AName: string; const Prop: array of const);


procedure SetPropertyByID(ID: TDispID; const Prop: array of const);


procedure ClearObject;


function CallMethod(ID: TDispID; const Params: array of const; NeedResult: Boolean): PVariant;


function CallMethodNamedParams(const IDs: TDispIDList; const Params: array of const; Cnt: Byte; NeedResult: Boolean): PVariant;


function CallMethodNoParams(ID: TDispID; NeedResult: Boolean): PVariant;


function Invoke(dispidMember: TDispID; wFlags: Word; var pdispparams: TDispParams; Res: PVariant): PVariant;


function NameToDispID(const AName: string): TDispID;


function NameToDispIDs(const AName: string; const AParams: array of string; Dest: PDispIDList): PDispIDList;


Properties

property Locale : TLCID


property OleObject : Variant


Events

Variables

FLocale : TLCID;


FObject : Variant;


FRetValue : Variant;



Constructors


constructor Create;

TOleController


Functions


procedure AssignIDispatch(V: Variant);


function CallFunction(const AName: string; const Params: array of const): PVariant;

call OLE functions


function CallFunctionByID(ID: TDispID; const Params: array of const): PVariant;

call OLE functions by IDs


function CallFunctionByIDsNamedParams(const IDs: TDispIDList; const Params: array of const; Cnt: Byte): PVariant;


function CallFunctionNamedParams(const AName: string; const Params: array of const; const ParamNames: array of string): PVariant;


function CallFunctionNoParams(const AName: string): PVariant;


function CallFunctionNoParamsByID(ID: TDispID): PVariant;


procedure CallProcedure(const AName: string; const Params: array of const);

call OLE procedures


procedure CallProcedureByID(ID: TDispID; const Params: array of const);

call OLE procedures by ID


procedure CallProcedureByIDsNamedParams(const IDs: TDispIDList; const Params: array of const; Cnt: Byte);


procedure CallProcedureNamedParams(const AName: string; const Params: array of const; const ParamNames: array of string);


procedure CallProcedureNoParams(const AName: string);


procedure CallProcedureNoParamsByID(ID: TDispID);


procedure CreateObject(const ClassName: string);

create or assign OLE objects


destructor Destroy;


procedure GetActiveObject(const ClassName: string);


function GetProperty(const AName: string): PVariant;

get/set properties of OLE object


function GetPropertyByID(ID: TDispID): PVariant;

get/set properties of OLE object by ID


procedure SetProperty(const AName: string; const Prop: array of const);


procedure SetPropertyByID(ID: TDispID; const Prop: array of const);


procedure ClearObject;


function CallMethod(ID: TDispID; const Params: array of const; NeedResult: Boolean): PVariant;


function CallMethodNamedParams(const IDs: TDispIDList; const Params: array of const; Cnt: Byte; NeedResult: Boolean): PVariant;


function CallMethodNoParams(ID: TDispID; NeedResult: Boolean): PVariant;


function Invoke(dispidMember: TDispID; wFlags: Word; var pdispparams: TDispParams; Res: PVariant): PVariant;


function NameToDispID(const AName: string): TDispID;


function NameToDispIDs(const AName: string; const AParams: array of string; Dest: PDispIDList): PDispIDList;


Properties


property Locale : TLCID


property OleObject : Variant


Events


Variables


FLocale : TLCID;


FObject : Variant;


FRetValue : Variant;