我能否在Delphi中使用自定义函数停止Lua脚本而不退出应用程序?

我有一个应用程序,定期运行 Lua 脚本。在脚本内,有时我会创建一个自定义注册的 Lua 函数来检查一些参数,并决定 Lua 脚本是否应该继续或退出。理想情况下,逻辑不应该是脚本的一部分,我可以想到使用一个 Lua 脚本来解决这个问题,但我想知道是否可以停止 Lua 脚本的执行而不终止应用程序。

我有一个自定义函数,使用 Lua 5.1 编写并暴露给 Lua 脚本使用。Lua 脚本类似于下面的示例,并且使用 luaL_loadbuffer 启动 Lua 脚本。

io.write("Script starting\n");
--Custom Function
ExitIfFound();
io.write("Script continuing\n");

我的自定义函数类似于下面的函数。下面我提供了一个尝试,其中我尝试使用 lua_error 来停止脚本...

function ExitIfFound(LuaState: TLuaState): Integer;
var
  s: AnsiString;
begin
  s := 'ExitIfFound ending script, next Lua script line not called';
  lua_pushstring(LuaState, PAnsiString(s));
  lua_error(LuaState);
end;

当我的自定义函数被调用时,我不确定如何退出 Lua 脚本而不进行任何进一步的评估。我已经看到了关于 Lua 的帖子,并在 C 中使用 setjmplongjmp,但我好奇这些如何在 Delphi 中翻译。

在上面的示例中,当我使用 lua_error 时,整个程序会崩溃,Windows 会进行典型的 [luarun.exe 已停止工作] ...

在这一切中,我仍然是集成 Lua 到 Delphi 的新手,希望我能找到一些更清洁的选项来探索。

点赞
用户33732
用户33732

没有干净的方式完全中止 Lua 脚本。lua_error 函数是发出错误信号的正确方式。调用者有责任捕获错误并将其传播到下一个调用者。

如果您无法依赖调用者来配合,那么可以通过安装调试钩子来尝试更多地控制。然后,主机程序将在继续运行脚本之前咨询。但是,脚本仍然可以使用 pcall 来捕获任何错误以避免退出

您程序中的崩溃可能不仅是由于设置错误。相反,这可能是由于在 ExitIfFound 函数中使用了错误的调用约定导致的。它需要是 cdecl,但是如果您未指定其他任何内容,则 Delphi 的默认调用约定是寄存器。使用错误的调用约定将给您带来不可预测的参数值,并可能导致受损的堆栈。如果您对函数进行了类型转换或在调用 lua_register 时使用了 @ 运算符,则可能已将调用约定不匹配从编译器类型检查器中隐藏,否则编译器将在编译时向您发出警告。

在编译为 C++ 时,lua_error 将使用异常而不是 longjmp,但无论如何,调用者始终捕获错误。当 Delphi 代码使用编译器管理的类型(如string)或异常敏感结构(如 try- finally 块)时,异常很重要。在 C 模式下,lua_error 调用 longjmp 来直接跳转到之前通过调用 setjmp 设置的航路点。该跳转将跳过任何异常处理程序,如 Delphi 编译器设置的确保运行 finally 块和清理字符串的处理程序。

更进一步的问题是,由于编译器在退出函数时清除了字符串,因此您放在 Lua 栈上的指针在使用时可能无效;这取决于 lua_pushstring 是否复制其参数。

2012-11-29 00:12:48