LUA与Delphi的基础应用

 Lua基本的用法.
1。 打开Lua: 
var L: Plua_State; //打开Lua L := Lua_open; //这时也可以继续装载Lua标准库 Lua_baselibopen(L); Lua_iolibopen(L); Lua_strlibopen(L); Lua_mathlibopen(L);

2。运行后，必须关掉:
      lua_close(L);

3。 在Lua内增加方法， 用于向宿主程序传递函数参数，如Lua脚本内增加 Print("mrlong") 的Print方法，必须这样定义：
function LuaPrint(L: Plua_State): Integer; cdecl; var I, N: Integer; begin N := lua_gettop(L); //N=获取的函数参数总数目 for I := 1 to N do ShowMessage(lua_tostring(L, I)); Result := 0; end;

Lua脚本中可以使用Print("Hello", "World", "USD")函数，向宿主程序传递数据进行处理。

 

4。在Lua内增加方法，用于将宿主程序的变量传递给Lua时，如GetUserID()，可以这样定义：

function LuaGetUserID(L: Lua_state): integer; cdecl; begin Lua_pushnumber(L,10000000); //返回值为10000000，将30压入栈 //lua_pushstring(L,'USD1000000'); //或者返回'USD1000000' result := 1; //定义返回参数的数量并不是具体值,此时为1 个 end;

Lua脚本中可以使用GetUserID()函数，获取一个值10000000。

5。这时在打开lua后，注册方法:

     Lua_Register(L, 'Print', LuaPrint); 

     Lua_Register(L, 'GetUserID', LuaGetUserID); 

 

6。加载脚本:

//加载脚本 LuaL_loadfile(L, 'TestScript.lua'); //加载脚本文件到内存中 if (Lua_resume(L, 0) <> 0) then begin //执行加载到内存中的脚本 ShowMessage('err'); end;

 

7。取出注册方法的参数: 如右Lua脚本了print("mrlong"); 这时我要取出mrlong 时，则采用。
     S := lua_tostring(L, 1);           //注意这地方是从1开始，不是0与Delphi与C/C++都不一样。/
     if (lua_gettop(L) <> 2) then    //其中lua_gettop(L) 是取出参数的个数据
     luaL_error(L, '参数个数出错');


资源: http://luaforge.net/frs/?group_id=157&release_id=706