用delphi+Apache 开发动态网站(二)

shaerzzr

-------创建数据库应用
　　时间过的真快，距离上次写Delphi+Apache 开发动态网站已经快一年了，Borland 的Delphi 7都发布快半年了，一直没有时间静下写文章，今天就写一下怎么创建数据库应用,其实网站的数据库和普通的客户端应用差不多，唯一的不同就是那些可视化控件不能再用了，虽然delphi 6 和7里面提供的websnap 功能比较强大，但是在实际应用中定制性太差，可控制的东西复杂，因此本文还是以web broker 为例。
　　一般的网页都是以上、中、下来设计的，即上面是基本固定的LOGO 和联接部分，中间是内容部分，下面是版权等基本信息，因此我们可以把网页分成三部分，即上、中、下部分，由于上、下部分相对固定，我们就建立两个PageProducer1 元件与之相对应，中间的部分再根据情况动态设定。
　　我们以delphi 7 和 apache 2.0.43 和 Interbase为例，delphi7 不支持 Apache 2.0.43 ,具体解决办法请看我的文章使Delphi 6 支持Apache 2.0。首先建立web server 应用程序。如图一，

　　这样就建立起一个Apache 2.x 的 DSO 模块，放置dbexpress 数据库联接和访问控件和PageProducer 元件，如图二,

　　并保证 Dbexpress 控件可以正常访问数据库，具体访问方式超出本文章范围，这里不再详细讨论。在Apache  2 的主目录(一般为htdocs目录)建立一下两个文件，title.html,foot.html.
　　title.html:
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　用户名
　　密码
　　
　　
　　 注册新用户
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　当前人数:
　　
　　
　　
　　
　　
　　
　　
　　
　　  首页  ｜
　　  软件下载  ｜
　　  技术资料  ｜
　　  技术文章  ｜
　　  网络资源  ｜
　　  技术论坛  ｜
　　  给我留言  
　　
　　
　　
　　
　　foot.html:
　　
　　           
　　           
　　           
　　谢谢光临         
　　           
　　           
　　给我留言         
　　返回主页         
　　给我写信         
　　         
　　         
　　         
　　1999-2001 delphi 窑洞              
　　copyright            
　　            
　　窑洞洞主：xalion     合作伙伴:阿土           
　　
　　  
　　
　　
　　好，开始我们的程序之旅：
　　系统常量:
　　const
　　chweek:array [1..7]of string[2]=('日','一','二','三','四','五','六');
　　defpathname:string='d:/Apache Group/Apache2/htdocs';
　　defsoftpath:string='ftp://202.117.213.5/file/';
　　defbookpath:string='ftp://202.117.213.5/book/';
　　gridhead:string=' ';
　　gridheadline:string='  ';
　　gridline:string=' ';
　　gridtdhead:string=' ';
　　gridtdheadnowrap:string=' ';
　　gridtdend:string=' ';
　　webModule 的建立事件:
　　procedure Twm.WebModuleCreate(Sender: TObject);
　　var
　　fconfig:Tinifile;
　　bbsopen:string;
　　fname:pchar;
　　path:string;
　　begin
　　getmem(fname,256);
　　GetModuleFileName( 0,fname,256);
　　path:=ExtractFilePath(fname);
　　Freemem(fname);
　　看是否有设置文件
　　fconfig:=Tinifile.create(path+'51delphi.ini');    //in folder
　　pathname:=fconfig.readstring('PATH','HTMLROOT',defpathname);
　　softpath:=fconfig.readstring('PATH','SOFTPATH',defsoftpath);
　　bookpath:=fconfig.readstring('PATH','BOOKPATH',defbookpath);
　　// defpathname);
　　fconfig.Free;
　　title.HTMLFile:=pathname+'/title.html';
　　foot.HTMLFile:=pathname+'/foot.html';
　　center.HTMLFile:=pathname+'/center.html';
　　bookpage.HTMLFile:=pathname+'/book.html';
　　
　　end;
　　
　　在title 的onhtmltag 事件写：
　　var
　　yy,mm,dd:word;
　　s,img,rc:string;
　　i:integer;
　　sip:string;
　　allnum:integer;
　　begin
　　// 加入IP 计数
　　if  tagstring='getalluser' then
　　begin
　　sip:=request.RemoteAddr;  //浏览器地址
　　with cx do
　　begin
　　sql.Clear;
　　SQL.Add('select max(id)+1 AS NUM  from ip '); //取最大IP 值
　　OPen;
　　allnum:=fields[0].asinteger;
　　sql.Clear;
　　SQL.Add('select max(iptime) as iptime from ip where ip='''+sip+'''');  // 是否访问过本站
　　OPen;
　　if Isempty then
　　//没有访问过本站
　　begin
　　SQL.Clear;
　　SQL.Add('INSERT INTO IP (ID,IP ,IPTIME ,IPTYPE )  VALUES (:1,:2, CURRENT_TIMESTAMP, :3)');
　　Params[0].AsInteger:=allnum;
　　Params[1].AsString:=sip;
　　Params[2].asstring:=request.UserAgent;
　　try
　　ExecSQL;   //写入访问时间
　　except
　　exit;
　　end;
　　end
　　else
　　begin
　　//访问过本站
　　if (now-fields[0].asdatetime)>(1/12) then
　　//是否两小时内访问过
　　begin
　　SQL.Clear;
　　SQL.Add('INSERT INTO IP (ID,IP ,IPTIME ,IPTYPE )  VALUES (:1,:2,CURRENT_TIMESTAMP, :3)');
　　Params[0].AsInteger:=allnum;
　　Params[1].asstring:=sip;
　　Params[2].asstring:=request.UserAgent;
　　try
　　ExecSQL;
　　except
　　exit;
　　end;  
　　end;
　　end;
　　end;
　　ReplaceText:=''; //仅仅是计数，不返回结果
　　end;
　　if tagstring='curuser' then //显示当前五分钟内在线用户
　　begin
　　with cx do
　　begin
　　SQL.Clear;
　　SQL.Add(' select count(*) as num from IP');
　　SQL.Add(' where  (CURRENT_TIMESTAMP-iptime)