VC和LUA混合开发之VC程序调用Lua脚本函数

    /**
    * \brief LUA 虚拟机指针。
    */
    lua_State *m_plua;
    /**
    * \brief 加法运算的左操作数。
    */
    int m_nLeftNum;
    /**
    * \brief 加法运算的左操作数。
    */
    int m_nRightNum;
    /**
    * \brief 加法运算的结果。
    */
    long m_nResult;

/*!
*  \brief 初始化Lua虚拟机。
*
*  \return 无。
*/
void CCalcDlg::InitLuaState()
{
    m_plua = lua_open(); 
    if(NULL!=m_plua)
    {
        luaopen_base(m_plua);
        luaopen_table(m_plua);
        luaopen_string(m_plua);
        luaopen_math(m_plua);
        luaopen_debug(m_plua);
    } 
}

void CCalcDlg::OnDestroy()
{
    CDialog::OnDestroy();

    // TODO: 在此处添加消息处理程序代码
    lua_close (m_plua); 
}

void CCalcDlg::OnBnClickedOk()
{
    // TODO: 在此添加控件通知处理程序代码
    UpdateData(TRUE);

    StackDump(m_plua); 
    string strLuaFile = _T("");
    GetLuaFile(strLuaFile);  // 得到lua脚本文件全路径
    luaL_dofile(m_plua,strLuaFile.c_str());     // 解释分析lua文件
    StackDump(m_plua);
    lua_getglobal(m_plua,_T("add"));       // 取到一个全局标号add，取的同时会把add函数压栈
    StackDump(m_plua);   
    lua_pushnumber(m_plua,m_nLeftNum);        // 把第一个参数压入栈里
    StackDump(m_plua);
    lua_pushnumber(m_plua,m_nRightNum);        // 第二个参数压栈
    StackDump(m_plua);
    if(lua_pcall(m_plua,2,1,0)!= 0)        // 执行add函数
    {
        AfxMessageBox(_T("调用lua脚本函数失败"));            
        return;
    }
    StackDump(m_plua);
    m_nResult = (int)lua_tonumber(m_plua, -1);        // 函数执行完了，执行结果被压栈，所以取得最顶端的一个数就是结果值，-1就是指取栈顶的值
    StackDump(m_plua);
    lua_pop(m_plua,1);      // 把值从栈里清除，pop（弹出）一个值
    StackDump(m_plua); 
    UpdateData(FALSE);
}