Class TActiveScriptSite (unit ScriptSite)

Inherits from

TComObject

IActiveScriptSite

IActiveScriptSiteWindow

TActiveScriptSite Declaration

Constructors



Functions

function EnableModeless(FEnable: WordBool): HResult;

ActiveX Scripting uses this to get a window handle from our application.

function GetDocVersionString(var VersionString: TBSTR): HResult;

Get a handle to our Automation Object's Type Library

function GetItemInfo(ItemName: WideString; dwReturnMask: DWord; out UnkItem: IUnknown; out TypeInfo: ITypeInfo): HResult;

No need for us to do anything here.

function GetLCID(var wLCID: TLCID): HResult;

IActiveScriptSite

TActiveScriptSite - Protected Implementation


function GetWindow(var Hwnd: THandle): HResult;

IActiveScriptSiteWindow

IActiveScriptSite Window Implementation


function OnEnterScript: HResult;

Halt script execution!

function OnLeaveScript: HResult;


function OnScriptError(pAse: IActiveScriptError): HResult;

Alerts us when engine states are changing

function OnScriptTerminate(var VarResult: OleVariant; var ExcepInfo: TExcepInfo): HResult;

Tell engine that we will accept it's default.

function OnStateChange(ScriptState: LongInt): HResult;

This tells us that the script is completed

Properties

Events

Variables


Constructors


Functions


function EnableModeless(FEnable: WordBool): HResult;

ActiveX Scripting uses this to get a window handle from our application. This allows the script engine to display information on the interface, such as a dialog box.


function GetDocVersionString(var VersionString: TBSTR): HResult;

Get a handle to our Automation Object's Type Library


function GetItemInfo(ItemName: WideString; dwReturnMask: DWord; out UnkItem: IUnknown; out TypeInfo: ITypeInfo): HResult;

No need for us to do anything here.


function GetLCID(var wLCID: TLCID): HResult;

IActiveScriptSite

TActiveScriptSite - Protected Implementation


function GetWindow(var Hwnd: THandle): HResult;

IActiveScriptSiteWindow

IActiveScriptSite Window Implementation


function OnEnterScript: HResult;

Halt script execution!


function OnLeaveScript: HResult;


function OnScriptError(pAse: IActiveScriptError): HResult;

Alerts us when engine states are changing


function OnScriptTerminate(var VarResult: OleVariant; var ExcepInfo: TExcepInfo): HResult;

Tell engine that we will accept it's default. ie. not implemented


function OnStateChange(ScriptState: LongInt): HResult;

This tells us that the script is completed


Properties


Events


Variables