| Class TOleController (unit Ole2Auto) |
TObject
OLE2 Automation Controller
| Constructors |
constructor Create;| Functions |
procedure AssignIDispatch(V: Variant);
function CallFunction(const AName: string; const Params: array of const): PVariant;
function CallFunctionByID(ID: TDispID; const Params: array of const): PVariant;
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);
procedure CallProcedureByID(ID: TDispID; const Params: array of const);
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);
destructor Destroy;
procedure GetActiveObject(const ClassName: string);
function GetProperty(const AName: string): PVariant;
function GetPropertyByID(ID: TDispID): PVariant;
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;