客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
1. delphi相关代码： 引用lua相关单元： uses lua, lualib, lauxlib; 定义全局变量: var L: Plua_State; lua初始化操作： L := lua_open; luaopen_string(L); lua_settop(L, 0); lua_register(L, 'print', luaPrint); //建立 lua脚本命令print与 函数 luaPrint之间绑定关系 可直接放到单元的 initialization 段执行； 定义lua脚本引用的预定义函数: function luaPrint(lua_state: plua_state): Integer; cdecl; var N: Integer; s: string; begin N := lua_gettop(L); //获取传人参数个数 s := lua_tostring(L, 1);//这里 print函数只传人1个字符串参数 ShowMessage(s); Result := 0; end; 执行lua脚本文件： luaL_loadfile(L, 'my.lua'); //加载lua脚本文件 lua_pcall(L, 0, 0, 0); // 执行lua脚本 释放lua解析器（finalization 段）： finalization if L <> nil then lua_close(L); //关闭 2. my.lua 脚本文件内容： print("HelloWorld for lua")
3. 执行结果： 弹窗显示"HelloWorld for lua"文字。 4. 分析： 执行lua脚本中的print函数时，执行delphi中定义的关联函数luaPrint（lua_register定义的）。
|
请发表评论