DELPHI中集成LUA脚本学习笔记2_调用LUA函数(详)

详细研究了一下主程序调用LUA函数的细微过程,顺便写一点心得
调用LUA函数

function add(x, y)
 return x+y
end

在已经打开LUA库并装载了脚本后主程序使用以下方法调用

lua_getglobal(L, "add");//压入被调用的LUA中函数名add
lua_pushnumber(L, x); //压入add的第1个参数
lua_pushnumber(L, y); //压入add的第2个参数

然后使用lua_pcall来调用

if (lua_pcall(L, 2, 1, 0) <> 0) then
begin
 showmessage(format('错误 f: %s',[lua_tostring(L, -1)]);
end;

上面这个IF是判断lua_pcall调用是否正确,在正确情况下lua_pcall会返回0,
如果出错会返回错误信息lua_tostring(L, -1){错误信息会保存在这里}

当然你还可以用lua的api来判断返回变量类型,来做数据检查.

if not lua_isnumber(L,-1) then
 showmessage('返回数据不是数字!!');

在没有错误后,lua_tonumber(L, -1)的值就是LUA中add函数返回的内容了.

c := lua_tonumber(L, -1);
//最后使用
lua_pop(L, 1);  //出栈,压入几个就出几个,参数2

 

注:细心的朋友会发现在lua_pcall调用后出错的错误信息lua_tostring(L, -1)
和add函数返回的结果lua_tonumber(L, -1) 是一样的"-1".为什么会这样呢?
原因在于LUA和主程序交换数据的时候所有值都是在栈中保存的.如果在调