如何从 Lua 调用的 Delphi 函数中获取结果答案

【问题标题】：How to get results from a Delphi function called by Lua如何从 Lua 调用的 Delphi 函数中获取结果
【发布时间】：2013-05-06 22:27:24
【问题描述】：

我正在 Delphi 中创建一个函数，以便能够将它与 Lua 一起使用。我已经设法创建了一个程序（或一个没有结果的函数）并且它运行良好。问题是现在我想将该函数的结果（不再是一个过程）从 Delphi 获取到 Lua 中。我已经阅读了一些代码，但无法使其工作。

我的函数如下所示：

function TLuaScripter.getsetting(LuaState: TLuaState):TluaState;
var
path,stri: string; i:integer;
begin           //getsetting('Targeting/TargetingEnabled')

 path := Lua_ToString(LuaState, 1); //we get the string 'Targeting/..." 

 Lua_Pop(LuaState,1); //we put it in stack (so we can clean it)

 stri:= tree.GETsetting(path); //this function gets, for example "No"

 lua_pushlstring(LuaState,Pansichar(ansistring(stri)),length(stri)); //I pass it to the lua stack

 //showmessage(Lua_ToString(LuaState,1));--> this shows the result I need in a msgbox

 result:= LuaState;
end;

所以现在如果我在我的 Lua 控制台中使用

getsetting('Targeting/TargetingEnabled')

我能够在 msgbox 中获得结果（取消注释“Showmessage...”），但该函数在 Lua 中不返回任何内容！如果我写

print(getsetting('Targeting/TargetingEnabled'))

我在 Lua 中得到一个 Nil 值。

【问题讨论】：

您应该注册一个lua_CFunction 类型的函数，它返回推入堆栈的结果数。因此，将返回类型更改为Integer 并正确设置返回值result:=1;。顺便说一句，lua_pop 清理堆栈是可选的。
正确函数声明示例：function getsetting(L: Plua_State): Integer; cdecl;
我做了以下事情： - 将返回类型从 TLuaState 更改为 Integer。 - 将结果值更改为 1。 - 另外，我已经删除了 lua_pop，就像你说的那样，它现在就像那样工作，但它不适用于函数中的“cdecl”。为什么需要它？关于“lua_CFunction”，如果我真的可以打印像“print(getsetting(...))”这样的值，为什么我们需要这个？感谢您的帮助。
只有符合 lua_CFunction 的函数才能从 Lua 代码中获得。请在注册函数的位置显示您的代码TLuaScripter.getsetting。
没问题，现在可以正常使用了。非常感谢！

标签： delphi lua return

【解决方案1】：

它会完美地配合这个。我们刚刚将结果添加为整数和“result:=1”

function TLuaScripter.getsetting(LuaState: TLuaState): integer;
var
  path,stri: string;
  i: integer;
begin           //getsetting('Targeting/TargetingEnabled')
  path := Lua_ToString(LuaState, 1);
  stri:= tree.GETsetting(path);
  lua_pushlstring(LuaState,Pansichar(ansistring(stri)),length(stri));
  result:= 1;
end;

【讨论】：