Lua语言如何调用自己编写的C DLL -- 转

Lua语言如何调用自己编写的C DLL文件

#include "lua.h"
#include "lualib.h"
#include "lauxlib.h"
#include <windows.h>

static int MyLuaDLL_HelloWorld(lua_State* L)
{
     MessageBox(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);
    
     return 2;
}

static const luaL_reg MyLuaDLLFunctions [] =
{
     {"HelloWorld",MyLuaDLL_HelloWorld},
     {"average",MyLuaDLL_average},
     {NULL, NULL}
};

int __cdecl __declspec(dllexport) luaopen_MyLuaDLL(lua_State* L)
{
     luaL_openlib(L, "MyLuaDLL", MyLuaDLLFunctions, 0);
     return 1;
}
 
-- lua code: --

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);
--------------------------------------------
my.c文件：

#include "stdafx.h"
#include <stdio.h>
#include "my.h"

static int pri(lua_State *L)
{ 
 MessageBox(NULL,"Hello","this is a c program!",MB_OK);
 return 0;
}

static const struct luaL_Reg mylib[]={
 {"pri",pri},
 {NULL,NULL}
};

__declspec(dllexport) int luaopen_mylib (lua_State* L)
{
 luaL_register(L,"mylib",mylib);
 return 1;
}

my.h文件：

#include "lua.h" 
#include "lualib.h"
#include "lauxlib.h"
#pragma   comment(lib,"lua5.1.lib")

test.lua文件：

local a=package.loadlib("my.dll","luaopen_mylib");

a()
mylib.pri()