#----------------------------
#
#例子
#
# 调用DLL 及连接数据库
# 2006 草莓
#----------------------------
# 申明 extdll.dll 的两个函数 .
extern int Min(int x,int y);
extern int Max(int x,int y);
static z;
# 初始化extdll.dll.
function init_dll(lib_path)
{
load_dll (lib_path & "\\extdll.dll");
return(E_OK);
}
# 加载 extdll.dll
init_dll("g:\\out");
# 调用Ｄｌｌ方法l
z = Min(3,5);
pause(z);
# 释放 extdll.dll
unload_dll("g:\\out\\extdll.dll");
# 建立数据库连接
db_connect("query1","DSN=pw");
# 执行查询
db_execute_query ("query1","SELECT * FROM AS_folders",record_number);
val = db_get_field_value("query1","#1","#2");
pause(val);
# 获取行
db_get_row("query1",5,row_content);
#split(row_content, line_arr, "\t");
pause(row_content);
# 获取字段
db_get_headers ("query1",field_num,headers);
pause(field_num);
pause(headers);
#写查询记录到文本
db_write_records("query1","G:\\query1.txt",TRUE, NO_LIMIT);
# 比较文件
file_compare("g:\\w.txt","g:\\w1.txt","save");
#
#例子
#
# 调用DLL 及连接数据库
# 2006 草莓
#----------------------------
# 申明 extdll.dll 的两个函数 .
extern int Min(int x,int y);
extern int Max(int x,int y);
static z;
# 初始化extdll.dll.
function init_dll(lib_path)
{
load_dll (lib_path & "\\extdll.dll");
return(E_OK);
}
# 加载 extdll.dll
init_dll("g:\\out");
# 调用Ｄｌｌ方法l
z = Min(3,5);
pause(z);
# 释放 extdll.dll
unload_dll("g:\\out\\extdll.dll");
# 建立数据库连接
db_connect("query1","DSN=pw");
# 执行查询
db_execute_query ("query1","SELECT * FROM AS_folders",record_number);
val = db_get_field_value("query1","#1","#2");
pause(val);
# 获取行
db_get_row("query1",5,row_content);
#split(row_content, line_arr, "\t");
pause(row_content);
# 获取字段
db_get_headers ("query1",field_num,headers);
pause(field_num);
pause(headers);
#写查询记录到文本
db_write_records("query1","G:\\query1.txt",TRUE, NO_LIMIT);
# 比较文件
file_compare("g:\\w.txt","g:\\w1.txt","save");
本文转自 fish_yy 51CTO博客，原文链接：http://blog.51cto.com/tester2test/137378，如需转载请自行联系原作者
