请选择 进入手机版 | 继续访问电脑版
  • 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

使用delphi开发web(三)动态脚本里面使用数据库

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

在主程序里面把数据库访问控件设置并注册好,在脚本里面使用数据库就非常简单。

可以类似下面的脚本访问数据库。

<%
uses SysUtils, Classes;
var
   aaa,rndnum,bb:string;
   i,num:integer;
 
begin

 with cx do
    begin
        sql.clear;
        sql.add('select * from soft');
        open;
      while not cx.eof do
      begin
           print(fields[2].asstring);  

            print('<br>');
           next;
      end;
        
    end;
 end.
%>

    要实现数据库访问,我们采用的是Devart 公司的数据库访问控件。该公司有单独访问

oracle,sql server,my sql,interbase 的控件,也有UniDac 控件可以同时访问包括以上数据库

的其他数据库,例如db2,access,sqllite 等。这个公司出品的数据库访问数据库非常快,也比较稳定

更新迅速,能够很快支持最新的数据库系统。尤其是对oracle 的支持,可以直接使用TCP/IP协议

连接oracle 数据库,免去了安装客户端的麻烦,使web 服务器几乎可以实现零配置。原来的delphi 窑洞

就是使用ODAC 连接oracle 11g 的。

  确定了数据库访问控件,我们就可以在webbroke 里面设置和处理数据库访问功能。

在webbroke 设置界面放一个Torasession.并设置使其可以访问你的数据库。

并定义两个新类

 type
  Twebquery = class(ToraQuery);
  Twebsql=class(TOraSQL);
这两个类其实就是为了以后随时更换为其他数据库访问控件,保证脚本不用修改

就可以正常运行。

初始化里面加入Twebquery 的脚本注册

  g_UnitList := TUnitList.Create;
  g_UnitList.AddClass(Twebquery);
  g_UnitList.Sort;

  RegisterUnits(g_UnitList, GlobalImportTable);

在webmodule 的建立事件里生成两个Twebquery,以方便在脚本里面直接使用。

procedure Twm.WebModuleCreate(Sender: TObject);
begin
   scx:=TwebQuery.Create(self);
   zcx:=TwebQuery.Create(self);
   scx.Session:=dbS;
   zcx.Session:=dbS;
end.

并在解释脚本前把其实例到脚本运行时可以访问。

     show.WebScripter.Scripter.Reset;
      show.WebScripter.Scripter.RegisterVariable(0,'request:TWebRequest;',@Request);
      show.WebScripter.Scripter.RegisterVariable(0,'response:TWebResponse;',@Response);
      show.WebScripter.Scripter.RegisterVariable(0,'wm:Twm;', @self);
      show.WebScripter.Scripter.RegisterVariable(0,'cx:Twebquery;' ,@scx);
      show.WebScripter.Scripter.RegisterVariable(0,'zcx:Twebquery;' ,@zcx);

以上基本上就可以实现直接在脚本里面直接访问数据库了。

使用以下URL 访问 http://127.0.0.1/web?path=test

怎么样很简单吧,系统默认可以直接使用连个查询控件,cx 和zcx.

如果你需要更多的查询的,可以直接使用

myquery :=wm.newquery;

使用后都不需要free,系统在执行完自动会销毁这些对象的。

 

 



 

 





鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
DelphiRefactor重构发布时间:2022-07-18
下一篇:
delphiBase64编码/解码及数据压缩/解压知识发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap