lua加载DLL

Posted 2021-12-16 gd-luojialin

.cpp

 

//若没有在项目属性--库文件、依赖文件、包含添加。则添加一下路径

#pragma  comment (lib,"lua5.1.lib")

 

#include "stdafx.h"

#include "lua.hpp"

 

extern "C"

#include "lua.h" 

#include "lualib.h" 

#include "lauxlib.h" 

 

static int MyLuaDLL_HelloWorld(lua_State* L)

      MessageBoxA(NULL,"Hello","World",MB_OK);

      return 0;

 

static int MyLuaDLL_average(lua_State *L)

      int n = lua_gettop(L);

      double sum = 0;

      int i;

      for (i = 1; i <= n; i++)

     

           sum += lua_tonumber(L, i);

     

      lua_pushnumber(L, sum / n);

      lua_pushnumber(L, sum);

      //2代表返回2个参数

      return 2;

 

//当lua使用MyLuaDLL.HelloWorld时，响应函数MyLuaDLL_HelloWorld

static const luaL_reg MyLuaDLLFunctions [] =

      "HelloWorld",MyLuaDLL_HelloWorld,

      "average",MyLuaDLL_average,

      NULL,NULL

;

 

/*此处导出函数luaopen_MyLuaDLL。其中MyLuaDLL要与.exe程序名一致

  若lua用dofile调用dll必须一致，若lua用loadlib加载dll可不一致

  luaL_register(L, "MyLuaDLL", MyLuaDLLFunctions); 中的MyLuaDLL，用于给lua调用DLL中的函数，类似外放对象。

*/

extern "C"  __declspec(dllexport) int luaopen_MyLuaDLL(lua_State* L)

      luaL_register(L, "MyLuaDLL", MyLuaDLLFunctions);

      return 1;

 

BOOL APIENTRY DllMain( HMODULE hModule,

                       DWORD  ul_reason_for_call,

                       LPVOID lpReserved

                             )

      switch (ul_reason_for_call)

     

      case DLL_PROCESS_ATTACH:

           //printf("Process attach. \n");

           break;

      case DLL_PROCESS_DETACH:

           //printf("Process detach. \n");

           break;

      case DLL_THREAD_ATTACH:

           //printf("Thread attach. \n");

           break;

      case DLL_THREAD_DETACH:

           //printf("Thread detach. \n");

           break;

     

      return (TRUE);

 

 

.lua

--Lua_Dll.dll必须放在luajit同一目录下

local testlib = package.loadlib("Lua_Dll.dll","luaopen_MyLuaDLL");   --获取DLL中抛出函数地址

print (testlib)

if(testlib)then

    testlib();  --调用DLL中抛出函数

else

    -- Error

end

 

MyLuaDLL.HelloWorld();

 

a,b=MyLuaDLL.average(23,33,3344);

print("average:",a,"sum:",b);