Delphi 替换luaL_getMetaTable
我想在我的Delphi应用程序中启用Lua脚本(Lua5.1)。为此,我使用Thomas Lavergne的头文件 现在,我尝试按照以下示例注册userdata类型: 在“新数组函数”中,它使用命令*luaL\u getmetatable*Delphi 替换luaL_getMetaTable,delphi,lua,Delphi,Lua,我想在我的Delphi应用程序中启用Lua脚本(Lua5.1)。为此,我使用Thomas Lavergne的头文件 现在,我尝试按照以下示例注册userdata类型: 在“新数组函数”中,它使用命令*luaL\u getmetatable* static int newarray (lua_State *L) { int n = luaL_checkint(L, 1); size_t nbytes = sizeof(NumArray) + (n - 1)*sizeof(double);
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*函数在我的头文件中被标记为al old并被注释掉。我试图再次激活它,但正如预期的那样,我将得到一个错误,因为无法找到dll入口点
这是该示例的Delphi翻译(使用另一个非数组数据类型)
现在我正在寻找luaL_getMetaTable的替代品。我还没有找到任何关于它的信息。事实上,我还没有发现任何关于luaL_getMetaTable过时的信息,但它似乎是:(。使用lua_newmetatable(aState,'myexample.mytype')
。问题是(如果您只想在metatable已经存在的情况下继续)您需要评估它是否返回0!如果它返回0,则它希望创建元表…在这种情况下,您可以lua\u pop(aState,1)
请记住,lua_newmetatable
是一个返回整数(实际上应该是布尔值)的函数
否则,您可以等我发布Lua4Delphi版本2几周,这使所有这些都变得非常简单(专业版实际上可以自动向Lua注册Delphi类型和实例)您可以尝试此包装器或此处列出的其他包装器。感谢您提供的“BindingCodeToLua”我已经回顾了大多数与Delphi相关的包装。它们中的大多数与Thomas Lavergne的包装相同或更少,但是示例和“扩展”Lua4Delphi的版本很有趣。thx,我会关注你的项目。完成后可能会成为一个选项。不用担心!库和所有包装单元都是100%免费的!核心是封闭源代码,但包装单元是完全开放源代码的。这不是我想宣传的,但对你来说可能真的很有用:我正在运行一个筹款活动(有点像为发展提供资金的预购活动)…你可以花50英镑获得完整的pro许可证:)
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;