| Class TScriptSite (unit uScriptSite) |
TComObject
| Constructors |
constructor Create;| Functions |
procedure AddGlobal(const ObjName:String; Obj:IUnknown);
procedure ClearGlobals;
procedure DeleteGlobal(const ObjName:String);
destructor Destroy;
procedure DeleteGlobalByIndex(const index:integer);
function GetDocVersionString(out pbstrVersion:TBStr):HResult;
function GetItemInfo(const pstrName:POleStr; dwReturnMask:DWord; out ppiunkItem:IUnknown; out ppti:ITypeInfo): HResult;
function GetLCID(out plcid:TLCID):HResult;
function OnEnterScript:HResult;
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;