[code test.lua檔案]
function GetAlbums(param,url){
albums = {}
return album
}
[delphi 代碼]
function lua_GetAlbums(a,b:pAnsiChar):pAnsiChar;
var
Lua : TLua;
begin
Lua := TLua.Create(); // 創建一個 TLua 物件
luaopen_os(Lua.LuaInstance);
luaopen_string(Lua.LuaInstance);
luaopen_table(Lua.LuaInstance);
//luaopen_os();
//luaopen_string();
//luaopen_table();
Lua.DoFile('test.lua'); // 對應 test.lua 檔案
//
//if (Lua_resume(Lua, 0) <> 0) then begin //執行加載到記憶體中的腳本
// ShowMessage('err');
//end;
//
lua_getglobal(Lua.LuaInstance,'GetAlbums');// 對應 test.lua 中的 add 函式
lua_pushstring(Lua.LuaInstance, a); // 把 sum 函式需要的引數 a 壓堆疊
lua_pushstring(Lua.LuaInstance, b); // 把 sum 函式的需要引數 b 壓堆疊
//lua_pushnumber(Lua.LuaInstance, a); // 把 sum 函式需要的引數 a 壓堆疊
//lua_pushnumber(Lua.LuaInstance, b); // 把 sum 函式的需要引數 b 壓堆疊
lua_pcall(Lua.LuaInstance,2,1,0) ; // sum 函式呼叫，2表示有2個引數，1表示有一個回傳值
//Result := integer(lua_toInteger(Lua.LuaInstance,-1));
Result := lua_tolstring(Lua.LuaInstance,-1,'1');
//..... 按理說還應該清堆疊，不過先不管
Lua.Free;
end;
這里的lua_tolstring要怎么寫 一呼叫就報錯
不知道lua_GetAlbums這個函式寫錯沒有
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/74536.html