我已经编写了一个“Hello World”的IActiveScript C++ ATL控制台应用程序，它具有以下功能：
- 实现了一个名为
CSimpleScriptSite的新类
- 继承了
IActiveScriptSite和IActiveScriptSiteWindow
- 使用
IActiveSite接口在Python引擎上调用CoCreateInstance
- 执行
Python语句print 'Hello World. 5 squared is: ' + str(5 * 5)
- 没有针对错误的
Python进行处理。您可以参考MSDN IActiveScriptError
- 具有带有存根
return S_OK;实现的函数
- 我安装了Python 2.6，但您可以使用任何Python解释器。
- 我使用了具有ProgID为
Python的Python for Windows extensions，它提供了Python解释器的IActiveScript包装器
- 但是，您可以让代码与任何支持
IActiveScript的Python解释器一起工作，只需更新ProgID（例如Python.AXScript.2）
下面是Python Hello World示例：
#include <atlbase.h>
#include <activscp.h>
#define CHECKHR(stmt) \
{ \
HRESULT hr = S_OK; \
if (FAILED(hr = (stmt))) { return hr; } \
}
class CSimpleScriptSite :
public IActiveScriptSite,
public IActiveScriptSiteWindow
{
public:
CSimpleScriptSite() : m_cRefCount(1), m_hWnd(NULL) { ZeroMemory(&m_clsidScriptEngine, sizeof(m_clsidScriptEngine)); }
STDMETHOD_(ULONG, AddRef)();
STDMETHOD_(ULONG, Release)();
STDMETHOD(QueryInterface)(REFIID riid, void **ppvObject);
STDMETHOD(GetLCID)(LCID *plcid){ *plcid = 0; return S_OK; }
STDMETHOD(GetItemInfo)(LPCOLESTR pstrName, DWORD dwReturnMask, IUnknown **ppiunkItem, ITypeInfo **ppti) { return TYPE_E_ELEMENTNOTFOUND; }
STDMETHOD(GetDocVersionString)(BSTR *pbstrVersion) { *pbstrVersion = SysAllocString(L"1.0"); return S_OK; }
STDMETHOD(OnScriptTerminate)(const VARIANT *pvarResult, const EXCEPINFO *pexcepinfo) { return S_OK; }
STDMETHOD(OnStateChange)(SCRIPTSTATE ssScriptState) { return S_OK; }
STDMETHOD(OnScriptError)(IActiveScriptError *pIActiveScriptError) { return S_OK; }
STDMETHOD(OnEnterScript)(void) { return S_OK; }
STDMETHOD(OnLeaveScript)(void) { return S_OK; }
STDMETHOD(GetWindow)(HWND *phWnd) { *phWnd = m_hWnd; return S_OK; }
STDMETHOD(EnableModeless)(BOOL fEnable) { return S_OK; }
HRESULT CloseScriptEngine();
HRESULT Evaluate(LPCOLESTR szScript, VARIANT *pResult, LPCOLESTR strItemName);
HRESULT Execute(LPCOLESTR szScript, LPCOLESTR strItemName);
HRESULT OpenScriptEngine(CLSID &rclsid);
HRESULT OpenScriptEngine(LPCOLESTR szScriptEngine);
HRESULT SetWindow(HWND hWnd) { m_hWnd = hWnd; }
private:
CComPtr<IActiveScript> m_ptrIActiveScript;
CLSID m_clsidScriptEngine;
ULONG m_cRefCount;
HWND m_hWnd;
};
STDMETHODIMP_(ULONG) CSimpleScriptSite::AddRef()
{
return InterlockedIncrement(&m_cRefCount);
}
STDMETHODIMP_(ULONG) CSimpleScriptSite::Release()
{
if (!InterlockedDecrement(&m_cRefCount))
{
delete this;
return 0;
}
return m_cRefCount;
}
STDMETHODIMP CSimpleScriptSite::QueryInterface(REFIID riid, void **ppvObject)
{
if (riid == IID_IUnknown || riid == IID_IActiveScriptSiteWindow)
{
*ppvObject = (IActiveScriptSiteWindow *) this;
AddRef();
return NOERROR;
}
if (riid == IID_IActiveScriptSite)
{
*ppvObject = (IActiveScriptSite *) this;
AddRef();
return NOERROR;
}
return E_NOINTERFACE;
}
HRESULT CSimpleScriptSite::OpenScriptEngine(CLSID &rclsid)
{
m_ptrIActiveScript = NULL;
CHECKHR(CoCreateInstance(rclsid, NULL, CLSCTX_INPROC_SERVER, IID_IActiveScript, (void **) &m_ptrIActiveScript));
CHECKHR(m_ptrIActiveScript->SetScriptSite(this));
CComPtr<IActiveScriptParse> ptrIActiveScriptParse;
CHECKHR(m_ptrIActiveScript->QueryInterface(IID_IActiveScriptParse, (void **) &ptrIActiveScriptParse));
CHECKHR(ptrIActiveScriptParse->InitNew());
m_clsidScriptEngine = rclsid;
return S_OK;
}
HRESULT CSimpleScriptSite::OpenScriptEngine(LPCOLESTR szScriptEngine)
{
CLSID clsid;
CHECKHR(CLSIDFromProgID(szScriptEngine, &clsid));
return OpenScriptEngine(clsid);
}
HRESULT CSimpleScriptSite::CloseScriptEngine()
{
if (!m_ptrIActiveScript) { return S_OK; }
CHECKHR(m_ptrIActiveScript->SetScriptState(SCRIPTSTATE_CLOSED));
m_ptrIActiveScript = NULL;
return S_OK;
}
HRESULT CSimpleScriptSite::Evaluate(LPCOLESTR szScript, VARIANT *pResult, LPCOLESTR strItemName)
{
if (!m_ptrIActiveScript) { return E_POINTER; }
if (!pResult) { return E_INVALIDARG; }
EXCEPINFO ei = {0};
CComPtr<IActiveScriptParse> ptrIActiveScriptParse;
CHECKHR(m_ptrIActiveScript->QueryInterface(IID_IActiveScriptParse, (void **) &ptrIActiveScriptParse));
CHECKHR(ptrIActiveScriptParse->ParseScriptText(szScript, strItemName, NULL, NULL, 0, 0, SCRIPTTEXT_ISEXPRESSION, pResult, &ei));
return m_ptrIActiveScript->SetScriptState(SCRIPTSTATE_CONNECTED);
}
HRESULT CSimpleScriptSite::Execute(LPCOLESTR szScript, LPCOLESTR strItemName)
{
if (!m_ptrIActiveScript) { return E_POINTER; }
EXCEPINFO ei = {0};
CComPtr<IActiveScriptParse> ptrIActiveScriptParse;
CHECKHR(m_ptrIActiveScript->QueryInterface(IID_IActiveScriptParse, (void **) &ptrIActiveScriptParse));
CHECKHR(ptrIActiveScriptParse->ParseScriptText(szScript, strItemName, NULL, NULL, 0, 0, 0L, NULL, &ei));
return m_ptrIActiveScript->SetScriptState(SCRIPTSTATE_CONNECTED);
}
int _tmain(int argc, _TCHAR* argv[])
{
HRESULT hr = S_OK;
hr = CoInitializeEx(NULL, COINIT_MULTITHREADED);
CSimpleScriptSite *pScriptSite = new CSimpleScriptSite();
hr = pScriptSite->OpenScriptEngine(OLESTR("Python"));
hr = pScriptSite->Execute(OLESTR("print 'Hello World. 5 squared is: ' + str(5 * 5)"), NULL);
hr = pScriptSite->CloseScriptEngine();
hr = pScriptSite->Release();
::CoUninitialize();
return 0;
}
Py_Init）。 - filmor