Bdtjtk

I used the C++ MFC activex script to call the javascript function,
which compiles normally but uses the init function to run to CoCreateInstance, causing a read access violation(this 0x4).
How to solve this problem?

Below is my code:

// BasicScriptHost.cpp

#include "stdafx.h"

#include "DTCfg.h"

#include "BasicScriptHost.h"

#include <atlbase.h>

#include <string>

#include <atlfile.h>

using namespace std;



HRESULT BasicScriptHost::Init() {

    CLSID clsJS;

    HRESULT hr = ::CLSIDFromProgID(L"javascript", &clsJS);

    if (FAILED(hr))

    {

        return SETERROR(hr);

    }



    hr = ::CoCreateInstance(clsJS,NULL, CLSCTX_INPROC_SERVER, 

IID_IActiveScript, (void**)&m_pEngine);//Error  read access violation 

    if (FAILED(hr))

    {

        return SETERROR(hr);

    }



hr = m_pEngine.QueryInterface(&m_pEngineParse);

if (FAILED(hr))

{

    return SETERROR(hr);

}



hr = m_pEngineParse->InitNew();

if (FAILED(hr))

{

    return SETERROR(hr);

}



hr = m_pEngine->SetScriptSite(this);

if (FAILED(hr))

{

    return SETERROR(hr);

}



hr = m_pEngine->SetScriptState(SCRIPTSTATE_STARTED);

if (FAILED(hr))

{

    return SETERROR(hr);

}



hr = m_pEngine->SetScriptState(SCRIPTSTATE_CONNECTED);

if (FAILED(hr))

{

    return SETERROR(hr);

}



return S_OK;

}



HRESULT BasicScriptHost::Close()

{

    HRESULT hr = m_pEngine->SetScriptState(SCRIPTSTATE_DISCONNECTED);

    if (FAILED(hr))

    {

        return SETERROR(hr);

    }



    hr = m_pEngine->SetScriptState(SCRIPTSTATE_CLOSED);

    if (FAILED(hr))

    {

        return SETERROR(hr);

    }

    return S_OK;

}



HRESULT BasicScriptHost::AddScriptFile(string const& file)

{

    CAtlFile atlfile;

    HRESULT hr = atlfile.Create((LPCTSTR)file.c_str(), GENERIC_READ, 0, 

OPEN_EXISTING);

    if (FAILED(hr))

    {

        return SETERROR(hr);

    }



    ULONGLONG len;

    hr = atlfile.GetSize(len);

    if (FAILED(hr))

    {

        return SETERROR(hr);

    }



    LARGE_INTEGER li;

    li.QuadPart = len;

    CAutoVectorPtr<char> szData(new char[li.LowPart + 1]);

    if (!szData)

    {

        return SETERROR(E_OUTOFMEMORY);

    }



    DWORD dwBytesRead;

    hr = atlfile.Read(szData, li.LowPart, dwBytesRead);

    if (FAILED(hr))

    {

        return SETERROR(hr);

    }



    szData[dwBytesRead] = '';

    atlfile.Close();    USES_CONVERSION;

    wstring script = A2W(szData);    EXCEPINFO sEx;

    hr = m_pEngineParse->ParseScriptText(script.c_str(), NULL, NULL, 

NULL,

        1, 0, SCRIPTTEXT_ISVISIBLE | SCRIPTTEXT_ISPERSISTENT, NULL, 

&sEx);

    if (FAILED(hr))

    {

        return SETERROR(hr);

    }

    return S_OK;

 }



HRESULT BasicScriptHost::GetScriptDispatch(IDispatch** retval)

{

    HRESULT hr = m_pEngine->GetScriptDispatch(NULL, retval);

    if (FAILED(hr))

    {

        return SETERROR(hr);

    }

    return S_OK;

}

// BasicScriptHost.h

#define SETERROR(hr) hr

#include <string>

#include <vector>

#include <activscp.h>

#include <comdef.h>

#include <atlbase.h>



class BasicScriptHost : public IActiveScriptSite

{



    // IActiveScriptSite

    STDMETHOD(GetItemInfo)(LPCOLESTR /*pstrName*/, DWORD 

/*dwReturnMask*/,

        IUnknown **ppiunkItem, ITypeInfo **ppti)

    {

        *ppiunkItem = NULL;

        *ppti = NULL;

        return S_OK;

    }



    STDMETHOD(OnScriptError)(IActiveScriptError *pscripterror)

    {

        return S_OK;

     }



    STDMETHOD(GetLCID)(LCID *plcid)

    {

        *plcid = NULL;

        return E_NOTIMPL;

    }



    STDMETHOD(GetDocVersionString)(BSTR* pbstrVersion)

    {

        *pbstrVersion = NULL;

        return E_NOTIMPL;

    }



    STDMETHOD(OnScriptTerminate)(const VARIANT * /*pvr*/, const EXCEPINFO 

* /*pei*/)

    {

        return S_OK;

    }



    STDMETHOD(OnStateChange)(SCRIPTSTATE /*ssScriptState*/)

    {

        return S_OK;

    }



    STDMETHOD(OnEnterScript)()

    {

        return S_OK;

    }



    STDMETHOD(OnLeaveScript)()

    {

        return S_OK;

    }



public:

    HRESULT Init();



    HRESULT Close();



    HRESULT AddScriptFile(std::string const& file);



    HRESULT GetScriptDispatch(IDispatch** retval);



private:

    // Script Engine Wrapper Interfaces

    CComPtr<IActiveScript> m_pEngine;

    CComPtr<IActiveScriptParse> m_pEngineParse;

};

//Call function part

::CoInitialize(NULL);



BasicScriptHost* host=NULL;



host->AddScriptFile("C:\Users\123.js");

host->Init();



CComPtr<IDispatch> pJs;

host->GetScriptDispatch(&pJs);

CComVariant var1(10);

CComVariant var2(20);

CComVariant ret;

pJs.Invoke2((LPCOLESTR)"add", &var1, &var2, &ret);

host->Close();

::CoUninitialize();

I think this may be because m_pEngine is invalid, but I don't know how to initialize m_pEngine.