delphi – 替换luaL_getMetaTable

概述我想在我的Delphi应用程序中启用Lua-Scripting(Lua 5.1).为此,我使用了Thomas Lavergne的头文件. 现在我尝试在此示例后注册userdata类型：http://www.lua.org/pil/28.2.html 在“新数组函数”中,它使用命令* luaL_getmetatable *. static int newarray (lua_State *L) { 我想在我的Delphi应用程序中启用Lua-Scripting(Lua 5.1).为此,我使用了Thomas Lavergne的头文件.

现在我尝试在此示例后注册userdata类型：http://www.lua.org/pil/28.2.html

在“新数组函数”中,它使用命令* luaL_getMetatable *.

static int newarray (lua_State *L) {  int n = luaL_checkint(L,1);  size_t nbytes = sizeof(NumArray) + (n - 1)*sizeof(double);  NumArray *a = (NumArray *)lua_newuserdata(L,nbytes);  luaL_getMetatable(L,"LuaBook.array");  lua_setMetatable(L,-2);  a->size = n;  return 1;  /* new userdatum is already on the stack */}

不幸的是,* luaL_getMetatable *函数在我的标题文件中标记为旧并注释掉了.我试图再次激活它,但正如预期的那样,我会收到一个错误,因为找不到dll入口点.

这是该示例的Delphi转换(使用另一种非数组数据类型)

Type  tMyType = tWhatever;  pMyType = ^tMyType;{...}Function newusertype(aState : pLua_State) : LongInt; cdecl;  Var    NewData : pMyType;  Begin    Result := 0;    NewData := lua_newuserdata(aState,SizeOf(tMyType ));    NewData^ := GetinitValue;    luaL_getMetatable(aState,'myexcample.mytype'); // Error/unkNown function    lua_setMetatable(aState,-2);    Result := 1;  End;

现在我正在寻找luaL_getMetatable的替代品.我还没有找到任何关于一个的信息.事实上我还没有找到luaL_getMetatable已经过时的任何信息,但似乎是:(.

解决方法 使用lua_newMetatable(aState,’myexample.mytype’).事情是(如果你只想继续,如果Metatable已经存在)你需要评估它是否返回0！如果它返回0,那么它想要创建Metatable …在这种情况下你可以lua_pop(aState,1).

请记住,lua_newMetatable是一个返回Integer的函数(实际上应该是一个布尔值).

否则你可以等几个星期让我发布Lua4Delphi版本2,这使得所有这一切变得非常简单(而Professional版本实际上是通过Lua自动注册Delphi类型和实例)

总结

以上是内存溢出为你收集整理的delphi – 替换luaL_getMetaTable全部内容，希望文章能够帮你解决delphi – 替换luaL_getMetaTable所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。