难道是LuaPlus不支持多线程程序吗?
我成功编译了LuaPlus5.01,写了一个简单的lua文件——TestLua.lua:
health = 200;
然后编了一个控制台程序来测试它,代码如下:
#include <stdlib.h>#include <windows.h>#include <tchar.h>#include <iostream>using namespace std;#include <string>#include "../LuaPlus/LuaPlus.h"using namespace LuaPlus;int main(){ TCHAR szModulePath[_MAX_PATH]; ::GetModuleFileName(NULL,szModulePath,_MAX_PATH); std::string strBinPath = szModulePath; strBinPath = strBinPath.substr(0,strBinPath.rfind('\\')+1); std::string LusFilePath = strBinPath + std::string(_T("TestLua.lua")); LuaStateOwner state; // 执行Lua脚本,返回值表示执行成功 int iret = state->DoFile(LusFilePath.c_str()); if (0!=iret) { return 1; } // 获取生命值 int nMyHealth = state->GetGlobal("health").GetInteger(); cout<<_T("玩家的生命值还有")<<nMyHealth<<std::endl; system("pause"); return 0;}#include <windows.h>#include <tchar.h>using namespace std;#include <string>#include "../LuaPlus/LuaPlus.h"using namespace LuaPlus;/* Declare Windows procedure */LRESULT CALLBACK WindowProcedure (HWND, UINT, WPARAM, LPARAM);/* Make the class name into a global variable */char szClassName[ ] = "CodeBlocksWindowsApp";int WINAPI WinMain (HINSTANCE hThisInstance, HINSTANCE hPrevInstance, LPSTR lpszArgument, int nCmdShow){ TCHAR szModulePath[_MAX_PATH]; ::GetModuleFileName(NULL,szModulePath,_MAX_PATH); std::string strBinPath = szModulePath; strBinPath = strBinPath.substr(0,strBinPath.rfind('\\')+1); std::string LusFilePath = strBinPath + std::string(_T("TestLua.lua")); LuaStateOwner state; // 执行Lua脚本,返回值表示执行成功 int iret = state->DoFile(LusFilePath.c_str()); if (0!=iret) { return 1; } // 获取生命值 int nMyHealth = state->GetGlobal("health").GetInteger(); HWND hwnd; /* This is the handle for our window */ MSG messages; /* Here messages to the application are saved */ WNDCLASSEX wincl; /* Data structure for the windowclass */ /* The Window structure */ wincl.hInstance = hThisInstance; wincl.lpszClassName = szClassName; wincl.lpfnWndProc = WindowProcedure; /* This function is called by windows */ wincl.style = CS_DBLCLKS; /* Catch double-clicks */ wincl.cbSize = sizeof (WNDCLASSEX); /* Use default icon and mouse-pointer */ wincl.hIcon = LoadIcon (NULL, IDI_APPLICATION); wincl.hIconSm = LoadIcon (NULL, IDI_APPLICATION); wincl.hCursor = LoadCursor (NULL, IDC_ARROW); wincl.lpszMenuName = NULL; /* No menu */ wincl.cbClsExtra = 0; /* No extra bytes after the window class */ wincl.cbWndExtra = 0; /* structure or the window instance */ /* Use Windows's default colour as the background of the window */ wincl.hbrBackground = (HBRUSH) COLOR_BACKGROUND; /* Register the window class, and if it fails quit the program */ if (!RegisterClassEx (&wincl)) return 0; /* The class is registered, let's create the program*/ hwnd = CreateWindowEx ( 0, /* Extended possibilites for variation */ szClassName, /* Classname */ "Code::Blocks Template Windows App", /* Title Text */ WS_OVERLAPPEDWINDOW, /* default window */ CW_USEDEFAULT, /* Windows decides the position */ CW_USEDEFAULT, /* where the window ends up on the screen */ 544, /* The programs width */ 375, /* and height in pixels */ HWND_DESKTOP, /* The window is a child-window to desktop */ NULL, /* No menu */ hThisInstance, /* Program Instance handler */ NULL /* No Window Creation data */ ); /* Make the window visible on the screen */ ShowWindow (hwnd, nCmdShow); /* Run the message loop. It will run until GetMessage() returns 0 */ while (GetMessage (&messages, NULL, 0, 0)) { /* Translate virtual-key messages into character messages */ TranslateMessage(&messages); /* Send message to WindowProcedure */ DispatchMessage(&messages); } /* The program return-value is 0 - The value that PostQuitMessage() gave */ return messages.wParam;}/* This function is called by the Windows function DispatchMessage() */LRESULT CALLBACK WindowProcedure (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam){ switch (message) /* handle the messages */ { case WM_DESTROY: PostQuitMessage (0); /* send a WM_QUIT to the message queue */ break; default: /* for messages that we don't deal with */ return DefWindowProc (hwnd, message, wParam, lParam); } return 0;}