Class TScriptSite (unit uScriptSite)

Inherits from

TComObject

IActiveScriptSite

Constructors


constructor Create;

TScriptSiteWindow


Functions

procedure AddGlobal(const ObjName:String; Obj:IUnknown);


procedure ClearGlobals;


procedure DeleteGlobal(const ObjName:String);

if global was found

destructor Destroy;

?? Added

procedure DeleteGlobalByIndex(const index:integer);


function GetDocVersionString(out pbstrVersion:TBStr):HResult;

try/except ?? Avoids Call to obj.

function GetItemInfo(const pstrName:POleStr; dwReturnMask:DWord; out ppiunkItem:IUnknown; out ppti:ITypeInfo): HResult;

The following C Macros return $409 which is US English, with SORT_DEFAULT.

function GetLCID(out plcid:TLCID):HResult;

IActiveScriptSite methods

function OnEnterScript:HResult;

OnScriptError

function OnLeaveScript:HResult;


function OnScriptError(const pscripterror:IActiveScriptError):HResult;


function OnScriptTerminate(const pvarResult:OleVariant; const pexcepinfo:TExcepInfo):HResult;


function OnStateChange(ssScriptState:TScriptState):HResult;


Properties

property Result : OleVariant


property ScriptDepth : Integer


Events

event OnEnter : TNotifyEvent


event OnError : TNotifyEvent


event OnExit : TNotifyEvent


Variables

FResult : OleVariant;


FScriptDepth : Integer;


GlobalList : TStringList;


FOnEnter : TNotifyEvent;


FOnError : TNotifyEvent;


FOnExit : TNotifyEvent;



Constructors


constructor Create;

TScriptSiteWindow


Functions


procedure AddGlobal(const ObjName:String; Obj:IUnknown);


procedure ClearGlobals;


procedure DeleteGlobal(const ObjName:String);

if global was found


destructor Destroy;

?? Added


procedure DeleteGlobalByIndex(const index:integer);


function GetDocVersionString(out pbstrVersion:TBStr):HResult;

try/except ?? Avoids Call to obj._Release


function GetItemInfo(const pstrName:POleStr; dwReturnMask:DWord; out ppiunkItem:IUnknown; out ppti:ITypeInfo): HResult;

The following C Macros return $409 which is US English, with SORT_DEFAULT.


function GetLCID(out plcid:TLCID):HResult;

IActiveScriptSite methods


function OnEnterScript:HResult;

OnScriptError


function OnLeaveScript:HResult;


function OnScriptError(const pscripterror:IActiveScriptError):HResult;


function OnScriptTerminate(const pvarResult:OleVariant; const pexcepinfo:TExcepInfo):HResult;


function OnStateChange(ssScriptState:TScriptState):HResult;


Properties


property Result : OleVariant


property ScriptDepth : Integer


Events


event OnEnter : TNotifyEvent


event OnError : TNotifyEvent


event OnExit : TNotifyEvent


Variables


FResult : OleVariant;


FScriptDepth : Integer;


GlobalList : TStringList;


FOnEnter : TNotifyEvent;


FOnError : TNotifyEvent;


FOnExit : TNotifyEvent;