QAxScriptSite Class Reference

Inheritance diagram for QAxScriptSite:

Public Functions
ULONG WINAPI	AddRef ()
HRESULT WINAPI	EnableModeless (BOOL fEnable)
HRESULT WINAPI	GetDocVersionString (BSTR *pbstrVersion)
HRESULT WINAPI	GetItemInfo (LPCOLESTR pstrName, DWORD dwReturnMask, IUnknown **ppiunkItem, ITypeInfo **ppti)
HRESULT WINAPI	GetLCID (LCID *plcid)
HRESULT WINAPI	GetWindow (HWND *phwnd)
HRESULT WINAPI	OnEnterScript ()
HRESULT WINAPI	OnLeaveScript ()
HRESULT WINAPI	OnScriptError (IActiveScriptError *pscripterror)
HRESULT WINAPI	OnScriptTerminate (const VARIANT *pvarResult, const EXCEPINFO *pexcepinfo)
HRESULT WINAPI	OnStateChange (SCRIPTSTATE ssScriptState)
	QAxScriptSite (QAxScript *script)
HRESULT WINAPI	QueryInterface (REFIID iid, void **ppvObject)
ULONG WINAPI	Release ()

Protected Functions
QWidget *	window () const

Properties
LONG	ref
QAxScript *	script

Detailed Description

Definition at line 89 of file qaxscript.cpp.

Constructors and Destructors

QAxScriptSite()

QAxScriptSite::QAxScriptSite

(

QAxScript *

script

)

Definition at line 122 of file qaxscript.cpp.

: script(s), ref(1)
{
}

Functions

AddRef()

ULONG WINAPI QAxScriptSite::AddRef

(

)

Definition at line 130 of file qaxscript.cpp.

Referenced by QueryInterface().

{
    return InterlockedIncrement(&ref);
}

EnableModeless()

HRESULT WINAPI QAxScriptSite::EnableModeless

(

BOOL

fEnable

)

Definition at line 359 of file qaxscript.cpp.

{
    QWidget *w = window();
    if (!w)
        return E_FAIL;
    
    EnableWindow(w->winId(), fEnable);
    return S_OK;
}

GetDocVersionString()

HRESULT WINAPI QAxScriptSite::GetDocVersionString

(

BSTR *

pbstrVersion

)

Definition at line 217 of file qaxscript.cpp.

{
    return E_NOTIMPL;
}

GetItemInfo()

HRESULT WINAPI QAxScriptSite::GetItemInfo	(	LPCOLESTR	pstrName,
		DWORD	dwReturnMask,
		IUnknown **	ppiunkItem,
		ITypeInfo **	ppti
	)

Definition at line 182 of file qaxscript.cpp.

{
    if (item)
        *item = 0;
    else if (mask & SCRIPTINFO_IUNKNOWN)
        return E_POINTER;
    
    if (type)
        *type = 0;
    else if (mask & SCRIPTINFO_ITYPEINFO)
        return E_POINTER;
    
    QAxBase *object = script->findObject(QString::fromWCharArray(pstrName));
    if (!object)
        return TYPE_E_ELEMENTNOTFOUND;
    
    if (mask & SCRIPTINFO_IUNKNOWN)
        object->queryInterface(IID_IUnknown, (void**)item);
    if (mask & SCRIPTINFO_ITYPEINFO) {
        IProvideClassInfo *classInfo = 0;
        object->queryInterface(IID_IProvideClassInfo, (void**)&classInfo);
        if (classInfo) {
            classInfo->GetClassInfo(type);
            classInfo->Release();
        }
    }
    return S_OK;
}

GetLCID()

HRESULT WINAPI QAxScriptSite::GetLCID

(

LCID *

plcid

)

Definition at line 171 of file qaxscript.cpp.

{
    return E_NOTIMPL;
}

GetWindow()

HRESULT WINAPI QAxScriptSite::GetWindow

(

HWND *

phwnd

)

Definition at line 339 of file qaxscript.cpp.

{
    if (!phwnd)
        return E_POINTER;
    
    *phwnd = 0;
    QWidget *w = window();
    if (!w)
        return E_FAIL;
    
    *phwnd = w->winId();
    return S_OK;
}

OnEnterScript()

HRESULT WINAPI QAxScriptSite::OnEnterScript

(

)

Definition at line 249 of file qaxscript.cpp.

{
    emit script->entered();
    return S_OK;
}

OnLeaveScript()

HRESULT WINAPI QAxScriptSite::OnLeaveScript

(

)

Definition at line 261 of file qaxscript.cpp.

{
    emit script->finished();
    return S_OK;
}

OnScriptError()

HRESULT WINAPI QAxScriptSite::OnScriptError

(

IActiveScriptError *

pscripterror

)

Definition at line 273 of file qaxscript.cpp.

{
    EXCEPINFO exception;
    memset(&exception, 0, sizeof(exception));
    DWORD context;
    ULONG lineNumber;
    LONG charPos;
    BSTR bstrLineText;
    QString lineText;
    
    error->GetExceptionInfo(&exception);
    error->GetSourcePosition(&context, &lineNumber, &charPos);
    HRESULT hres = error->GetSourceLineText(&bstrLineText);
    if (hres == S_OK) {
        lineText = QString::fromWCharArray(bstrLineText);
        SysFreeString(bstrLineText);
    }
    SysFreeString(exception.bstrSource);
    SysFreeString(exception.bstrDescription);
    SysFreeString(exception.bstrHelpFile);

    emit script->error(exception.wCode, QString::fromWCharArray(exception.bstrDescription), lineNumber, lineText);
    
    return S_OK;
}

OnScriptTerminate()

HRESULT WINAPI QAxScriptSite::OnScriptTerminate	(	const VARIANT *	pvarResult,
		const EXCEPINFO *	pexcepinfo
	)

Definition at line 228 of file qaxscript.cpp.

{
    emit script->finished();
    
    if (result && result->vt != VT_EMPTY)
        emit script->finished(VARIANTToQVariant(*result, 0));
    if (exception)
        emit script->finished(exception->wCode, 
        QString::fromWCharArray(exception->bstrSource),
        QString::fromWCharArray(exception->bstrDescription),
        QString::fromWCharArray(exception->bstrHelpFile)
                );
    return S_OK;
}

OnStateChange()

HRESULT WINAPI QAxScriptSite::OnStateChange

(

SCRIPTSTATE

ssScriptState

)

Definition at line 305 of file qaxscript.cpp.

{
    emit script->stateChanged(ssScriptState);
    return S_OK;
}

QueryInterface()

HRESULT WINAPI QAxScriptSite::QueryInterface	(	REFIID	iid,
		void **	ppvObject
	)

Definition at line 150 of file qaxscript.cpp.

{
    *ppvObject = 0;
    if (iid == IID_IUnknown)
        *ppvObject = (IUnknown*)(IActiveScriptSite*)this;
    else if (iid == IID_IActiveScriptSite)
        *ppvObject = (IActiveScriptSite*)this;
    else if (iid == IID_IActiveScriptSiteWindow)
        *ppvObject = (IActiveScriptSiteWindow*)this;
    else
        return E_NOINTERFACE;
    
    AddRef();
    return S_OK;
}

Release()

ULONG WINAPI QAxScriptSite::Release

(

)

Definition at line 138 of file qaxscript.cpp.

Referenced by QAxScript::~QAxScript().

{
    LONG refCount = InterlockedDecrement(&ref);
    if (!refCount)
        delete this;

    return refCount;
}

window()

QWidget * QAxScriptSite::window ( ) const

protected

Definition at line 316 of file qaxscript.cpp.

Referenced by EnableModeless(), and GetWindow().

{
    QWidget *w = 0;
    QObject *p = script->parent();
    while (!w && p) {
        w = qobject_cast<QWidget*>(p);
        p = p->parent();
    }
    
    if (w)
        w = w->window();
    if (!w && qApp)
        w = qApp->activeWindow();
    
    return w;
}

Properties

ref

LONG QAxScriptSite::ref

private

Definition at line 116 of file qaxscript.cpp.

Referenced by AddRef(), and Release().

script

QAxScript* QAxScriptSite::script

private

Definition at line 115 of file qaxscript.cpp.

Referenced by GetItemInfo(), OnEnterScript(), OnLeaveScript(), OnScriptError(), OnScriptTerminate(), OnStateChange(), and window().

---

The documentation for this class was generated from the following file:

• /src/activeqt/container/qaxscript.cpp