Class TOleController (unit Ole2Auto) |
Inherits from
TObject
OLE2 Automation Controller
constructor Create;
- TOleController
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;
property Locale : TLCID
property OleObject : Variant
FLocale : TLCID;
FObject : Variant;
FRetValue : Variant;
constructor Create;
TOleController
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;
property Locale : TLCID
property OleObject : Variant
FLocale : TLCID;
FObject : Variant;
FRetValue : Variant;