單獨(dú)用lua是不夠的，這里我簡(jiǎn)單推出cbuilder版本和lua的結(jié)合運(yùn)用例子一篇。
這個(gè)例子是初步實(shí)現(xiàn)了在cbuilder中調(diào)用lua實(shí)現(xiàn)的函數(shù)的例子，同時(shí)，也演示了lua中如何調(diào)用cbuilder中的函數(shù)例子。閑話少說(shuō)，把例子帖上來(lái)。
有幾個(gè)方面要注意，在cbuilder中創(chuàng)建一個(gè)工程，把lua中的src導(dǎo)入進(jìn)來(lái)，其中，要在單元。h文件中做如下聲明
extern "c"{
#include <lua.h>
#include
<lauxlib.h>
#include <lualib.h>
}//end extern "c"
否則編譯時(shí)，cbuilder是不認(rèn)
################################
#include <vcl.h>
#pragma hdrstop
#include
"uni2.h"
//---------------------------------------------------------------------------
#pragma
package(smart_init)
#pragma resource "*.dfm"
tform1
*form1;
//---------------------------------------------------------------------------
__fastcall
tform1::tform1(tcomponent* owner)
: tform(owner)
{
}
/*
提供給lua調(diào)用,有函數(shù)格式要求
在cbuilder中通過(guò)堆棧來(lái)獲得lua的參數(shù)，經(jīng)過(guò)該函數(shù)處理后，
也將按棧方式返回，按左序壓入
通過(guò)lua_gettop獲得調(diào)用函數(shù)的傳入?yún)?shù)個(gè)數(shù)。
第一個(gè)參數(shù)在索引
1 的地方，最后一個(gè)參數(shù)在索引 lua_gettop(l)
處。
返回一個(gè)結(jié)果時(shí)，也是通過(guò)左序壓到堆棧上（第一個(gè)返回值最先壓入），然后返回這些返回值的個(gè)數(shù)。
在這些返回值之下的，堆棧上的東西都會(huì)被
lua 丟掉。
*/
int mytest_call(lua_state *l)
{
int n =
lua_gettop(l);
//typedef double lua_number;
//lua 中數(shù)字的類型。確省是
double ，可以在luaconf.h 中修改它
lua_number sum = 0;
int i;
for (i = 1; i <= n; i++)
{
//lua調(diào)用該函數(shù)參數(shù)時(shí)是從棧上索引為1開(kāi)始
sum +=
lua_tonumber(l, i); // 保證傳入的參數(shù)是數(shù)值類型，否則會(huì)報(bào)錯(cuò)。
}
lua_pushnumber(l, sum);
//返回值壓入棧傳回
return
1;
//返回參數(shù)數(shù)量值
}
/*
調(diào)用lua 中的函數(shù)模式
1.使用lua_getglobal()來(lái)獲得函數(shù)，
2.將參數(shù)壓入堆棧，
3.調(diào)用
lua_pcall()，
4.然后處理結(jié)果。
*/
void __fastcall
tform1::button1click(tobject *sender)
{
//加載后要用lua_resume運(yùn)行.
lua_resume(l,0);
//調(diào)用腳本中函數(shù)
lua_getglobal(l, "lua_func1");
//傳給lua_func1參數(shù)1,參數(shù)2
lua_pushnumber(l,
21);
lua_pushnumber(l, 23);
//調(diào)用lua中函數(shù)，傳入個(gè)參數(shù)，有一個(gè)返回值 ，看lua_call
和lua_pcall區(qū)別
lua_pcall(l, 2, 1, 0);
//取值
lua_number retsum;
//注意返回值是通過(guò)-1來(lái)獲取
retsum = lua_tonumber(l,
-1);
label1->caption =
inttostr((int)retsum);
}
void __fastcall tform1::formclose(tobject *sender, tcloseaction
&action)
{
lua_close(l);
}
void __fastcall tform1::formcreate(tobject
*sender)
{
l =
lua_open();
luaopen_base(l);
luaopen_string(l);
//將主程序中的mytest_call函數(shù)注冊(cè)到lua引擎中,
//腳本用mytest回調(diào)宿主程序
lua_register(l, "mytest",
mytest_call);
//加載腳本
string sfilename =
"lua_test1.lua";
lual_dofile(l,
sfilename.c_str());
}
/*
測(cè)試返回字符串
*/
void __fastcall tform1::button2click(tobject
*sender)
{
//用lua_resume運(yùn)行.
// lua_resume(l,0);
lua_getglobal(l,"lua_fun3");
lua_pushnumber(l,
100);
lua_pcall(l, 1, 1,
0);
label2->caption = lua_tostring(l,
-1);
//測(cè)試調(diào)用lua中全局變量，
lua_getglobal(l,
"retstr");
label3->caption =
lua_tostring(l, -1);
}
############
其中l(wèi)ua_test1.lua測(cè)試文件如下：
retstr="123"
function lua_fun3(ss)
ss
= "aaaaaaaa"
retstr = ss
return ss
end
function lua_func2(val1, val2)
sum = val1+val2
return
sum
end
function lua_func1(val1, val2)
--調(diào)用cbuilder中函數(shù)
val1 =
mytest(val1, val2)
return val1
end
運(yùn)行效果圖：
實(shí)踐源碼見(jiàn)：
http://256617.tomore.com/1/44360.html