WR中调用dll及连接数据库扩展测试功能的用法

#----------------------------
[
p1QIY,e,ID0#51Testing软件测试网:|A uR%I/M6X'r
#例子51Testing软件测试网8v.kg g0t/b
#
_?;|HS8x%R0# 调用DLL 及连接数据库
%H*b(AJB0#　2006　草莓
qPg@ }2J/y u+Ov3o0#----------------------------51Testing软件测试网J6JZJ \
# 申明 extdll.dll　的两个函数 .
/?E#ZI1\X1a#\0extern int Min(int x,int y);51Testing软件测试网pt2t/e3BYY!\
extern int Max(int x,int y);51Testing软件测试网2VWX&m{9p
static z;51Testing软件测试网gs:](omq

._V Eko/nhI+M4h[0# 初始化extdll.dll.51Testing软件测试网HG4O6G`q#L
  function init_dll(lib_path)
"i^Ed3Ol6J%cq0  {
]+Rmn%FI0        load_dll (lib_path & "\\extdll.dll");51Testing软件测试网0u8u!N4f J:J8L
    return(E_OK);51Testing软件测试网\u Q7@ W,uiu
  }51Testing软件测试网5hoM ku[d#U t/o8]
# 加载 extdll.dll
b b{1c f rYIc0  init_dll("g:\\out");51Testing软件测试网$d v;Jn!~bXW1\
# 调用Ｄｌｌ方法l  51Testing软件测试网*Zmo)kj$D qq
  z = Min(3,5);51Testing软件测试网#x+\g O Ox+~S)}6k
  pause(z);
e&d7C,BH2WW.pu"FK0# 释放 extdll.dll51Testing软件测试网wao3j%~D)L5lYaE8^
  unload_dll("g:\\out\\extdll.dll");51Testing软件测试网&oolIl'c8Ypv
51Testing软件测试网.hZ tc|$IM'[?
# 建立数据库连接51Testing软件测试网0x'\/` a(Ow$S0An\
  db_connect("query1","DSN=pw");
].WCGW0# 执行查询51Testing软件测试网6b6Q-E7@`*C
  db_execute_query ("query1","SELECT * FROM AS_folders",record_number);51Testing软件测试网dxj ?;F
  val = db_get_field_value("query1","#1","#2");51Testing软件测试网8q.].g9uRvt |
  pause(val);51Testing软件测试网2C~P9x5q8^g
# 获取行51Testing软件测试网4Am
emYh
  db_get_row("query1",5,row_content);51Testing软件测试网-e)A0_0z-|6I
  #split(row_content, line_arr, "\t");
of1v6~q0  pause(row_content);51Testing软件测试网5d]|7R\Snh
# 获取字段51Testing软件测试网.yMayOc [
  db_get_headers ("query1",field_num,headers);51Testing软件测试网_4GLCI[y3\/e*t
  pause(field_num);
S,p7aQ ngH0  pause(headers);51Testing软件测试网(cD D*CE$_8G%\vgr
#写查询记录到文本  
cJP)v8hqpb1|0db_write_records("query1","G:\\query1.txt",TRUE, NO_LIMIT);51Testing软件测试网;E|8y+]H&T}
# 比较文件51Testing软件测试网 TmJ9~9v3a
  file_compare("g:\\w.txt","g:\\w1.txt","save");